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UM PILOTO AUTOMÁTICO 


PARA CONDUZIR 0 AVIÃO 


■ 


APROXIME-SE DA PISTA 


■ 


COMO TRAÇAR 0 RUMO 


■ 


FAÇA 0 PAINEL FUNCIONAR 





Ligue as turbinas do avião e observe 
o jogo dos ponteiros no painel 
dos mostradores, Mas não deixe de 
apertar o cinto, pois o 
piloto automático é meio maluco. 



Já vimos como reproduzir o interior 
de uma cabine de avião na tela do mi- 
crocomputador. No programa do arti- 
go anterior para as linhas TRS-Color, 
MSX, Apple e TK-2000, o avião foi dei- 
xado estático, em pleno ar. Evidente- 
mente, uma situação assim nunca ocor- 
re na vida real. 

Neste artigo, nosso aeroplano vai sair 
voando e os instrumentos do painel vão 
ganhar vida, para que possamos acom- 
panhar seu movimento, apesar de ain- 
da não estarmos em condições de mantê- 
lo sob controle. 



COMO FAZER 0 AEROPLANO VOAR 



Esta é certamente a parte mais longa 
da listagem: uma série complexa de va- 
riáveis independentes deve ser constan- 
temente calculada para reproduzir e 
controlar o comportamento do aparelho 
em voo. Ao mesmo tempo, os instru- 
mentos do painel precisam ser redese- 
nhados à medida que a posição e a alti- 
tude do avião sofrem modificações. Da 
mesma forma, os números dos mostra- 
dores são impressos para que saibamos 
sua posição e sua orientação. 



APROXIME-SE DA PISTA 



Uma imagem da pista no radar nos 
mostra o ângulo de aproximação no 
Spectrum e no MSX. No TRS-Color, 
uma imagem da pista pode ser obser- 



vada através da janela, à medida que 
chegamos próximo à pista. Esta apare- 
ce progressivamente, aproveitando a ca- 
pacidade do TRS-Color em desenhar 
elipses. Ja os usuários do Apple e do 
TK-2000 devem se orientar pela bússo- 
la (bearing), pela direção da pista {run- 
way) e pela distância do avião em rela- 
ção ao eixo longitudinal da pista (drifi). 



0 CURSO DO APARELHO 



Diversos fatores devem ser conside- 
rados para que se possa calcular a po- 
sição do aparelho num dado momen- 
to. A direção em que estamos seguindo, 
por exemplo, é afetada pela dos ventos 
e pela posição dos ailerons instalados 
nas duas asas. A velocidade de cruzeiro 
depende, por sua vez, da intensidade 
do vento. As velocidades de ascensão e . 
de mergulho estão sempre relacionadas | 
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com a de cruzeiro, e assim por diante. 

Para manter sempre atnalizados os 
valores nos mostradores, as variáveis 
têm de ser recalculadas e colocadas no- 
vamente na tela. 



2240 PRINT AT 21. 2; ABS INT AD : " 2505 IF GC-0 THEN LET GC-1 



2 LET WY-0: LET WX = 0 : LET GZ 
-0 : LET GY = 0: LET GX-0 
5 LET RW-0: LET Yl=120: LET 
Y2-120: LET Y3-40: LET Y4 = 4Q 
: LET POW-0- LET GC-0 : LET R 
B-0: LET LL-0 : LET YC-0 : LET 
AD-0: LET ST = 0: LET RL-0: 
LET BC-0: LET NC-0: LET PT-0 
: LET PX-0: LET VZ = 0 : LET VY 
-0: LET VX-0 

500 LET RA-AD*C: LET VX=AS*SIN 

RA 

510 LET VY*AS*C0S BA: HETUBN 
1000 LET PZ-PZ+GZ: LET PY=PY+GY 
: LET PX=PX+GX 

1025 IF ST-1 THEN PRINT OVER 
1;AT 4.9; "M E R G U L H O": LET 
ST = 0: GOTO 1040 
1030 IF AS<30 THEN GOSUB 1500 
1040 LET AD-AD+RL ■ TF AD<0 THEN 

LET AD-AD+360 
1050 IF AD>359 THEN LET AD-AD- 
360 

1060 LET VZ-AS*SIN (PT*C)-10+AS 
/15 

1070 LET GZ-VZ: LET GY-VY+WY: L 
ET GX-VX+UX 

10SO IF VY = 0 THEN LET GD— PI/2 
! GOTO 1100 

1090 LET GD--ATN (VX/VYJ/C 
1100 GOSUB 500 
1110 RETURN 

1500 LET ST=1: PRINT OUEB 1 ; AT 
4.9;"M E R G U L H O": FOR M-l 
TO 4: FOB N-20 TO -20 STEP -4: 
SOUND .01. N; NEXT N: NEXT M 

1510 LET RL- INT (RND-21J-9: LET 
PT--21-INT (RND"5) 

1520 RETURN 

2180 IF QCOO THEN GOSUB 2200 
2190 LET AS-AS+16* (TC»30-AS-8*P 
Tl/AS: GOSUB 2200: GOTO 2205 
2200 PLOT 35.50: DRAW OVEB 1;1 
5*SIN (AS*PI/200) . 15*COS (AS-PI 
/200) : RETURN 

2205 IF GCO0 THEN PLOT 155.50 
: DRAW OVER 1;10*SIN <TN*PI/5) 
,10*COS (TN*PI/5) : PLOT 155,50: 
ORAW OVER 1;15*SIN (UN*PI/500 
) . 15*C0S (UN*PT/500) 
2210 LET TN-P2/1000: LET UN-PZ- 
1000'INT TN: PLOT 155.50: DRAW 
OVER 1;10*SIN (TN*PI / 5 ) . 1 0*COS 
(TN*PI/5) : PLOT 155,50: DRAU 
OVER 1;15*SIN (UN*PI/500) , 15*CO 
S {UN*PI/500) 

2220 IF GCO0 THEN GOSUB 2230 

2225 IF POW--1 AND TC>2 THEN L 
ET TOTC-2 

2226 IF POW=l AND TCC8.B THEN 
LET TC=TC+2 

2228 GOSUB 2230: GOTO 2240 
2230 PLOT 215,50: DRAW OVER li 
15*SIN (TC*PI/5) . 15 «COS (TC* PI/ 
5) : RETURN 



2250 IF PY-0 THEN LET BB-0: GO 
TO 2260 

2255 LET RB-ATN (PX/PY)/C: IF P 

¥>0 THEN LET RB-RB+1B0 

2260 IF RB<0 THEN LET RB-RB+36 

0 

2270 PBINT AT 21. 10 i INT RB i " " 
; AT 21 , 18 : ABS INT PX ; " 
22B0 PRINT AT 21, 25; INT (SQR {P 
Y*PY+PX*PX) ) i " " 

2290 IF (YK-110 AND Y2<=110) O 
R (Yl>^130 AND Y2>=130) THEN G 
OTO 2300 

2295 IF QCOO THEN PLOT OVER 
1;X1.168-Y1: DRAW OVER 1;X2-PE 
EK 23677 , 16B-Y2-PEEK 23678 
2300 LET YC-120+(PT/3) : LET XI- 
80: LET X2-H0: LET Y1-YC+17*TA 
N (RL*2*C): LET Y 2 •= YC~ 1 7*TAN (R 
L*2*C) 

2310 IF (YC<110 OB YO130I AND 
RL=0 THEN GOTO 2376 
2320 IF YK110 THEN LET Xl=95- 
(95-Xl)"(110-YC)/(Yl-YC) : LET Y 
1-110: GOTO 2340 

2330 IF Yl>130 THEN LET Xl=95- 
(95-Xl)*(130-YC)/(Yl-YC) : LET Y 

1- 130 

2340 IF Y2<110 THEN LET X2-95- 
(95-X2)*[110-YC)/(Y2-YC) : LET Y 

2- 110: GOTO 2360 

2350 IF Y2>130 THEN LET X2-95- 
(95-X2)*{130-YC)/(Y2-YC) : LET Y 

2- 130 

2360 IF XKB0 OR X2>110 THEN G 
OTO 2376 

2370 PLOT OVER 1;X1.168-Y1: DB 
AU OVER 1[X2-PEEK 23677, 168-Y2 
-PEEK 2367B 

2376 IF (RL-RH AND PP-PT) THEN 
GOTO 2500 

2377 IF (Y3<-2 AND Y4<-2) OR (Y 
3>-90 AND Y4>=90) THEN GOTO 23 
80 

237B IF GCO0 THEN PLOT OVER 
1;X3,176-Y3: DRAW OVER 1;X4-PE 
EK 23677, (176-Y4J-PEEK 23678 
2380 LET YC-33*PT*4: LET X3-U : 
LET X4=244: LET Y3 C YC+1 1 8*TAN 
(RL*2*CJ : LET Y4=YC-lie*TAN (RL 
■2«C) 

2390 IF (YC<2 OR YO90) AND RL- 
0 THEN GOTO 2450 
2400 IF Y3<2 THEN LET X3-128-( 
128-X3)*!2-YC)/(Y3-YC) : LET Y3- 
2: GOTO 2420 

2410 IF Y3>90 THEN LET X3-126- 
(128-X31 * (90-YC) / (Y3-YC) : LET Y 

3- 90 

2420 IF Y4<2 THEN LET X4-128-( 
128-X4) * (2-YC) / (Y4-YC) : LET Y4- 
2: GOTO 2440 

2430 IF Y4>90 THEN LET X4-128- 
(128-X4)*(90-YC)/(Y4-YC) : LET Y 

4- 90 

2440 IF X3<11 OR X4>244 THEN G 
OTO 2500 

2445 OVER 1: PLOT X3.176-Y3: DR 
AW X4-PEEK 23677, ( 1 76- Y4 ) -PEEK 
23678: OVER 0 
2500 GOSUB 8000 



2510 LET RR-RL I LET PP-PT: RETU 
RN 

5080 LET GZ-VZ: LET GY-VY+WY : L 
ET GX-VX+WX 
5090 LET TC-5 

5100 LET RT-3: LET TP-5: LET WB 
-50 

5500 IF INT (RND*5)=1 THEN LET 
RL-RL+INT (BND*5)-2: IF INT (H 
ND*5)-1 THEN LET PT-PT+3-INT ( 
RND*2) +1*2 

5510 GOSUB 1000: IF PZ<0 THEN 
GOTO 5530 

5520 GOSUB 2180: GOTO 5500 
5530 GOTO 5500 

6000 IF GCO0 THEN PLOT 127,17 

4: DRAW OVER 1 ; OX , OY 

8010 LET 0X-16*SIN (RB"(PI/180) 

I: LET OY-- ( 16*ABS COS (RB* (PI/ 

180))) 

B020 PLOT 127,174: DRAW OVER 1 
;OX.OY 

8025 LET WB-AD: IF AD>180 THEN 
LET WB-WB-360 

8026 IF RB>180 THEN LET WB=UB+ 
360-RB: GOTO B040 

8030 LET WB-WB-RB 

8040 IF RW-1 THEN PLOT OVER 1 

;RDX , 175-RDY 

8050 LET RW-0: IF ABS WB>57 THE 
N RETURN 

8060 LET RDX-X3+INT (I(X4-X3)/2 
) -SIN (WB* (PI/180) ) * (X4-X3) *6) 
8070 LET RDY=Y3+ ! (Y4-Y3) * ( (RDX- 
X3) /(X4-X3) I +2) 

8080 IF RDY<2 OR RDY>90 OR RDX< 
11 OR RDX>244 THEN RETURN 
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8090 LET BW-1: PLOT OVER 1 ; RDX 
, 175-HDY 
8100 RETURN 

O POKE na linha l trava as linhas 
maiúsculas do computador. A linha 5 
zera todas as variáveis. A linha 1 10, que 
já foi digitada na primeira parte do pro- 
grama (ou seja, no artigo anterior), en- 
via o computador para a linha 5000, on- 
de é desenhado o interior da cabine. A 
linha 5080 cuida das variáveis que de- 
terminam a posição do avião no espa 
ço: GZ se refere à distância do apare 
lho ao longo do eixo Z — sua altitude 
VZ é a velocidade ao longo desse mes- 
mo eixo: VY é a velocidade ao longo do 
eixo Y — para frente e para trás; WY 
é a velocidade do vento nessa mesma di- 
reção. GX, VX e WX correspondem à 
distância percorrida, velocidade e velo- 
cidade do vento em relação ao eixo X 
— direita e esquerda. 

A linha 5090 estabelece o valor ini- 
cial da rotação do motor. A linha 5100 
define os limites da inclinação do avião 
(RT, relacionada com os movimentos la- 
terais), assim como da ascensão (TP, 
que faz o avião subir ou descer) e da lar- 
gura da pista (WR). 

A linha 5500 é um comando tempo- 
rário encarregado de manobrar o avião 
até o momento em que a rotina de con- 
trole propriamente dita é digitada (o que 
será feito no próximo artigo desta série). 



A linha 55 1 0 chama a sub-rotina que 
começa na linha 1000 e termina em 
1 1 10. Essa sub-rotina recalcula os valo- 
res de iodas as variáveis à medida que 
o avião se movimenta. As linhas 1025 
e 1030 verificam se o aparelho entrou em 
parafuso, por ter uma velocidade mui- 
to baixa (inferior a 30 m por segundo; 
Caso isso aconteça, será chamada a sub- 
rotina 1500, que se encarrega de repro- 
duzir os efeitos de um mergulho. A li 
nha 5510 impede que possamos prever 
o rumo do avião durante a queda (este 
pode mergulhar diretamente ou então 
entrar em parafuso). 

A linha 1 100 chama a sub-rotina 500, 
que calcula o ângulo da trajetória do 
avião. 

A próxima grande sub-rotina a ser 
chamada começa na linha 2180 e termi- 
na em 2510. Ela redesenha os mostra- 
dores e contadores á medida que a in- 
formação que estes trazem se modifica. 
A linha 2180 verifica o contador GC pa- 
ra ver se há algo a ser redesenhado. A 
sub-rotina 2200 desenha a nova posição 
dos ponteiros do mostrador da veloci- 
dade do vento (airspeed). As linhas 2205 
e 2210 calculam e redesenham as duas 
novas posições dos ponteiros que mar- 
cam a altitude. A linha 2230 movimen- 
ta os ponteiros, usando os cálculos das 
linhas 2225 e 2226. 

O contagiros é atualizado pela linha 




2240. As linhas 2250 a 2270 calculam a 
direção da pista (runway) e o desvio do 
avião em relação ao eixo principal des- 
ta última {drift). A distância até o cen- 
tro da pista é calculada e impressa pela 
linha 2280. 

O horizonte artificial do segundo 
mostrador é calculado e desenhado pe- 
las linhas 2280 a 2370. 

A linha 2376 verifica o horizonte que 
aparece na janela, enquanto as linhas 
2377 a 2445 o recalculam e o redese- 
nham, conforme o caso. 

A linha 2500 chama a sub-rotina que 
começa na linha 8000 e termina na 8100. 
Essa sub-rotina calcula e desenha a ima- 
gem da pista no radar, que pode ser vista 
no topo da tela, e o pontinho logo abai- 
xo da linha de horizonte. 



100 PUI NT RND(-TIME) 

500 RA=AD*C:VX=VV«SIN(RA) 

510 VY = W*COS (RA) : RETURN 

1000 PZ=PZ+GZ:PY=PY+CY:PX=PX+GX 

1020 VV = VV+ ] 6* (TC" 30- W - 6 "PT) /V 

V 

1030 IF ST-1 THEN LINE (90 , 1 ) - (2 
30 , B) , 4 , BF : ST=0 : GOTO 1050 
1040 IF VU<30 THEN GOSUB 1500 
1050 AD=AD+RL:IF AD<0 THEN AD = A 
D+360 

1060 IF AD>359 THEN AD=AD-360 
1070 VZ-VV*SIN(PT*C)-10+VV/15 
1060 GZ=VZ:GY = VY + WY'GX-VX-t-UX 
1090 IF VY=0 THEN CD — PI/2:COTO 
1110 

1100 GD=-ATN(VX/VY)/C 
J 110 GOSUB 500 
1120 RETURN 

1500 ST=1 :X=96-Y-l-COLOH 6 
1510 AS = "MERGUt.HO" : GOSUB 4000:X 
-97 : GOSUB 4000 

1520 PLAY "T2 5 5AGFEOCAGFED('" 



1) "21) -9: PT=-21 



1530 RL=INT(RND 
-INT (RND {1 ) "5) 
1540 RETURN 
2000 COLOR 15 
2005 LINE (35 , 12f 
•PI/200) , 128-15' 
. 8 

2010 LINE(35.128)-(35+15*SlN(UV 
"PI/200) . 128-1 5*COS(VV*PI/200) ) 
2015 LINE(155.]2B)-(155+10-SIN( 
Tl "PI/5) , 128-1 0"COS(Tl*PI/5) 1 .6 
2020 TN=PZ/10Q0:UN=PZ-100Q*1NT< 
TN) :LINE(155,128)-[155*10"SIN(T 
N*Pr/5) .128~10*COS(TN"PI/5) ) 
2025 LINE(155,12B!-(155+15*SIN( 
U1*PI/500) , 128-1 5*COS(U1"PI/500 



) ) 

2035 LINEÍ215, 128) - ( 2 1 5+ 1 5 "5 I N < 
T2"PI/5) . 128-1 5-COS (T2"PI/5) ) .8 
2040 LINE (215 , 12B) - (21 5+15"SIN ( 
TC"PI/5) , 128-1 5 "COS (TC* PI /5) ) I 
2050 COLOR 15 -X=16- Y=180 :AS=STR I 
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S (ABS (INT (AD) j ) : GOSUB 3900 
2060 IF PY = 0 THEN RB = 0 ELSE RB= 
ATN (PX/PY) ÍC: IF PY>0 THEN RB = RB 
+180 

2070 IF HB<0 THEN RB-RB+360 
2080 X-79 : AS-STRS (INT (RB) ) :GOSU 
B 3900:X=13B:AS=STRS(INT{PX) ) :G 
OSUB 3900 

2090 X=194:AS=STRS(INT(SQR(PY*P 

Y+PX-PX) ) ) :G0SUB 3900 

2100 YC=12B+PT:X1=80:X2=110:Y1= 

YC+17*TAN(RL*2-C) : Y2=YC-1 7*TAN ( 

RL*2*C) 

2110 IF(YC<]13 OR YCM43) AND R 
L=0 THEN 2320 

2120 IF YK113 THEN X1-95- (95-X 
1) * (105-YC) /(Yl-YC) :Y1=113:GOTO 
2140 

2130 IF Yl>143 THEN Xl=95- (95-X 

1) * (135-YC) / (Yl-YC) -Yl=143 
2140 IF Y2<113 THEN X2=-95~(95-X 

2) * (105-YC) / (Y2-YC) : Y2 = 113 :GOTO 
2160 

2150 IF Y2M43 THEN X2-95- (95-X 
2! * (135-YC) / (Y2-YC) :Y2=143 
2160 IF XKBO OR X2M10 THEN 21 
80 

2165 DP.AU n BM81,128C10R9F5E5R9" 
2170 LINE{X5.Y5)-(X6.Y6) ,8:LINE 
(X1.Y1)-(X2,Y2) :X5-X1:Y5-Y1:X6= 
X2:Y6=Y2 

2180 IF X7-R510 AND X7+R<245 AN 
D Y7>0 AND Y7<80 THEN CIRCLR (X7 
,Y7) .R.4.O. .5,10 

2190 IF RL=RR AND PP=PT THEN 22 
90 

2200 IF HF-1 THEN LINE (X3.Y3)- 
(X4.Y4) ,4 

2210 HF-0 : YC=33 + PTM : X3=16 :X4-2 
39:Y3=YC+11B*TAN{RL*2*C) :Y4=YC- 
118*TAN(RL*2*C) 

2220 IF(YC<10 OR YC>79) AND RL= 
0 THEN 2290 

2230 IF Y3<1 THEN X3=128- ( 128-X 

3) *(1-YC)/{Y3-YC) :Y3=l:GOTO 225 
0 

2240 IF Y3>79 THEN X3=12B-(128- 

X3) • (79-YC) / (Y3-YC) :Y3-79 

2250 IF Y4<1 THEN X4 = 128- {128-X 

4) *(1-YC)/{Y4-YC) :Y4=1:G0T0 227 
0 

2260 IF Y4>79 THEN X4=12B-(12S- 
X4) * (79-YC) /(Y4-YC) :Y4 = 79 
2270 IF X3<16 OR X4>239 THEN 22 
90 

2280 HF=1:LINE(X3.Y3)-(X4,Y4) ,1 
5 

2290 WB-AD:IF AD>180 THEN WB-WB 
-360 

2300 IF RBMBO THEN WB-WB+360-R 
B ELSE UB-WB-RB 

2310 IF ABS(WB)>60 AND ABS(PY)> 
1000 THEN 2370 

2320 AN-116/(60"SQR((X3-X4)*(X3 
-X4)+{Y3-Y4)*(Y3-Y4) ) ) :X7= (X3+X 
4) ,'2+SGN (X3-X4)+WB*AN* (X3-X4) 
2330 Y7>(Y3+Y4)/2+2+WB*AN*(Y3-Y 
4):IF X7<16 OR X7>239 OR Y7<1 O 
R Y7>79 THEN 2370 
2340 IF ABS(PY)<1000 THEN R=8-Y 
7/10 ELSE R-4000/ABS(PY) :IF R*l 
^™0+Y7>80 THEN R-S-Y7/10 
*>* 2350 IF Y7<t OR Y7>79 OR X7-R<1 



6 OR X7+R>239 THEN 2370 

2360 CIRCLE[X7,Y7) ,R, 15,0, .5,10 

2370 V1-VV:U1-UN:T1=TN:T2-TC 

2380 RR=RL : PP=PT : RETURN 

3900 LINE(X,Y)-(X+50.Y+8) . 2 . BF 

5080 GZ=VZ:GY-VY+WY:GX-VX+WX 

5090 TC-5 

5100 RT=3:TP=5:WR=50 

5190 DRAW "BM81 , 1 28C10R9F5E5R9" 

5500 IF INT(RND(1)*10)=1 THEN R 

L-RL-SGN (RL) +INT (RND { 1 ) *5-2) 

5505 IF INT(RND(1)*10)=1 THEN P 

T-PT+3-INT(RND(l)*2+l)«2 

5510 GOSUB 1000:TF PZ<0 THEN 55 

30 

5520 GOSUB 2000:GOTO 5500 
5530 GOTO 5530 

A linha 100 "embaralha as cartas", 
permitindo a criação de números ao aca- 
so. A 5080 estabelece os valores das va- 
riáveis que controlam a posição do apa- 
relho no espaço, conforme a sua velo- 
cidade e a força e direção do vento. GZ 
nos revela a distância percorrida ao lon- 
go do eixo Z (alto-baixo); VZ, a veloci- 
dade nesse eixo. VV informa a veloci- 
dade ao longo do eixo Y (írente-trás); 
WV, a velocidade do vento nessa mes- 
ma direção; GX, VX e WX correspon- 
dem respectivamente à distância percor- 
rida, à velocidade do aparelho e à velo- 
cidade do vento ao longo do eixo X 
(direita-esquerda). 

A linha 5090 determina a rotação ini- 
cial do motor; a 5100 define os limites 
da inclinação lateral (RT), que faz o 
avião virar; da inclinação frontal (TP), 
que faz o avião subir ou descer, e da lar- 
gura da pista (WR). 

As últimas cinco linhas são coman- 
dos temporários. Elas fazem com que o 
avião voe de maneira irregular, com in- 
clinações laterais e frontais estabelecidas 
ao acaso. 

As sub-rotinas das linhas 1000 a 1 120 
recalculam todas as variáveis enquanto 
o aeroplano se movimenta. As linhas 
1030 e 1040 verificam se a velocidade 
caiu abaixo de30m por segundo. Quan- 
do isso acontece, é chamada a sub- 
rotina da linha 1500, que recria os efei- 
tos de uma queda ou mergulho. A linha 
1510 introduz um elemento de acaso no 
processo, de maneira que tanto pode- 
mos mergulhar diretamente para o chão 
como podemos entrar em parafuso. A 
sub-rotina 500, que é chamada pela li- 
nha 1110, calcula o ângulo em que o 
aparelho está voando. 

A sub-rotina que vai da linha 2000 à 
linha 2380 cuida do restante do progra- 
ma. Ela atualiza a tela, ajustando o pai- 
nel de instrumentos, que mostra o mo- 
vimento do avião. Para fazer isso, é ne- 
cessário, primeiramente, apagar o anti- 
go conteúdo de cada instrumento e de- 
senhar a seguir os ponteiros correspon- 



dentes à nova posição do aparelho. 

O mostrador da velocidade do vento 
é atualizado pelas linhas 2005 e 2010, en- 
quanto as linhas 2015, 2020, 2025 e 2030 
cuidam do mostrador de altitude. O 
contagiros é modificado pelas linhas 
2035 e 2040; a linha 2050 corrige a dire- 
ção em que o avião está seguindo (bea- 
ring, que é o ângulo da bússola medido 
em graus). A direção da pista {runway, 
também em graus) é modificada pelas 
linhas 2060 a 2080, e o novo valor da 
distância é impresso pela linha 2090. 

A linha 2190 verifica se o horizonte 
deve ser modificado, enquanto as linhas 
2100 a 2170 desenham o novo horizon- 
te artificial no mostrador corresponden- 
te. O horizonte é desenhado pelas linhas 
2200 a 2280. 

A nova posição da pista é calculada 
pelas linhas 2290 a 2360. A 2350 verifi- 
ca se a pista pode ser desenhada na te- 
la. A 2180 apaga a versão antiga quan- 
do uma nova é desenhada. 

Execute então o programa e veja o 
avião voar sozinho... por enquanto. 



UE] 




800 RA - AD * C:VX - AS * SIN 
(RA) 

810 VY - AS * COS (RA) : RETURN 

1000 PZ - PZ + GZtPY - PY + GY: 
PX - PX + GX 

1020 AS = AS + 16 * (TC * 30 - 
AS - 8 * PT) / AS 
H030 IF ST - 1 THEN ST - 0: GO 
TO 1050 

1040 IF AS < 30 THEN GOSUB 15 
00 

1050 AD = AD + RL: IF AD < 0 TH 
EN AD - AD + 360 
1060 IF AD > 359 THEN AD - AD 
- 360 

1070 VZ - AS * SIN (PT * C) - 
10 * AS / 15 

1080 GZ - VZ:GY - VY + UY : GX - 
VX + WX 

1090 IF VY - 0 THEN GD - - PI 

/ 2: GOTO 1110 
1100 GD - - ATN (VX / VY) / C 
1110 GOSUB 800 
1120 RETURN 
1500 ST - 1 

1510 RL - INT ( RND (1) * 21 + 
1) - 10:PT - - 20 - INT ( RN 
D (1) * 5 + 1) 
1520 RETURN 
2000 HCOLOR= 0 

2010 HPLOT 41,134 TO 41 + 20 * 

SIN {Al * PI / 2001.134 - 20 
* COS (Al * PI / 200) 
2015 HCOLOR- 3: HPLOT 41.134 T 
O 41 + 20 * SIN (AS * PI / 200 
),134 - 20 * COS {AS * PI / 20 
0) 

2020 HCOLOR" Or HPLOT 177.134 
TO 177 + 15 * SIN (Tl * PI / 5 
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J.134 - 15 * COS (Tl * PI / 5] 
2025 HCOLOH- 3:TN - PZ / 1000: 
UN - PZ - 1000 * INT (TN) : HPL 
OT 177,134 TO 177 + 15 * SIN [ 
TM * PI / 5), 134 - 15 * COS (T 
M * PI / 5) 

2030 HCOLOR= 0: HPLOT 177,134 
TO 177 + 20 * SIN (Ul * PI / 5 
00) .134 - 20 • COS (Ul - PI / 
500) 

2035 HCOLOR* 3: HPLOT 177,134 
TO 177 + 20 * SIN (UN * PI / 5 
00) ,134 - 20 * COS (UN * PI / 
500) 

2040 HCOLOB = 0: HPLOT 245,134 
TO 245 + 20 * SIN (T2 • PI / 5 
),134 - 20 * COS (T2 * PI / 5) 
2045 HCOLOR- 3: HPLOT 245,134 
TO 245 + 20 - SIN (TC - PI / 5 
) ,134 - 20 * COS (TC - PI / 5) 
2050 L - 23:C - 4:AS - LEFTS ( 

STHS ( ABS ( INT (AD) ) ) + " 
- , 3) : GOSUB 4000 

2060 IF PY = 0 THEN RB ■ 0 : GO 
TO 2070 

2062 RB - ATN (PX / PY) / C 
2065 IF PY > 0 THEN RB = RB +■ 



180 

2070 IF RB < 0 THEN 1 



' RB - 



360 

2080 C - 14:AS = LEFTS ( STRS 
( INT (RB)) + " GOSUB 4 

000:C - 24:AS - LEFTS ( STRS ( 
INT (PX) ) + " ".*) : GOSUB 4 

000 

2090 C = 32:AS = LEFTS ( STBS 
( INT ( SOR (PY • PY + PX * PX) 
)) + ■' ",5J : GOSUB 4000 

2100 YC - 134 + PT:X1 - 90:X2 - 

130:Y1 - YC + 17 * TAN (RL * 
2 * C) :Y2 - YC - 17 * TAN (RL 
« 2 • C) 

2110 IF (YC < 119 OR YC > 149} 
AND RL - 0 THEN 2380 
2120 IF Yl < 119 THEN XI - 110 

- (110 - XI) * (119 - YC) / (Y 
1 - YC):Y1 - 119: GOTO 2140 
2130 IF Yl > 149 THEN XI = 110 

- (110 - XI) ■ (149 - YC) / (Y 

1 - YC) : Yl = .149 

tfl40 IF Y2 < 119 THEN X2 - 110 

- (110 - X2) ■ (119 - YC) / (Y 

2 - YC) :Y2 - 119 

2150 IF Y2 > 149 THEN X2 - 110 

- (110 - X2) * (149 - YC) / (Y 
2 - YC) :Y2 = 149 

2160 IF XI < 90 OR X2 > 130 TH 
EN 2190 

2170 HCOLOR- 0: HPLOT X5 , Y5 TO 
X6.Y6 

2175 HCOLOR" 3: HPLOT XI. Yl TO 
X2.Y2 

2177 HCOLOR- 5: HPLOT B5.13B T 
O 104,138 TO 109,148 TO 114,138 
TO 134,138 
2190 IF RL - RR AND PP = PT TH 

EN 2380 

2200 IF HF - 1 THEN HCOLOB= 0 

: HPLOT X3.Y3 TO X4.Y4 

2210 HF - 0:YC ■ 3 3 + PT * 4:X3 
= 11:X4 - 275:Y3 - YC + 118 * 
TAN (RL * 2 * C) :Y4 - YC - 11B 
* TAN (RL * 2 * C) 



2220 IF (YC < 10 OB YC > 79) A 

ND RL = 0 THEN 2380 

2230 IF Y3 < 1 THEN X3 - 143 - 

(143 - X3) • (1 - YC) / <Y3 - 
YC) :Y3 - 1 : GOTO 2250 
2240 IF Y3 > 79 THEN X3 = 143 

- (143 - X3) * (79 - YC) / (Y3 

- YC) ! Y3 - 79 

2250 IF Y4 < 1 THEN X4 - 143 - 

(143 - X4) «d - YC) / (Y4 - 
YC) : Y4 • 1 : GOTO 2270 
2260 IF Y4 > 79 THEN X4 - 143 

- (143 - X4) * (79 - YC) / (Y4 

- YC) : Y4 - 79 

2270 IF X3 < 11 OR X4 > 275 TH 
EN 23B0 

2280 HF - 1: HCOLOR= 3: HPLOT X 
3 . Y3 TO X4 . Y4 

2380 RR - BL:PP - PT:A1 - AS:U1 
- UN:T1 - TN : T2 ■ TC:X5 - X1:Y 
5 - Y1:X6 - X2:Y6 - Y2 : RETURN 
5080 GZ - VZ:GY - VY + WY : GX - 

vx + wx 

5090 TC - 5 

5100 RT • 3:TP ■ 5:WR - 50 
5500 IF INT ( RND (1) * 10 + 

1) « 1 THEN RL - BL - SGN (BL) 

+ ( INT ( RND (1) * 5 + 1) - 3 

5505 IF INT ( BND (1) * 10 + 
1) = 1 THEN PT - PT + 3 - INT 
| RND (1) "2+1) * 2 
5510 GOSUB 1000: IF PZ < 0 THE 
N 5530 

5520 GOSUB 2000: GOTO 5500 
5530 GOTO 5530 

A linha 5080 estabelece os valores das 
variáveis que controlam a posição do 
aparelho no espaço, de acordo com a 
sua velocidade e a força e a direção do 
vento. GZ informa sobre a disiãncia 
percorrida ao longo do eixo Z (alto- 
baixo); VZ nos dá a velocidade nesse ei- 
xo; VV, a velocidade ao longo do eixo 
Y (frente-lrás); WY, a velocidade do 
vento nessa mesma direção. Da mesma 
forma, GX, VX e WX correspondem, 
respectivamente, à distância percorrida, 
à velocidade do avião e à velocidade do 
vento ao longo do eixo X (direita- 
esquerda). 

A linha 5090 determina a rotação ini- 
cial do motor, a 5100 define os limites 
da inclinação lateral (RT), que faz o 
avião virar; da inclinação frontaJ (TP), 
que faz o avião subir ou descer, e da lar- 
gura da. pista (WR). 

As últimas cinco linhas são coman- 
dos temporários. Elas fazem com que o 
avião voe de maneira irregular, com in- 
clinações laterais e frontais estabelecidas 
ao acaso. 

As sub-rotinas das linhas 1000 a 1 120 
recalculam todas as variáveis enquanto 
o aeroplano se movimenta. As linhas 
1030 e 1040 verificam se a velocidade 
caiu abaixo de 30 m por segundo. Quan- 
do isso acontece, é chamada a sub- 
rotina da linha 1500, que recria os efei- 



tos de uma queda ou mergulho. A linha 
1510 introduz um elemento de acaso no 
processo, de forma que tanto podemos 
mergulhar diretamente para o chão co- 
mo enirar em parafuso. A sub-rotina 
500, que é chamada pela linha 1 1 10, é 
encarregada de calcular o ângulo em que 
o aparelho está voando. 

A sub-rotina que vai da linha 2000 à 
2380 cuida do restante do programa. Ela 
atualiza a tela, ajustando o painel de ins- 
trumentos, que mostra o movimento do 
avião. Para isso, é necessário apagar o 
antigo conteúdo de cada instrumento e 
desenhar os ponteiros correspondentes 
à nova posição. 

O mostrador da velocidade do vento 
é atualizado pelas linhas 2010 e 2015, en- 
quanto as linhas 2020, 2025, 2030 e 2035 
cuidam do mostrador de altitude. O 
contagiros, por sua vez, é modificado 
pelas linhas 2040 e 2045; a linha 2050 
corrige a direção em que o avião está 
voando (bearing, que é o ângulo da bús- 
sola medido em graus). A direção da pis- 
ta (runway, também em graus) é modi- 
ficada pelas linhas 2060 a 2080, e o no- 
vo valor da distância é impresso pela li- 
nha 2090. 

A linha 2090 também verifica se o ho- 
rizonte deve ser modificado, e as linhas 
2100 a 2170 desenham o novo horizon- 
te artificial no mostrador corresponden- 
te. O horizonte verdadeiro é desenhado 
pelas linhas 2200 a 2280. 

Execute então o programa e veja o 
avião voar sob o controle do piloto au- 
tomático. 

É possível que, após alguns minutos 
de voo, a tela gráfica comece a ser 
preenchida por pomos aleatórios que es- 
tragam o desenho. Isso acontece sempre 
que usamos muitos cordões. No nosso 
caso, é a variável AS (responsável pela 
impressão dos contadores) que é usada 
a todo instante. 

Não se alarme. O próximo artigo re- 
solverá o problema, e permitirá que vo- 
cê assuma o controle do aparelho. 



500 RA-AD*C:VX-VV"SIN{RA) 

510 VY-WCOS (RA) : BETURN 

1000 PZ-PZ+GZ:PY-PY+CY:PX-PX+GX 

1020 VV-W+16MTC*30-VV-8*PT)/V 

V 

1030 IF ST-1 THEN PMODE 4.1:DRA 

WBM108 .40C0" : AS- "MERGULHO" :GOS 

UB 4000:DRAWC5-:ST-0:GOTO 1050 

1040 IF UV<30 GOSUB 1500 

1050 AD-AD+RL:IF AD<0 THEN AD-A 

D+360 

1060 IF AD>359 THEN AD-AD-360 
1070 VZ-W*SIN (PT*C) -10+VV/15 
1080 GZ-VZ:GY-VY+WY:GX-VX+WX 
1090 IF UY-0 THEN GD— PI/2:G0T0 
1110 
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1100 GD--ATN (VX/VY) /C 
1110 GOSUB 500 
1120 RETURN 

1500 PMODE 4 . 1 : ST-1 :DBAW"BM108 , 

40" :AS»"MEP.GULHO" : GOSUB 4000:PL 

AY"T20AGFEDCAGFEDC" 

1510 HL-flND(21)-10:PT = -20-HND(5 

) 

1520 RETURN 



2000 PCOPY 5 TO 7:PCOPY 6 TO 8: 
PMODE 4.S 

2010 LINE(35.120)-{35+20*SIN(VV 
-PI/200) ,120-2D*COS(VV*PI/200) ) 
,PSET 

2020 TN-PZ/1000:UN-PZ-1000*INT( 
TN) : LINE (155. 120) - [155+15-SIN (T 
N*PI/5) , 120-15-COS (TN-PI/5) ) , PS 
ET 



2030 LINE 1155. 120) - [155 + 2Q*SIN( 
UN*PI/500) . 120-20'COS [UN*PI/500 
) ) , PSET 

2040 LINE(215.12Q)-(21S+20«SIN( 
TC*PI/5) ,120-20*COS(TC*PI/5)) ,P 
SET 

2050 DRAWBH16,172S6":AS-STRS(A 

BS ( INT (AD) ) ) : GOSUB 4000 

2060 IF PY-0 THEN RB-0 ELSE HB= 
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Como melhorar a velocidade de exe- 
cução do simulador de voo? 

O programa de simulação de voo é 
bastante lento. Isso acontece porque 
ele foi escrito em linguagem BASIC in- 
terpretada, com um grande número de 
equações a serem resolvidas a cada 
passo da simulação, e de gráficos com- 
plexos a serem desenhados. Uma das 
soluções para o problema seria colocar 
mais comandos por linha, e tirar espa- 
ços em branco; isso, porém, tornaria o 
programa mais difícil de ser entendido 
e corrigido, sem aumentar muito a ve- 
locidade. 

Uma saída (para quem dispõe de um 
micro com unidade acionadora de dis- 
quetes) consiste em utilizar um compi- 
lador para o programa. Um compilador 
é um programa especial que traduz um 
outro programa desenvolvido em lin- 
guagem de alto nível (como o BASICI 
para código de máquina. Com ele, a ve- 
locidade de execução chega a aumen- 
tar de dez a trinta vezes, dependendo 
do modelo usado. 

Quase todos os micros dispõem de 
compiladores para a linguagem BASIC. 
É o caso das linhas Apple, TRS-80 e 
TRS-Color, por exemplo. O Spectrum 
e o ZX-81, porém, não contam com es- 
se tipo de recurso. Para a linha MSX, 
o compilador BASIC é encontrado ape- 
nas no exterior. 



ATN (PX/PY) /C: IF PY>0 THEN RB-RB 
+ 180 

2070 IF RB<0 THEN RB-RB+360 
20B0 DRAW"BM80.172":A$=STH$(INT 
(RB)):GOSUB 4000 : DRAWBM140 . 1 72 
":AS-STRS(ABS(INT[PX>)) :GOSUB 4 
000 

2090 DRAWBM196,172":AS-STRSUN 
T (SÔR (PY*PY+PX"PX) )) ■ GOSUB 4000 
2100 YC-120+PT:X1-80:X2-110:Y1- 
YC+17*TAN(RL*2*C) : Y2-YC-17*TAN ( 
RL*2*C) 

2110 IF <YC<105 OH YCM351AND R 
L=0 THEN 2320 

2120 IF YK105 THEN Xl-95-(95-X 
11M105-YC)/ (Yl-YC) :Y1- 105: GOTO 
2140 

2130 IF Yl>135 THEN X1-95-Í.95-X 
11 - (135-YC)/ (Yl-YC) :Y1-13S 
2140 IF Y2<105 THEN X2-95- (95-X 
2)* (105-YC)/(Y2-YC) :Y2-105:GOTO 
2160 

2150 IF Y2>135 THEN X2-95-Í95-X 

2) *( 135-YC) /(Y2-YC) : Y2-135 
2160 IF XKB0 OR X2>110 THEN 21 
80 

2170 LINE(X1,Y1)-(X2.Y2) . PSET 
2180 PMODE 4,1:IF X5-HM0 AND X 
5+B<245 AND Y5>0 AND Y5<80 THEN 

CIRCLE (X5.Y5) ,R, 0,10.0. .5 
2190 IF RL-RR AND PP-PT THEN 22 
90 

2200 IF HF-1 THEN LINE (X3.Y3)- 
(X4.Y4) . PRESET 

2210 HF-0:YC-33 + PTM:X3-ll:X4-2 
44:Y3-YC+118*TAN<RL*2*C) :Y4-YC- 
118*TAN(RL*2*C) 

2220 IF(YC<10 OR YC>79)AND RL-0 

THEN 2290 
2230 IF Y3<1 THEN X3-1 28- ( 1 28-X 

3) *(1-YC)/(Y3-YC) :Y3-1:GOTO 225 
0 

2240 IF Y3>79 THEN X3-12B-U28- 

X3)«(79-YC)/(Y3-YC) :Y3-79 

2250 IF Y4<1 THEN X4-1 28- ( 128-X 

4) * {1-YO / (Y4-YC) : Y4-1 : GOTO 227 
0 

2260 IF Y4>79 THEN X4-128-(128- 
X4)"(79-YC)/(Y4-YC) :Y4-79 
2270 IF X3<11 OH X4>244 THEN 22 
90 

2280 HF-1 :LINE!X3.Y3) -{X4,Y4> ,P 
SET 

2290 WB-AD:IF AD>180 THEN WB-WB 
-360 

2300 IF RB>180 THEN WB-WB+360-R 
B ELSE WB-UB-RB 

2310 IF ABS(WB)>60 AND ABS(PY)> 
1000 THEN 2370 

2320 AN-118/(60»S(iR((X3-X4)«(X3 

-X4)+(Y3-Y4)*(Y3-Y4))) :X5-(X3+X 

4)/2+SGN(X3-X4) tWB*AN*(X3-X4) 

2330 Y5-(Y3+Y4)/2+2+WB*AN*(Y3-Y 

4):IF X5<11 OR X5>244 OR Y5<1 O 

R Y5>79 THEN 2370 

2340 IF ABSIOYX1000 THEN H-8-Y 

5/10 ELSE R-4000/ABS(PY) : IF R*l 

0+Y5>80 THEN R-B-Y5/10 

2350 IF Y5<10 OR Y5>79 OR X5-R< 

11 OR X5+R>244 THEN 2370 

2360 CIRCLE (X5 , Y5) , R . 5 , 10 . 0 , . 5 

2370 PCOPY 7 TO 3:PCOPY 8 TO 4 

2380 RH" HL : PP-PT : P.ETURN 



5080 GZ-VZ :GY-VY+WY:GX=VX+WX 
5090 TC-5 

5100 HT=3 :TP-5 :WR=50 

5500 IF RNDU0W THEN RL-RL-SG 

N(RL)+(HND{5)-3) 

5505 IF RND(10)-1 THEN PT=PT+3- 
RND(2)*2 

5510 GOSUB 1000:IF PZ<0 THEN 55 

30 

5520 GOSUB 2000:GOTO 5500 
5530 GOTO 5530 

A linha 5080 estabelece os valores das 
variáveis que controlam a posição do 
aparelho no espaço, conforme a sua ve- 
locidade e a força e direção do vento. 
GZ revela a distância percorrida ao lon- 
go do eixo Z (alto-baíxo); VZ, a veloci- 
dade neste eixo; VY, a velocidade ao 
longo do eixo V (frente-trás); WY, a ve- 
locidade do vento nessa mesma direção. 
Por sua vez, GX, VX e WX correspon- 
dem, respectivamente, à distância per- 
corrida, ã velocidade do aparelho e ã ve- 
locidade do vento ao longo do eixo X 
(direita-esquerda). 

A linha 5090 determina a rotação ini- 
cial do motor; a 5100 define os limites 
da inclinação lateral (RT), que faz o 
avião virar; da inclinação frontal (TP), 
que faz o avião subir ou descer, e da lar- 
gura da pisia (WR). 

As últimas cinco linhas são coman- 
dos temporários. Elas fazem com que o 
avião voe de maneira irregular, com in- 
clinações laterais e frontais estabelecidas 
ao acaso. 

A sub-rotina das linhas 1000 a 1120 
recalcula todas as variáveis enquanto 
o aeroplano se movimenta. As linhas 
1030 e 1040 verificam se a velocidade 
caiu abaixo de 30 m por segundo. Quan- 
do isso acontece, é chamada a sub- 
rotina da linha 1500, que recria os efei- 
tos de uma queda ou mergulho. A linha 
1510 introduz um elemento de acaso no 
processo, de forma que tanto podemos 
mergulhar diretamente para o chão co- 
mo entrar em parafuso. A sub-rotina 
500, que é chamada pela Unha 1110, é 
incumbida de calcular o ângulo em que 
o aparelho está voando. 

A sub-rotina que vai da linha 2000 a 
2380 cuida do restante do programa. Ela 
atualiza a tela, ajustando o painel de ins- 
trumentos que mostram o movimento 
do avião. 

A linha 2000 transfere a versão ori- 
ginal da cabine para outra parte da me- 
mória. O mostrador da velocidade do 
vento é atualizado pela linha 2010, en- 
quanto as linhas 2020 e 2030 cuidam do 
mostrador de altitude. O contagiros é 
modificado pela linha 2040, enquanto a 
2050 corrige a direção em que o avião 
está seguindo {bearing, que é o ângulo da 
bússola medido em graus). A direção da 



pista (runway, também em graus) é mo- 
dificada pelas linhas 2060 a 2080, e o no- 
vo valor da distância é impresso pela li- 
nha 2090. 

A linha 2190 verifica se o horizonte 
deve ser modificado, enquanto as li- 
nhas 2 1 00 a 2 1 70 desenham o novo ho- 
rizonte artificial no mostrador corres- 
pondente. O horizonte verdadeiro é de- 
senhado pelas linhas 2200 a 2280. 

A nova posição da pista é calculada 
pelas linhas 2290 a 2360. A linha 2350 
verifica se a pista pode ser desenhada na 
tela (a pista aumenta de tamanho à me- 
dida que o avião se aproxima). A linha 
2180 apaga a versão antiga quando uma 
nova é desenhada. 

Todas essas modificações foram fei- 
tas de maneira invisível, em uma página 
oculta da tela. A linha 2370 transfere o 
desenho para a tela usando PCOPY, de 
modo que iodas as alterações parecem 
ocorrer simultaneamente. 




ENGQ 



Calcular juros compostos? Encontrar o 
cubo de um número? Transformar 
letras maiúsculas em minúsculas? Tudo 
isso se toma simples quando 
se trabalha com funções sob encomenda. 




Um computador é capaz de resolver 
problemas matemáticos muito mais ra- 
pidamente do que qualquer pessoa. En- 
tretanto, ele só faz o que for programa- 
do para fazer, seja por você, seja por um 
programa pronto, carregado previamen- 
te na máquina. 

A linguagem mais utilizada para pro- 
gramação de microcomputadores é o 
BASIC. Em sua maioria, os micros pes- 
soais passam a aceitar comandos nessa 
linguagem assim que são ligados. 

O interpretador BASIC de seu com- 
putador conta com uma série de funções 
matemáticas padronizadas: com elas, o 
programador pode solicitar cálculos ma- 
temáticos complexos, como raiz quadra- 
da, logaritmo, funções trigonométricas 
e outros. Cada uma dessas funções é de- 
finida de taí modo que, assim que reco- 
nhece a função, o interpretador toma o 
valor fornecido para ela pelo programa- 
dor e executa a operação apropriada. O 
nome dado ás funções evoca as opera- 
ções que elas realizam: por exemplo, 
SQR {square root, ou raiz quadrada, em 
■inglês), LOG (logaritmo), COS (cosse- 
)no) etc. 



Tudo corre bem quando as funções 
que se pretende usar em um programa 
existem no BASIC do computador. Mui- 
tas funções matemáticas e não matemá- 
ticas, porém, não fazem parle do BASIC 
padrão. Por exemplo, não há nenhuma 
função chamada CUBE, que seria mui- 
to útil para calcular automaticamente o 
cubo de um número (n x n x n). 

Mas nem tudo está perdido: feliz- 
mente há alternativas para quando o 
programador precisar de uma Função 
não disponível no BASIC. A primeira 
seria evitar o emprego de funções no 
programa: cada vez que um cálculo de 
cubo precisa ser realizado, por exemplo, 
pode-se colocar a expressão completa 
dentro de um comando LET. Se isso 
não for possível — pois o programa fi- 
caria desnecessariamente longo — , 
pode-se programar uma sub-rotina, que 
efetuará os cálculos necessários. 

A solução mais elegante, entretanto, 
consiste em um recurso de muitos interpre- 
tadores BASIC, que permite a definição de 



funções do usuário. Estas agem como fun- 
ções de encomenda, que atuam apenas 
dentro do programa no qual foram defi- 
nidas. Essa opção existe para os usuários 
de computadores das linhas Spectnim, 
TRS-80 (com BASIC nível III), TRS- 
Color, MSX, Apple II e TK-2000. Os mi- 
cros das linhas ZX-81 e TRS-80 (baseado 
em fita cassete) não oferecem essa possi- 
bilidade. Em alguns micros, o recurso de 
definição de funções é bastante poderoso; 
em outros, como veremos, é mais limitado. 

As funções definidas pelo usuário 
dão ao programador a capacidade de 
ajustar o BASIC do computador con- 
forme as necessidades de um programa 
em particular. Os comandos usados pa- 
ra definir uma função diferem ligeira- 
mente de computador para computador, 
mas seguem em geral esta forma básica: 



Aqui, a letra a é o nome da função 
(necessário para quando você quiser uti- 
lizar essa função em outro pomo do pro- 
grama, "chamando-a" pela mesma le- 
tra). O x entre parênteses é o parâme- 
tro da função, ou seja, o valor a ser for- 



um 



FUN Ç ÕES EM BASIC 



COMO DEFINIR SUAS 



PRÓPRIAS FUNÇÕES 



QUANTOS PARÂMETROS? 



COMO USAR UMA FUNCAO 



FUNÇÕ ES PARA MANIPUL AÇÃO 
ALFANUMÉRICA 

UMA FUNÇÃO PARA DESENHAR 

ELIPSES 

FUNÇÕES MAIS RENDOSAS 
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necido para que a função efetue os cál- 
culos. Alguns computadores (Apple, 
TK-2000, MSX e TRS-80) permitem 
dois ou mais parâmetros, enquanto ou- 
tros (TRS-Color), apenas um. 

Para entender o principio gerai de de- 
finição e utilização de uma função em 
um programa, digite e execute o exem- 
plo a seguir. O programa calcula o cu- 
bo de um número qualquer: 



10 CLS 

20 PBINT "KUMEBO","CUBO- 

30 FOR a=l TO 20 

40 PH TNT a . FN c(a) 

50 NEXT a 



60 DEF FN c(x 



10 DEF FNC(X)-X*X"X 

30 PBINT "NUMEBO-.-CUBO- 

40 FOB A-l TO 13 

50 PHINT A.FNC(A) 

60 NEXT 

Uma observação interessante é que, 
no caso do Spectrum, o computador 



nunca chega a atingir a linha 60. onde 
a função FNC é definida. Dessa forma, 
a declaração DEF FN funciona como 
uma linha DATA. Nos damais compu- 
tadores, a linha contendcío DEF FN de- 
ve ser encontrada pelo programa anies 
que a função correspondente seja cha- 
mada. Assim, é conveniente colocá-la 
logo no início do programa. 

Entretanto, os modelos da linha 
Spectrum procuram automaticamente 
por linhas contendo DEF FN, toda vez 
que uma função é invocada. Por isso, 
costuma-se agrupar todos os DEF FN 
no começo do programa, de modo a dar 
a este maior velocidade de execução. 



COMO CHAMAR UMA FUNÇÃO 



Para executar uma função, você tem 
apenas que digitar seu nome (ou seja, a 
letra usada em sua definição) logo após 
a expressão FN, e no ponto do progra- 
ma escolhido para utilização do resul- 
tado do cálculo elaborado por essa fun- 
ção. Isso pode ser visto na linha 40 do 
programa para o Spectrum, e na linha 



50 do programa para os demais compu- 
tadores. No exemplo dado, o programa 
utiliza FNC(A), em vez de FNC(X), co- 
mo aparece na definição (linha 60 para 
o Spectrum, e linha 10 para os demais). 
No caso, A (ou a para o Spectrum) é o 
valor do número cujo cubo queremos 
obter, ou seja, A é o parâmetro real da 
função. Como a variável x, usada na 
DEF FN serve apenas para especificar 
como o parâmetro será usado na expres- 
são de cálculo, ela é chamada pseudo- 
parâmetro. 

Portanto, mesmo que o parâmetro 
seja diferente a cada chamada da fun- 
ção FNC em um programa, a fórmula 
dada permitirá que se faça o cálculo cor- 
reio e que o resultado seja retornado ao 
programa exatamente como as outras 
funções pré-programadas fazem (SQR, 
COS, LOG etc). Assim, a função esta- 
belecida pelo usuário pode ser tratada 
como se fosse uma espécie de abrevia- 
ção para a fórmula de cálculo especifi- 
cada em sua definição. 

No caso de uma função tão simples 
como a do exemplo, você poderia pen- 1 
sar que seria mais rápido usar a expres- 1 
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são X x X x X do que definir a função 
só para poder usá-la depois. De fato, es- 
te é apenas um exemplo. O uso de fun- 
ções definidas pelo usuário só será ren- 
tável quando elas forem chamadas em 
vários pontos do programa, de preferên- 
cia com parâmetros que variem. Aí, a 
economia é realmente notável. Além dis- 
so, DEF FN é capaz de trabalhar com 
expressões matemáticas muito mais lon- 
gas e complexas do que esta. 

Uma boa maneira de aprender como 
funciona DEF FN em um programa é 
experimentar com o exemplo citado, 
mudando a definição da função de di- 
versas formas (dividindo o parâmetro 
por 10, por 2000, calculando a raiz qua- 
drada etc). Para verificar se a função 
definida por você calculou corretamen- 
te, compare os resultados obtidos por 
ela com os obtidos pelo uso da mesma 
fórmula, em modo direto. 



0 NOME DAS FUNÇÕES 



Diversas funções podem ser definidas 
dentro de um mesmo programa. Cada 
uma delas deve ter um nome, que varia 
com o computador. Esse nome é geral- 
mente um caractere (ou cadeia de carac- 
teres) colocado imediatamente após o 
DEF FN. Os micros da linha Spectrum 
só admitem uma letra. Os demais micros 
podem usar até dois caracteres. Desse 
modo, o nome de uma função enfrenta 
as mesmas restrições que um nome de 
variável: o primeiro caractere deve ser 
obrigatoriamente uma letra, e o segun- 
do, uma letra ou um número; além dis- 
so, não podem ser utilizados caracteres 
especiais. Se forem usadas mais de duas 
letras no nome de uma função, o Spec- 
trum reconhecerá apenas as duas primei- 
ras (no exemplo dado, DEF FNCUBO 
será aceita equivalendo a DEF FNCU, 
e não a DEF FNC). 



DEFINA OS PARÂMETROS 



O próximo passo na definição de 
uma função consiste em adi 



râmetros. Estes são formados pelos va- 
lores entre parênteses que devem ser for- 
necidos para que a função efetue o cál- 
culo. Embora possam ser parecidos com 
variáveis dentro do DEF FN, eles são, 
de fato, apenas pseudovariáveis, que va- 
lem só para a definição. 

Tudo o que os parâmetros fazem é 
"dizer" ao computador qual o número 
de valores a serem usados no cálculo. 
Em outras palavras, se você começar 
uma definição deste modo: 
DEF FNE (A, B.C) - 
então o computador esperará que o pro- 
grama forneça três números toda vez 
que FNE for chamada (um erro de sin- 
taxe ocorrerá na maioria dos micros, se 
um número errado de parâmetros for 
fornecido ao se chamar a função). 
Quando a função for chamada, os três 
parâmetros do exemplo podem ser ofe- 
recidos como constantes ou como va- 
riáveis. 

Embora os parâmetros usados na 
DEF FN não sejam variáveis, você po- 
de encará-los como tal, ou seja, como 
uma espécie de variável local, que vale 
apenas na definição. Eles devem ocor- 
rer na expressão após o sinal de igual- 
dade, com o nome com que foram indi- 
cados entre parênteses. Exemplo: 
DEF FNE (A.B,C)=10 + A * B / C 

Os parâmetros podem ser variáveis nu- 
méricas ou alfanuméricas. Mais adiante, 
veremos algumas aplicações para funções 
de tratamento de cadeias alfanuméricas. 20 phint "t 

Já que não são a mesma coisa, parâ- ^" B " 
metros e variáveis podem ter os mesmos ^° l^ul ctj 
nomes, sem que isso implique em inter- 
ferências dos primeiros sobre as segun 
das e vice -versa. 



QUANTOS PARÂMETROS? 



A declaração DEF FN nos micros das 
linhas Apple, TK-2000 e TRS-Color é 
menos versátil do que nos demais com- 
putadores, pois permite apenas um pa- 
râmetro. Todos os outros valores pre- 
sentes na expressão aritmética restante 
precisam ser constantes. 

Suponhamos que você queira multi- 
plicar um valor qualquer por 9.81, co- 
mo parte da função que está definindo. 
O valor a ser multiplicado poderá rece- 
ber o nome do único parâmetro dispo- 
nível, por exemplo, A; a expressão de 
definição da função será 9.81 x A. 

Os outros tipos de computador per- 
mitem o uso de quantos parâmetros fo- 
rem necessários, desde que a definição 
completa da função esteja contida em 
uma única linha. Quando a função for 
chamada, deve-se especificar um núme- 
ro igual de parâmetros, como foi esta- 
belecido na definição, mesmo que haja 
alguns parâmetros a mais que não fo- 
ram usados na expressão de definição. 

Agora, se você quiser verificar esse 
fato na prática, digite NEW e experi- 
mente colocar o programa a seguir (não 
há uma versão para os micros das linhas 
TRS-Color, Apple e TK-2000): 



10 DEF FN a U , 



Quando você tentar executar o pro- 
grama acima, verificará que ele acusa 
um erro na linha 40. Experimente então 
substituí-la por: 

40 PHINT FNa (a, b, 0.0. 0,0) 

O programa passará então a funcio- 
nar, embora ele não use nenhuma infor- 
mação adicional. 





POR QUE USAR UMA FUNÇÃO? 



A vantagem das funções em relação 
às expressões torna-se evidente quando 
é preciso utilizar uma mesma expressão 
em vários pontos de um programa. Nes- 
te caso, o emprego de funções pré- 
definidas economiza memória e tempo 
de digitação e de execução. 

A função definida pelo usuário tam- 
bém é útil quando a expressão é muito 
grande e passível de erros de digitação. 

A seguir, apresentamos um exemplo 
de função matemática que se pode usar 
repetidas vezes em um programa. Ela ar- 
redonda um número qualquer, forneci- 
do por meio de um INPUT, fixando o 
número desejado de casas decimais. Co- 
mo essa função requer dois parâmetros, 
deixamos de oferecer uma versão para 
o Apple, o TK-2000 e o TRS-Color: 



10 FOH G-0 TO 1 STEP 0 
20 PBINT : PRINT : PRINT 
25 PRINT "INTRODUZA 0 NUMERO A 
ARREDONDAR E QUANTAS CASAS 
DECIMAIS VOCE DESEJA" 
30 INPUT N.CD 
40 PRINT : PRINT : PRINT N;* COM "j 
CD;" CASAS - " ; FNR [N , CD) 
50 NEXT G 

A função FNR utiliza uma segunda 
função em sua definição: é a função 
INT, que obtém a parte inteira de qual- 
quer número. O exemplo mostra tam- 
bém outro aspecto interessante nas fun- 
ções predefinidas: elas podem abrigar 
em seu interior outras funções do BA- 
SIC, bem como funções definidas pelo 
usuário. A única limitação, evidente- 
mente, é que não se pode chamar a pró- 
pria função que está sendo definida. 



120 R-Rl : PSET (K+127 , 95+FNY (K) , 2 
) :PSET(K+127,96-FNY(K) ,2) 
130 IF B*R2*R2<B"K*K/A THEN 150 
140 B-B2:PSET(K+127.95+FNY(K) .3 
) :PSET{K+127,96-FNY(K) ,3) 
150 NEXT 
160 GOTO 160 



[UE] 



-B"X*X/ 



Embora o TRS-Color, o Apple II e 
o TK-2000 aceitem apenas funções de- 
finidas com um parâmetro, não é difí- 
cil fazer bom uso desse recurso mais li- 
mitado. Digite e execute o programa a 
seguir, que define e aplica uma equação 
para traçar uma elipse. (Ao ser execu- 
tado, o programa solicitará alguns va- 
lores iniciais, como as constantes A e B, 
e os dois raios da elipse.) 



3aa;" casaa k' " . FN R{numero, 

50 PAUSE 100: NEXT g 

60 DEF FN R(a,b)=INT (a"10"h+ 

0.51/10'b 



10 DEF FNY (X) -SQB (B*R*R-B*X*X/A 

) 

20 PMODE 3,1 
30 PCLS 

40 CLS: INPUT" INTRODUZA AS CONST 
ANTES A E B " ;A,B 
50 INPUT " INTRODUZA OS DOIS RAI 
OS " ;R1 ,R2 

60 R=R1:Y1-FNY{0) : R-R2 : Y2-FNY ( 0 

) 

70 IF Y2>Y1 THEN Y1-Y2 

80 IF Yl>95 THEN R1-R1*95/Y1 : R2 

-R2*95/Y1 

90 SCREEN 1,0 

100 FOR K--127 TO 128 

110 IF B"R1*RKB*K*K/A THEN 130 



10 DEF FNY (X) -SQB (B*l 

A) 
20 HGR 

40 HOME: INPUT "INTRODUZA AS CO 

NSTANTES A E B : " ; A , B 
50 INPUT "INTRODUZA OS DOIS RA 

IOS : " ; BI . B2 
60 LET B-Bl : Y1-FNY!0) : R»R2 

: Y2=FNY(0) 
70 IF Y2>Y1 THEN Y1-Y2 
BO IF Yl>95 THEN R1=R1 "95/ Yl : 

R2=B2*95/Y2 
100 FOR K=-127 TO 128 
110 IF (B*B1"B1) < (B*K*K/A) THEN 

130 

115 HCOLOR 3 

120 R=R1 : HPLOT K+127, 95 ♦ FNY 
( K ) : HPLOT K+127, 96 - FNY 

(K) 

130 IF [B*R2"R2)< (B*K*K/A) THEN 
150 

135 HCOLOR 5 

140 R-R2 : HPLOT K+127, 95 + FNY 
(K) : HPLOT K+127, 96 - FNY 



O programa usa comandos gráficos 
para desenhar a elipse. A função defi- 
nida na linha 10 é usada para calcular 
as coordenadas de cada ponto da elip- 
se. Ela usa internamente uma função 
matemática predefinida do BASIC: a 
função de raiz quadrada (SQR). 



Caso você queira converter esse pro- 
grama para outros micros, eis aqui a 
equação das coordenadas da elipse: 

X e Y são as coordenadashorizontai e ver- 1 



mu 



lical de cada ponto da elipse, R é o seu 
raio (na realidade o programa usa dois 
valores de raio, RI e R2, para cada elip- 
se), e A e B são constantes que definem 
o formato da figura. 



Alguns microcomputadores, como 
por exemplo o Spectrum, o MSX e o 
TRS-80, permitem ainda a utilização de 
variáveis alfanuméricas em funções de- 
finidas pelo usuário. 

Se, mesmo depois de tudo o que foi 
dito, você ainda tem dúvidas a respeito 
da utilidade de uma função que mani- 
pula cadeias alfanuméricas, digite e exe- 
cute, o seguinte programa: 



maiúscula e as restantes em caracteres 
minúsculos. 

Funções alfanuméricas como essa 
trabalham da mesma maneira que fun- 
ções puramente matemáticas. Seus no- 
mes, porém, são diferentes. 

Diversamente das funções matemáti- 
cas, esses nomes devem conter sempre 
uma letra seguida de um cifrão, exata- 
mente como acontece com os nomes de 
variáveis alfanuméricas. 

Como se pode perceber pelo exem- 
plo, a função pode ter parâmetros alfa- 
numéricos, que são usados da mesma 
forma que parâmetros numéricos. 

Um outro programa exemplifica me- 
lhor este ponto. Trata-se de uma rotina 
que emprega uma função alfanumérica 
para abrilhantar as cadeias entradas por 
meio de comandos 1NPUT: 



50 NEXT F 

Esse programa apresenta algumas 
particularidades que devem ser especial- 
mente consideradas. 

Note, por exemplo, o valor um pou- 
co estranho do comando STEP na linha 
10. Na verdade, o que ele faz é causar 
um laço de repetição infinita, informan- 
do diretamente ao computador que o in- 
cremento do comando FOR é 0; isso 
quer dizer que ele nunca irá alcançar o 
valor final 1. 

Embora neste caso seja mais fácil re- 
correr a um comando GOTO, é conve- 
niente que você saiba que programas 
melhor estruturados evitam o GOTO 
para trás, o que seria considerado má 
prática de programação, 



10 PR1NT "Introduza seu nome" 
20 INPUT nS 

.30 TF CODE n5>*50 TH EM I.ET nS 
-FN uS tnS) 

40 PR (NT ' - "Olá," ; nS ; " - eu n 



5 DEF FNUS(XS) - CHRS (ASC{XS) 
- 32)+MIDS(X$,2) 

10 INPUT -INTRODUZA SEU PBIMEI 
RO NOME-.NS 

30 IF ASC(NS)>90 THEN NS - FNUS 
(NS) 



;NS;' 



EU 



[tule 
30 CLS 

35 PB1NT FN tSC " + iS> 
40 PAUSE 150 
50 NEXT £ 

60 DEF FN tS(xS)-t:HBS 1B+CHRS 
1+CHBS Ifi+CHRS 2* "*x** ******* 
********.*«««*•*. «***"+CHR$ 
23+CHRS (16-LEN xS/ 2 ) +XS+CHHS 
23+CHRS ,U* "*•*"** ********** 



■ ■ ■ 



5 DEF FNTS(XS) - STRINGS (16-LEN 
(XS)/2)+XS+STBINGS(16-LEN (XS) 



Observe que esse programa permite 
inicialmente que você entre um nome; 
em seguida, ele chama uma função de- 
finida pelo usuário; essa função impri- 
mirá sucessivamente a primeira letra em 



Eis aqui outro exemplo do comando 
DEF FN em açào. Trata-se de um pro- 
grama relativamente simples, que pode 
ser empregado em tarefas como calcular 
os juros de sua caderneta de poupança. 

Ele define uma função que calcula ri- 
gorosamente o valor a ser atingido por 
um investimento após um dado perío- 
do de tempo, e levando em considera- 
ção os juros pagos por ano. 



10 DEF FN cít)=INT (AM* ( (R/ 
100 + 1 I "T)*100) / 1 DO 
20 TNPUT "«uantos cruzados? 
: AM 

30 INPUT "Taxa (Je juroa (II? 

" ;R 

40 TNPUT "No. de unidades de 
50 PRINT AT 9 .0 : "Quantia Tot, 



um 



FN C(T) 

60 PB I NT TNVEP.SE 1 ; AT 1 
Qualquer tecla para reci 

70 PAUSE 0 : CLS : GOTO I 

DEI '//j ffl 



U + R/100 



'" ; AM 



10 DEF FN C(T)=INT(AM 
) 'T)*100)/100 
20 INPUT "QUANTOS CRUZADOS 
30 INPUT"TAXA DE JUROS (t 
40 INPUT" QUANTAS UNIDADES DE TE 
MPO " ; T 

50 PB I NT" QUANTIA TOTAL APOS APL 
ICACAO , FNC (T) 

60 PRINT : PRINT"QUALQUER TECLA 
ARA RECOMEÇAR " 

70 A5=INKEVS:IF AS»"" THEN 70 
80 GOTO 20 

Para o programa funcionar no 
Appie e no TK-2000, substitua a 
linha 70 por: 

70 GET AS 

O programa Funciona de forma 
muito simples. Definida a função, 
os valores de entrada são coloca- 
dos por meio de uma série de co- 
mandos INPUT, de modo que o 
usuário possa fornecer ao compu- 
tador os detalhes da poupança. 

As variáveis que o programa usa são: 
T, para o período de tempo em questão; 
AM, para a quantia inicial em dinheiro 
a ser aplicada; e R, para a taxa de ju- 
ros, em °?« ao ano. 

O único parâmetro da função FNC 
é T. Isso pode ser percebido facilmente 
a partir da própria definição da função, 
na linha 10. Entretanto, a expressão ma- 
temática na mesma linha contém três va- 
riáveis, que são AM, R e T — e apenas 
uma delas é o parâmetro. Esta é uma ca- 
racterística muito útil das funções defi- 
nidas pelo usuário. Ela permite que se 
misturem parâmetros e variáveis na mes- 
ma expressão, evitando que seja neces- 
sário definir todos os elementos como 
parâmetros. 

Esta é uma maneira de se contornar 
a limitação de um parâmetro por fun- 
ção nos microcomutadores das linhas 
TRS-Color, Apple e TK-2000. 

Já no MSX é possível até mesmo de- 
finir uma função inteiramente sem pa- 
râmetros (neste caso, não coloque pa- 
rênteses, nem cm DEF FN, nem na cha- 
mada à função). 

Os usuários do Spectrum podem es- 
tranhar o fato de que a expressão na li- 
nha 10 usa variáveis ainda não defini- 
das, o que deveria provocar uma men- 
sagem de erro. Entretanto, como foi di- 
to linhas atrás, no Spectrum o processo 
funciona de modo diferente; neste ca- 




so, a linha 10 é procurada depois que as 
variáveis foram definidas pelos coman- 
dos INPUT do programa. 

Os juros calculados aqui são juros 
compostos — isso quer dizer que o va- 
lor ganho em um período é usado para 
calcular os juros do período seguinte 
(juros sobre juros). 



OPERAÇÕES ARITMÉTICAS 



Isso é levado em consideração auto- 
maticamente pela fórmula da função, 
simplificando o cálculo dos números 
procurados. Veja a seguir como se pro- 
cessa esse cálculo na prática. 

Se, por exemplo, a taxa de juros for 
10% após um período de tempo, o pro- 
grama calculará o valor original mais 
0.1 multiplicado por esse valor. Você 
pode ver isto na expressão contida na 
função, como R/100+1. Assim, no 
exemplo dos 10%, o resultado após um 
período de aplicação é de 1.1 vezes o va- 



3%;., 



lor original aplicado. Após dois perío- 
dos, será 1.1 vezes o novo valor, e as- 
sim por diante. Em T períodos, isso da- 
rá 1 . 1 elevado a T. Esta é a segunda par- 
te da função, que toma a forma com- 
pleta vista no programa, ou seja, 
(R/100+DT. A parte restante da ex- 
pressão multiplica isto pelo valor do 
principal (AM) e arredonda o resultado 
final para duas casas decimais, multipli- 
cando por 100, tomando o seu INTei- 
ro, e dividindo por 100. 

Tudo se resume, portanto, a simples 
operações aritméticas. 

Você poderá também definir fun- 
ções trigonométricas que não existem na 
maioria dos interpretadores BASIC, co- 
mo arco seno e arco co-seno. 

ASN (X) -ATN (X/SQR (-X"X+1) > 
ACS (X) —ATN (X/SQR (-X* 
X+I))+1.57Ú8 

Agora, procure treinar, "inventan- 
do" algumas funções novas para outras i 
áreas da matemática. 
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UM EDITOR DE 
TEXTOS (3) 



As duas primeiras parles desta lição 
apresentaram as funções básicas de edi- 
ção na tela, que permitem criar textos 
e armazená-los. A terceira e última parte 
fornece as rotinas de ordenação, procu- 
ra de palavras, impressão e uso de 
"máscara de texto". 



ORDENAÇÃO 



Baseada na rotina de troca retarda- 
da, a rotina de ordenação é usada para 
colocar linhas em ordem alfabética. Ela 
é de grande utilidade para ordenar no- 
mes ou outros dados. 



PROCURA DE PALAVRAS 



Essa rotina "varre" o texto em bus- 
ca de uma determinada palavra ou frag- 
mento de palavra. Ela deve ser ativada 
dentro do modo editor. A procura co- 
meça no ponto onde o marcador está lo- 
calizado. Por isso, certifique-se de que 
ele está na posição mais adequada para 
dar início a busca. 

Há dois motivos básicos para que 
não se ache a palavra procurada: ou ela 
foi digitada de modo errado ou está di- 
vidida em duas Unhas. 

Quando a palavra for encontrada, o 
programa continuará no modo editor e 
a linha poderá ser copiada imediatamen- 
te na área de trabalho. 



IMPRESSÃO 



A rotina de impressão possibilita o 
envio do texto gerado para a impresso- 
ra. Ela apresenta algumas característi- 
cas especiais, incluindo uma rotina pa- 
ra controlar o formato das cartas e ou- 
tra para uso do texto com "máscara", 
permitindo que você adicione partes va- 
riáveis ao texto. 

Se a sua impressora trabalha com co- 
mandos não padronizados, pode ser ne- 
cessário algum ajuste no programa. 
Preste particular atenção aos caracteres 
que provocam avanço de linha {Une- 
feed, ou LF) e retorno do carro {carria- 
ge return, ou CR). O programa usa o ca- 
ractere ASCII 13 para ambas as funções. 



FORMATAÇÃO 



Pouco adiantaria poder escrever e 
corrigir um texto se não fosse possível 
imprimi-lo na forma desejada. Pode ser 
necessário, por exemplo, colocar o ca- 
beçalho da página no centro de uma li- 
nha, seguida por outras linhas em bran- 
co. Isso se torna fácil quando se usam 
os comandos de formatação. Outro 
exemplo comum é quando se quer co- 
locar a data ou o endereço do remeten- 
te na margem direita e o endereço do 
destinatário à esquerda. 

Os símbolos empregados na rotina 
de formatação são os mesmos do pro- 
grama do artigo Escreva Carias sem 
Esforço (página 17). Lembre-se de que 
eles devem aparecer sempre no início 
da linha. Esses símbolos são os seguin- 
tes: o sustenido (" # "), que coloca a li- 
nha de texto na margem direita da pá- 
gina (se existir só uma linha com essa 
marca, ela será colocada com o último 
caractere na última posição da linha; se 
houver mais linhas, o programa procu- 
rará a mais longa e alinhará as outras 
com base nesta); o ampersand {"&"), 
que faz o texto que o segue ser impres- 
so no início da linha seguinte (por exem- 
plo, ele pode ser usado em cartas, para 
posicionar cada linha do endereço do 
destinatário); o cifrão ("$"), que, além 
de passar o texto para outra linha, pro- 
voca um recuo na primeira palavra da 
nova linha; o asterisco ("*"), que co- 
loca o texto no centro da linha. Ao usar 
essa rotina, tenha cuidado com linhas 
de texto muito longas. Estas devem ter, 
no máximo, a mesma largura da linha 
de impressão. 



COMO USAR "MÁSCARA DE TEXTO" 



Além dos comandos de formatação, 
o programa dispõe de outro recurso 
(inexistente no do Spectrum) com o quai 
se pode criar uma carta padrão e deixar 
que algumas partes específicas sejam va- 
riáveis. Esse recurso é o "símbolo de 
máscara". Ele opera do seguinte modo: 
quando você quiser inserir uma frase no 
texto, coloque um par de colchetes 
("][") na posição escolhida. No momen- 



A procura da palavra certa foi sempre 
um elemento estimulante para 
os grandes escritores. Esta lição 
ensina como fazer isso com a 
prosaica ajuda de um computador. 
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A ARTE DE PROCURAR 



CARTA PADRÃO 



CENTRAR O TEXTO 



AJUSTAR A DIREITA 



AJUSTAR A ESQUERDA 



ESPAÇAMENTO 



to da impressão, esse sina! será substi- 
tuído pelo bloco de texto apropriado. 
Dessa maneira, você pode começar a 
carta com um "Caro ][" e só digitar o 
nome do destinatário quando lhe convier. 

O "símbolo de máscara" pode ser 
colocado em qualquer posição no tex- 
to, menos depois de um sustenido ( # ). 
É que o programa mede primeiro o ta- 
manho de cada linha que vai ser posi- 
cionada à direita, determinando a seguir 
onde deve começar a impressão dessas 
linhas. Como essa operação é feita an- 
tes de se carregar os blocos variáveis, 
sempre surge algum problema. 

O texto que substitui os colchetes é 
digitado diretamente do teclado na ho- 
ra da impressão, ou lido de um arquivo 
criado pelo próprio programa, 

O máximo de caracteres admitido por 
linha no TRS-Color é 32. No MSX, es- 
se número sobe para 39 e, no Apple, pa- 
ra 40. O texto será quebrado, assim, em 
unidades de 32 a 40 caracteres, depen- 
dendo da máquina. Cada par de colche- 
tes permite a entrada de, no máximo, 
250 caracteres. 

Se os blocos variáveis de texto forem 
carregados de um arquivo, o computa- 
dor se encarregará de colocar os dados 
nos seus devidos lugares. Cuide apenas 
para que os dados estejam na ordem 
correia e para que haja informação pa- 
ra todos os pares de colchetes. 




4000 REM imprimir 
4010 LET tt-(pl-ll)/2 
4020 LET 6=0 
4025 FOR n=t+3 TO b-3 
4010 LET aS=tS(n) 

4033 XF LEN a5 = 0 THEN NEXT n: 

retijrn 

4034 IF aSILEN aS-DOCHRS 32 T 
HEN CÍOTO 4037 

4035 1F a$(LEN aS)=CHRS 32 THEN 
LET a$=a5( TO LEN aS-l): GOTO 

4032 

4037 LET 1 -LEN aS 
4040 LET c-0 

4050 TF c^i THEN NEXT n; LPRIN 

T CHRS 1 3 : RETURN 

•3060 LET t: = c+] : LET (l = ri+l: IF c 

>] THEN GOTO 4100 

4070 IF aS(c)-"t" THEN GOTO 45 

00 



4080 IF aSÍO-**" THEN GOTO 47 
00 

4085 tF aS(c)-"i" THEN GOTO 48 

SO 

4040 IF aS(c)-"S" THEN LPRINT 
CHRS 1.1; CHRS 13;- LET d-0 1 GOTO 
4900 

4100 LET n=n+t I IF n>-b-l THEN 
LET 1 -L.EN aS ! GOTO 41 1 1 

4105 IF r.S(n.l)- _ S" OR tStn.l)- 
OH I S (n, 1) OH t.SCn.1)-" 

S." THEN GOTO 4 110 

4106 LET aS-aS+t.SIn) 

4107 TF aSÍLEN aS-1)OCHRS 32 T 
HUN UUTO 4100 

4108 IF aS (LEN aSl-CHRS 32 THEN 
LET aS-aS( TO LEN aS-l ) 

4109 GOTO 4X07 

4110 LET n-n-1: LET 1 -LEN aS 

4111 IF aS(e)-CHR$ 32 THEN GOT 
1> 4800 

4 112 LPR INT aS (C) ; 

411S 1 F d > I I THEN LET d-0 
4120 GOTO 4050 

4500 LET nl = 0: LET Ca-ll i LET b 

e»0 

4510 LET 1 e = LEN a$-l: TF le>ll 
THEN PH TNT FLASH 1 ; " ERRO NO F 
ORMATO - ENDERECO MtJITOLONGO" : 
ROtIND 2,10: HETtIRN 
4520 IF le>be THEN LET be=le 
4530 LET nl=nl+l: LET n=n+l : LE 
T aS*t3 (n) 

4532 IF LEN aS = 0 THEN NEXT n: 
RETURN 

4.535 IF aS (LEN aS)=CHHS 32 THEN 
LET aS=aS{ TO LEN aS-1)- «OTO 
45.12 

4538 IF aS(l>-"i" THEN GOTO 45 
1 0 

4540 I. ET ||«3 

4550 LET tr-tt+ll-be: FOH o-l T 
O nl : FOR h-1 TO tr : LPRINT CHR 

5 32;; NEXT h: LET n-n+1 ! LET a 
S = LS ín) 

4552 TF LEN aS-0 THEN NEXT n: 
RETUHN 

4555 IF aS (LEN aS)=CHRS 32 THEN 
LET aS-aS( TO LEN aS-J); GOTO 
4552 

4558 LPRINT aS(2 TO ): NEXT 9 
4560 NEXT n: RETURN 
4700 LET ta»(ll-l)/2+tt: IF ta< 
r.t THEN LPHTNT CHRS lil PHINT 

FLASH 1;"ERRO NO FORMATO - TMP 
OSSIVEL CENTRALT2;AR" : SOtIND 
2,10: RETURN 

4710 LPHTNT CHRS 13;: FOH m- I T 
O ta! LPRINT CHRS 37;: NEXT m : 
LPRINT aS(2 TO ) ; : LET d=0 : NEX 
T n: RETURN 

4800 LET Bl-ll-d-1: LET cc=c+l : 6 
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LET x-1 

4B1C) TF cc>-l THEN GOTO 4B25 
4830 IF aSíccJOCHRS 3? THKN L 
ET CC-CC+1: LET X=x+ 1 : GOTO 481 
0 

4825 XI x>-U THEN LPRINT CHRS 
13- PRTNT FLASH 1; "ERRO NO 70 
RMATO - PALAVRA MUITO GRANDE" : 
SOUND 2.10: RSTURN 
4830 IF sl>«x THEN GOTO 4112 
4850 1. PRINT CHRS 11;: L. ET d = 0 
4900 FOR m=l TO tt: LPRTNT CHRS 
32; : NEXT m: GOTO 4050 

eoon rem procura 

8002 IF zS-"" THEN PHT NT #l;AT 
0.0; BR1GHT 1 i "Nao foi definid 
a a palavra alvo': PAUSE 100: P 
RTNT #1. ;AT 0 , 0 ; sS ; bS : RETURN 
8005 PRTNT il;AT 0 . 0 j b$ ; a$ : TF 
p-n-2 THEN LET p=4 
B010 FOR n=J TO 33-LEN zS 
8020 IF r.SIp.n TO n+LEN zS-l)=z 
S THEN LET B-33-tK« zS : NEXT n 
: GOTO 8 050 
8030 NEXT n 

8040 LET p=p+l: TF p=h-2 THEN 
1.F.T p=p-l : GOTO «050 
B045 GOTO 8010 

8050 LET p=p+l : OOSUB 1000: RET 



URN 

8500 REM ordenação 

8505 PRINT iliAT C1,0;3S;hS 

8510 LET B3=4 

8520 TF t$(as.l)= THEN GOTO 

B550 

8530 LET ss=fl9+l : TF as=h THEN 
PRTNT IliAT 0,0; BR1GHT l;"Lim 

it.es nao definidos": PAUSE 100: 
PRTNT IliAT 0.0;aS;aS: RETURN 

8540 GOTO 8520 

8550 LET se=ss+l 

8560 TF tSÍM.U-""" THEN GOTO 
6600 

8570 LET ae-se+1 : IF ae-b THEN 

PRTNT #1;AT 0,0; BRXGHT l;"Som 
ente um limite foi definido"; P 

AIISE 100: PRTNT IliAT 0,0;hSíhS 

: RETURN 

8580 GOTO B560 

8600 IF 3s=ne-l OR 33=9e-2 THEN 

GOTO 8900 
8610 PRINT IliAT 0.0; RRIGHT li 
"Ordenando- 

8620 FOR i=as+l TO ee-l 

8630 LET k=i 

B640 FOR TO ae-1 

8650 IF t.3íj)<tS(k) THEN LET k 



B660 NEXT j: TF uOx THEN LET 
wS-tS(k): LET tS(k) -ti Cl) : LET 
T.S(l)-wS 
B670 NEXT 1 

8900 FOR n-au TO b: LET tS In) -t 
S (n+1) : NEXT n 

8910 FOR n=Be-l TO b: LET t$ (n) 

-tS(n+l): NEXT n: LET b-b-2 : TF 
p>b-2 THEN LET p-p-2 

8915 PRINT ll;AT 0.0:s$;hS 

8930 GOStJB 1000 

8940 RETURN 

Para usar a rotina de ordenação, 
marque os pomos correspondentes ao 
início e ao fim da operação, colocan- 
do uma flecha (T) acima da primeira 
linha a ser ordenada e outra abaixo da 
última. Para iniciar o processo, tecle 
[CAPS SHIFT] e 4. As flechas serão eli- 
minadas durante a ordenação. 

Para fazer a operação de busca, te- 
cle [CAPS SHIFT] e 2; a palavra a ser 
procurada deve ser digitada conforme 
requisitado. A busca começará imedia- 
tamente. Assim que o computador en- 
contrar a primeira ocorrência, o cur- 
sor aparecerá sob ela. Se quiser con- 
tinuar a procura mais adiante, pressio- 
ne [CAPS SHIFT] e 3. Para alterar a pa- 
lavra, tecle [CAPS SHIFT] e 2. 

Tecle 6 para entrar na rotina de im- 
pressão da linha 4000. Isso fará o texto 
ser impresso de acordo com o que foi 
definido na rotina da linha 100, ou se- 
ja, 32 caracteres por linha e 32 linhas 
por página. Se quiser alterar esses valo- 
res, tecle 7 e não 6. 

Na formatação do texto, coloque o 
sinal adequado, para que a linha seja 
impressa do modo desejado. O sinal 
" # " indica que a linha deve ser posi- 
cionada junto à margem direita do tex- 
to. O "&" provoca uma mudança de li- 
nha e inicia a impressão na margem es- 
querda. O "$" faz com que haja um 
avanço de duas linhas e não de uma ape- 
nas. O "*" centraliza o texto. 

■ ■ 

3000 CLS:PRINTS7.BLS;"IMPRESSAO 
" ;BL? 

3010 IF TL<2 THEN 3050 

3020 PRINT "DA (M) EMORIA OU DE í 

AJRCjUIVO ?" 

3030 RS-INKE¥S:IF RS<>"M" AND R 

SO"A" THEN 3030 

3040 IF RS="M" THEN 3060 

3050 GOSUB 4500 

3060 IF TL=1 THEN PRINT [nao ha 

arquivo" : PYS="T2 0O3EDCA" :GOTO 
3570 

3070 KF=0:PRINT "QUER USAR MASC 
ARA (S/N) ?" 

3080 RS=INKEYS:IF RS<>"S" AND R 
S«"N" THEN 3080 
3Q90 IF RS-"N" THEN 3150 
3100 PRINT : PRINT "CARREGA BLOCOS 
VARIÁVEIS (T1ECLAD0 OU 



17 APUCAÇÒÍS 17 



(A)RQUIVO?" 

3110 BS-INKEYS:IF HSO"T" AND R 
$<>"A" THEN 3110 

3120 KF-2:IF HS-"T" THEN KF-1:G 
OTO 3150 

3130 PRINT : LINEINPUT " INTRODUZA 

O NOME DO ARQUIVO " ;VBS 
3140 IF LEFTS ( VBS . 1) <"A" OR LEF 
TSIUBS. 1) >"2" THEN 3130 
3150 CLS:PRINT "DESEJA REPROGRA 
MAR A IMPRESSORA (S/N) ?" 
3160 RS=INKEYS:IF RSO"S" AND R 
SO"N" THEN 3160 
3170 IF RS="S" GOSUB 5500 
3180 CLS 

3190 VB-0:PP-0-AZ-0:LC-l:PRINT 
"DESEJA IMPRIMIR NA TELA (S/N)? 
" : PRINT"enter RETORNA AO MENU P 
RINCIPAL" 

3200 RS-INKEYS:IF HSO"S" AND R 
S<>"N" AND RSOCHRS 113) THEN 32 
00 

3210 IF RS-CHRS(13) THEN RETUHN 

3220 IF KF-0 THEN 3240 

3230 IF DL-1 AND KF-2 THEN FREA 

D VBS.FROM 0;DV: FREAD VBSrDV E 

LSE IF K = 2 THEN OPEN "I".|-1,VB 

S : INPUTI-l . DV.DV 

3240 P=0 ! GPS"" " : IF RS="N" THEN 

P— 2:GPS-STRINGS (GP, 32) 

3250 FOR K-l TO TL-1 : IF LEFTS (T 

XS(X). !)="•" AND LEN (TXS (K) ) -1> 

AZ THEN AZ=LEN (TXS (K) ) 

3260 NEXT i IF AZ>TW THEN PRINT"e 

rro-endereco muito longo" :PYS=" 

T402AB" :GOTO 3570 

3270 K-1:PRINT»P.LF$;GPS; :AS-"" 

:IF A2>0 THEN AZ$=STRINGS (GP+TW 

-AZ .32) 

3280 TTS=TXS (K) 

3290 IF TTS-"" THEN PHINT #P,CH 
RSU3) ;GPS; : PP-0 : LC-LC+1 : GOSUB 
3590:GOTO 3520 

3300 BP=INSTR<TTS." )[") :IF BP-0 

OR KF=0 THEN 3390 
3310 IF KF-1 THEN 3370 
3320 IF DL=1 THEN 3360 
3330 IF EOF(-l) THEN 3350 
3340 INPUT*-1 ,RPS:GOTO 3380 
3350 PRINT"erro-f alta de dadoa 
no arquivo" : PYS-" L20O5DL4O2D" :G 
OTO 3570 

3360 IF EOF(VBS) THEN 3350 ELSE 

FLREAD VBS;RPS:G0TO 3380 
3370 BL-BL+1 : PRINT : PRINT "INTRO 
DUZA BLOCO VARIÁVEL" ;BL ;*?" i !LI 
NEINPUT RPS 

3380 TT$*LEFT$ (TTS , BP-1) +RPS+MI 

DS(TTS.BP+2) :GOTO 3300 

3390 ON INSTR ( "S.S"! " , LEFTS (TTS 

,1)) GOTO 3460,3470.3490,3510 

3400 IF PP+LEN (TTS! <=TW THEN PR 

INTIP.TTS: : PP-PP+LEN (TTS) : GOTO 

3520 

3410 TAS=LEFTS(TTS,TW-PP) 
3420 IF INSTHÍTTS." " ) >TW THEN 
PRINT "erro-palavra muito grand 
e na",TTS:PYS="T10O2CB":GOTO 35 

70 

3430 IF RIGHTS(TAS.l)-" " THEN 
3450 

3440 IF LEN (TAS) >0 THEN TAS-LEF 
TSITAS.LEN(TAS)-l) : GOTO 3430 



3450 PHINTIP.TAS;CHRS(13) ;GPS; : 
PP=0 : LC-LC+1 : GOSUB 3590:TTS-MID 
$(TTS,LEN(TAS)+1) :IF TTS<>"" TH 
EN BP=l:GOTO 3400 ELSE 3520 
3460 PRINT»P, CHRS (13) :GPS :: PP-0 
: LC-LC+1 : GOSUB 3590 : TTS-MIDS (TT 
S. 2) :GOTO 3300 

3470 TTS-MIDS (TTS. 2) :PRINT|P ,CH 
RS (13) ;GPS;STRINGS (INTÍTW/4) . 32 
) : :PP-INT(TW/4) 

3480 LC-LC+1 : GOSUB 3590:GOTO 33 
00 

3490 TTS-MIDS (TTS . 2) : IF LEN (TTS 
) >TW THEN PRINT"erro-unpoamvel 
central i zar" ;TTS : PY$-"T103C" :G 
OTO 3520 

3500 PRINT#P,CHRS(13) íGPSjSTRIN 

GS(INT( (TW-LEN(TTS) )/2) , 32) :TT$ 

; CHRS (13) ;GPS; : PP-0 : LC-LC+1 :GOS 

UB 3590:GOTO 3520 

3510 PRINT#P,CHBS(13) :AZS;MIDS( 

TTS . 2 ) ; : PP-0 : LC-LC+1 : GOSUB 3590 

3520 K-K+1:IF P-0 THEN FOR Z-l 

TO 500: NEXT 

3530 IF K<TL THEN 3280 

3540 IF P--2 THEN PRINT IP.LFSi 

LFS ELSE PRINT : PRINT 

3550 IF K-l THEN CLOSE í~l ELSE 

IF KF-2 THEN CLOSE 
3560 IF P=0 THEN 3190 ELSE RETU 
RN 

3570 FOR 2=1 TO 10:PLAY PYS:NEX 
T:IF KF-1 THEN CLOSE»-l ELS IF 
KF-2 THEN CLOSE 
3580 RETURN 

3590 IF LOTH THEN PRINT tP.LFS 
;LFS;GPS; :LC-1 
3600 HETURN 

5070 L-CP:PBINT §384 . " INTRODUZA 

PALAVRA PROCURADA" 
5080 LINEINPUT TGS:IF TGS-" " TH 
EN 5070 

5090 PHINT 8500 , "procurando" ; BL 

S; 

5100 TF L-TL THEN CP-TL : CLS : GOS 
UB 2090: RETURN 

5110 IF INSTH (TXS (L) . TGS) -0 THE 

N L-L+1:GOTO 5100 

5120 CP-L+1 :CLS:GOSUB 2090:HETU 

RN 

5130 IF SS>SE THEN TT-SS: SS-SE 
: SE-TT 
5140 SE-SE-1 

5150 PRINTS500 , "ordenando" ; BLS : 
5160 FOR I-SS TO SE-1 
5170 K-I 

5160 FOR J-I+l TO SE 
5190 IF TXSÍJXTXS(K) THEN K-J 
5200 NEXT : IF IOK THEN TTS-TXS ( 
K) :TX$(K)-TX$(I) :TX$(I)-TTS 
5210 NEXT ! CLS : GOSUB 2'090:RETURN 

Para fazer funcionar a rotina de or- 
denação, entre no modo editor e leve o 
marcador ">" para um dos extremos 
do bloco a ser ordenado. Então, tecle 
"@". Em seguida, mova o marcador, 
levando-o para o outro extremo, e tecle 
"@" novamente. Essa operação inicia 
automaticamente a ordenação. 

A função de procura de palavras é 
ativa, denlro do modo editor, quando 



se pressiona a tecla P. Você responde 
qual a palavra a ser procurada por in- 
termédio da mensagem mostrada na 
área de trabalho. Pressione a tecla [RE- 
TURN] para dar início à busca. Quan- 
do a palavra desejada for encontrada, 
o marcador será colocado logo abaixo 
da linha que a contém. 

Para imprimir um texto já editado, 
tecle I a partir do menu principal. Você 
terá então de responder a várias pergun- 
tas. A primeira delas indaga se o texto 
a ser impresso está na memória ou no 
arquivo. Caso você escolha imprimir o 
que está na memória e não haja nada 
aí, um sinal sonoro será ativado e uma 
mensagem mostrada na tela do compu- 
tador; o programa voltará então ao me- 
nu principal. 

Em seguida, será oferecida a opção 
de mudar os parâmetros da impressora. 
Responda com S ou N. Essa rotina tor- 
na possível a alteração dos valores pre- 
determinados, que são os seguintes: 80 
para a largura do formulário, 60 para 
a largura da linha de texto (deixando 
margens de dez colunas), 66 para o nú- 
mero de linhas total por formulário e 60 
para o número de linhas de texto (dei- 
xando três linhas de espaço no topo e 
no fim da página). 

Assumidos quando o programa é exe- 
cutado, os valores indicados acima se- 
rão mantidos até que você os altere. 

A última pergunta diz respeito a uma 
cópia do texto na tela. Se você respon- 
der S, o texto será imediatamente colo- 
cado na tela; um N se encarrega de en- 
viá-lo para a impressora. 

Os sinais empregados para formata- 
ção do texto são os mesmos que apare- 
cem no programa do já citado artigo da 
página 17. O sustenido (" # ") faz com 
que a linha seja levada para a margem 
direita, enquanto o cifrão ("$") provo- 
ca um avanço de uma linha e um recuo 
do texto subsequente. 

O ampersand ("&") determina um 
avanço de linha, fazendo com que o tex- 
to a seguir seja impresso no início da li- 
nha abaixo (sem recuo). O asterisco 
("*") centraliza a linha de texto. 

Para inserir blocos de texto variáveis 
dentro do texto principal, utilize um par 
de colchetes ("'][") na posição desejada. 
Responda S quando perguntado se de- 
seja recorrer à "máscara de texto". Os 
blocos podem ser lidos a partir do tecla- 
do ou de um arquivo. Se sua opção for 
pelo teclado você deve digitar cada blo- 
co quando o programa pedir. No caso 
de escolher o arquivo, essa operação se- 
rá feita automaticamente — o compu- 
tador lerá o texto de um arquivo previa- 
mente preparado para isso (use o pró- 
prio programa). 
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3000 CLS:BLS="Imprimir":GOSUB 2 

20 

3010 IF TL<2 THEN 3050 

3020 PRINT : PRINT: PRINT" Impr í me 

texto da [M]emona ou [F]ita?"j 

3030 RS=INKEYS:TF R3<>"«" AND R 

SO"F" THEN 3030 

3040 IF RS="M" "THEN 3060 

3050 GOSUB 4500;CLS:BLS-"Tmpnm 

ir":GOSUB 220 

3060 IF TL=1 THEN BEEP : LOCATE 8 
, 12 : PRINT"Não há texto na memór 
ia!":FOR 1=1 TO 1 000 : NEXT : RETUR 
N 

3070 KF-0 : PR T NT : PRTNT"Q.uer uaar 
máscara? (S/N)"i 
3080 RS-INKEVS-IF RSO"S" AND R 
SO"N" THEN 3080 
3090 IF RS=*N" THEN 3150 
3100 PR TNT : PR JNT"CarreQa oa hlo 
cos variáveis do ITJecla 
do ou da [Vjttsri 
3110 RS=INKEYS:IF R5<>"T" AND R 
3<>-F" THEN 3110 

3120 KF-2rIf R3-"T" THEN KF=1:G 
OTO 3150 

3130 PRINT : LINE TNPUT" Nome do ar 
quivo ■ : VBS 

3140 IF LEFTS (VBS . 1) <"A" OH USF 
TS (VBS, 11 >"Z" THEN 3130 
3150 PB INT : PR TNT "Al ter a a confi 
guração da imp 

ressora? (S/N) " ; 



3160 RS=INKEYS:IF R5<>"S" AND R 

SO"N" THEN 3160 

3170 TF RS="S" THEN GOSUB 5500 

31B0 CLS : BLS= " Impr ímir " : GOSUB 2 

20 

3190 VB = 0 : PP-0 :AS = 0 : LOJ : PRTNT: 
PRINT : PRTNT"Quer uma demonstraç 
ão na tela? {S/N). " ; PR INT" Te c 1 e 
<RETURN> para retornar ao menu" 

3200 RS=INKEYS:IF R50"S" AND R 
SO"N" AND RSOCHRSU3) THEN 32 
00 

3230 IF RS-CHRS (13) THEN RETtIRN 
3220 TF KF<>2 THEN 3240 
3230 OPEN VBS FOR TNPUT AS *i : I 
NPUT#] .DV.DV- 

3240 P=0 :GP5="" : IF RS="N" THEN 

P=-l :GPS=STRINGS (GP. 32) 

3250 FOR K=l TO TL-1:TF LEFTS (T 

X3(K) ,1)="#" AND LEN(TXS(K))-1> 

AS THEN AS=LEN(TX5(K)) 

3260 NEXT ; IF AS>TW THEN PRTNT : P 

H I NTTAB (10) : " Erde r eco muito Ion 

go! " :GOTO 3610 

3270 K-i :AS-"" :IFAS>0 THEN A$ = S 
TRINGS(GP+TU-AS, 32) 
3280 TF NOT P THEN PR [NT : PRINT : 
PRTNT ; ELSE L PRTNT LFSíGPS; 
3290 TTS=TXS (K) 

3300 IF TTS<>"" THEN 3320 ELSE 
IF P THEN LPRINT LIS;GPS ELSE P 
RI NT 

3310 PP-0 : LC-LC+1 : GOSUB 3630:GO 
TO 35 60 



3320 BP'INSTR(TTS."][") :IF BP=0 

OR KF = 0 THEN 3390 
3330 TF KF-1 THEN 3370 
3340 TF EOFU) THEN 3360 
3350 INPUTtl , RPS : GOTO 3360 
3360 PRINT : PRINTTAB ( 3 ) "Fim de d 
ados para blocos variáveis! " :GO 
TO 3610 

3370 BL-BLH * PRINT : PR INT"B1 oco 
variável "; BL ;"?";: LINEINPUT RPS 
338 0 TTS- LEFTS (TTS . BP-1) +HPS+MI 
DS(TTS.BP+2) :GOTO 3320 
3390 ON INSTR <"*.$**", LEFTS (TTS. 
1 ) ) GOTO 3470,3490.3510,3540 
3400 IF PP+LEN(TT$)OTW THEN IF 
P THEN LPRINT TTS S CHRS ( 32 ) ; : PP 
=PP+LEN (TTS) : GOTO 3560 ELSE PRI 
NTTTS ; CHRS (32) ; : PP-PP+LEN {TTSI : 
GOTO 3560 

3410 TAS=LEFTS(TTS.TU-PP) 

3420 IF INSTR (TTS . " " > >TU THEN 

PRINT : PRINT" Pai a vr a muito lonqa 

eu:': PRT NTTTS ! GOTO 3610 
3430 IF RTGHTS ÍTAS , 1 ) -CHR$ ( 32) 
THEN 3450 

3440 IF LEN(TAS)>0 THEN TAS = I-EF 
TStTAS.LEN(TAS)-l) : GOTO 3430 
3450 IF P THEN LPRTNT TAS: LIS iG 
PS; ELSE PRINTTAS 
3460 PP-0 : LC=LC+1 : GOSUB 3630:TT 
S=MIDS(TTS.LEN(TAS)+1) :IF TTSO 
THEN BP-1: GOTO 3400 ELSE 356 

0 

3470 IF P THEN LPRINT L1S;GPS; 
ELSE PRINT 
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34B0 PP=0:LC=LC=1:GOSUB 3630:TT 

S=MTD5 (TTS . 2) : GOTO 3320 

3490 TTS=Mir>S (TTS. 7.) : IF P THEN 

l.PRINT LlS;GPS;STRTNGS(TW/4.32) 

! ELSE PRTNT * LOCATE TW/4 

3500 PP=rNT(TW/4] : LC=LC+1 : GOSUB 

3630: GOTO 3320 
3510 TTS=MTDS (TT$ , 2) : IF LEN (TTS 
)>TH THEN PR TNT ; PP TNT" L í nha mui 
to grande para rentral ] zar : " : PH 
INTTTS : GOTO 3610 

3520 SS*STRTNGS ( TNT ( [TW-LEN (TTS 
))/2),32):TF P THEN L PR TNT LIS; 
GPS ; SS ; TTS ; LI 5 ; GPS ; ELSE PRINT: 
PRTNTSS ; TTS 

3530 PP = 0 : LC-LC+l : GOSUB 3630:GO 
TO 3560 

3540 IF P THEN LPBTNT AS;MIDS(T 
TS,2); ELSE PRTNTAS :MIDS (TTS . 2) 

3550 PP-0:LOLC+1 iGOSUB 3630 
3560 K-K+liXF P*0 THEN FOR Z-l 
TO 500 : NEXT 

3570 TF K<TL THEN 3290 

3580 IF P THEN l.PRINT LFS ; LFS E 

LSE PRTNT : PRINT 

3590 TF KF-2 THEN CLOSEI1 

3600 IF NOT P THEN 3190 ELSE RE 

TURN 

3610 PLAY "03L3CR64L3CR64LHCR64 
L3C--FOR 1=1 TO 2500-NEXTtTF KF 
-2 THEN CI.OSEtl 
3620 RETURN 

3630 IF LOTH THEN IF P THEN LP 
RINT LF5;LFS;GPS EI.SE PRTNTLFS : 




LFS ; 

3640 LC- l : RETIIRN 

5000 L-CPt LOCATE 0,19: LTNEINPUT 

"Procura por : " iTGS 
50)0 IF TGS-"" THtN 5050 
5020 PRINT"Prncijrando. . . " 
5030 IF L»TL THEN CP-TL ; CLS ;COS 
UB 20H0:RET1IRN 

5040 IF INSTR (TXS (L) ,TGSt=0 THE 
N L-I. + l :GOTO 5030 

5050 CP-L+1 :CLS : GOSUB 20flD:RET(J 
RN 

5060 IF SS>SE THEN SUAP SS.SE 
5070 SE-SE-1 

5080 LOCATE 0 . 20 : PRTNT"Ordenand 

5090 FOR I = 5S TO SE-1 

5100 K-I 

5110 FOR .1-1 + 1 TO SE 

5120 TF TXS ( J) <TXS (K) THEN K-J 

5130 NEXT : I F IOK THEN SWAP TXS 
[KJ .TXS (I) 

5140 NEXT : CLS : GOSUR 2080 : RETURN 

A rotina de ordenação é acessada a 
partir do modo editor. Leve o marcadoi 
para um dos extremos das linhas a se- 
rem ordenadas e tecle CTRL-O. A se- 
guir, transfira o cursor para o ouiro ex 
tremo e tecle novamente CTRL-O. A or 
denaçào se iniciará imediatamente. 

A rotina para a procura de palavras 
também é ativada dentro do modo edi- 
tor. Leve o marcador para a posição a 
partir da qual quer iniciar a busca. Te- 
cle CTRL-P e digite a palavra que deve 
ser procurada. Tecle [RETURN] para 
iniciar a busca. Assim que a expressão 
for encontrada, o marcador será colo- 
cado abaixo da linha que a contém. Pa- 
ra continuar procurando outras ocor- 
rências da mesma palavra, tecle CRTL- 
P; digite [RETURN] apenas quando a 
palavra for solicitada. 

Para acessar a rotina de impressão, 
tecle I a partir do menu principal. Vá- 
rias perguntas serão feitas. A primeira 
refere-se à possibilidade do texio a ser 
impresso vir da memória ou de um ar- 
quivo em fita. 

A seguir, você deve responder se quer 
usar "máscara de texto" ou não. Essa 
rotina possibilita a inserção de partes 
variáveis no texto principal. Para isso, 
coloca-se pares de colchetes ("1["> nas 
posições desejadas. Desse modo, quan- 
do o programa encontrar esse sinal no 
texto, irá substituí-lo por um bloco que 
pode ser carregado do teclado ou de um 
arquivo. Se você optar por dar entrada 
pelo teclado, deve digitar o texto neces- 
sário toda vez que for solicitado. Caso 
contrário, a informação será lida de um 
arquivo em fita (este deverá ter sido pre- 
viamente preparado para isso). 

Antes de iniciar a impressão, é pos- 
sível também alterar a configuração da 
impressora. Os valores habituais são: 80 



para a largura do formulário, 60 para 
a largura da linha de texto, 66 para o 
número total de linhas por formulário 
e 60 para o número de linhas de texto 
por página. 

Os sinais para formatar o texto são 
nossos conhecidos: o asterisco (""") 
centraliza o texto que o segue: o amper- 
sand ("&") provoca um avanço de li- 
nha, de maneira que o texto subsequente 
seja iniciado na primeira posição da li- 
nha seguinte; já o cifrão ("S"), além de 
fazer isso, provoca um recuo no texto; 
finalmente, o sustenido (" #") faz com 
que a linha seja impressa na margem di- 
reita da página. 

Quando uma palavra não couber no 
trecho final de uma linha, deve-se evi- 
tar quebrá-la, para que ela não fique di- 
vidida por um espaço. O procedimenio 
correto, neste caso, é digitar a palavra 
inteira na linha seguinte. 



3000 HOME :BLS = "IMPRIMIR" : G 
OSUB 250 

3010 IF TL < 2 THEN 3060 
3020 PRINT ! PRINT : PRINT " IM 
PRIME TEXTO DA [M"]EMORIA OU [D] 
ISCO? PRINT "TECLE <CR> PARA 

RETORNAR AO MENU " ; 
3030 GET RS- IF RS - CHRS (13 
) THEN RETURN 

3040 IF RS < > "M" AND BS < 
> "D" THEN 3030 

3050 PRINT R$: IF RS = "M" THE 
N 3070 

306D GOSUB 4500: HOME : Bl.S - " 
IMPRIMIR" ! GOSUB 250 
3070 IF TL - 1 THEN PRINT CH 
RS C7);: VTAB 12: HTAB B : PRTNT 
"NAO HA TEXTO NA MEMORIAI": FO 
8 I - 1 TO 1000: NEXT : PRINT 
CHRS (7) i : RETURN 
30B0 KF - 0: HTAB 1: VTAB 9: PR 
INT "QUER USAR MASCARA? "j 
3090 GET RS: IF RS ^ > "S" AN 
D RS < > "N" THEN 3090 
3100 PRINT RS: IF RS - "N" THE 
N 3220 

3110 PRINT ! INPUT "OUANTOS BL 
OCOS SERÃO USADOS? (MAX 20) ";N 
B: IF NB < 0 OR NB > 20 THEN 31 
10 

3120 PRINT ! PRINT "OS BLOCOS 
SERÃO CARREGADOS DO" : PRINT " l T 
1ECLADO OU ID1ISCO? ": 
3130 GET RS: IF RS < > "T" AN 
D RS < > "D" THEN 31 30 
3140 PRINT R3 ! BL » 0 : KF ■ 2: I 
F RS • "T" THEN KF - 1 : GOTO 32 
10 

3150 PRINT : INPUT "NOME DO AR 

QUIVO MASCARA? ";VBS 

3160 IF ASC (VBS) < 65 OR AS 

C (VBS) > 90 THEN 3150 

3170 VBS - VBS * " . TXT" : PRINT 

: PRINT DS ; "OPEN" ; VBS : " ,S" ;L1 ; " ■ 

■D" ; L2 
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3180 PRINT DS:"READ";VBS: INPU 
T DV.DV 

3190 IF DV < NB THEN PRINT DS 
; "CLOSE" :ER - 2: GOTO 3590 
3200 FOR I ■ 1 TO NB: INPUT RP 
SU): NEXT : PRINT DS;"CLOSE": 
GOTO 3220 

3210 PRINT : PRINT : FQR I ■ 1 
TO NB: PRINT "BLOCO VARIÁVEL " 
tlt"->"lJ INPUT RPS(I): NEXT 
3220 HOME ! GOSUB 250: VTAB 5: 
PRINT "QUER MUDAR A CONFIGURAC 
AO DA IMPRESSORA? " : 
3230 GET RS: IF RS < > "S" AN 
D RS < > "N" THEN 3230 
3240 PRINT RS: IF RS - "S" THE 
N GOSUB 5500: HOME :BL5 - "IMP 
RIMIR": GOSUB 250 
3250 VB - 0:PP • 0:AS - 0:LC - 
l! PRINT : PRINT : PRINT "QUER 
UMA DEMONSTRAÇÃO NA TELA? "l 
3260 GET RS: IF RS < > "S" AN 
D RS < > "tf" THEN 3260 
3270 PRINT RS:P - 0:G1 - 0: IF 

US - "N" THEN P - 1 :G1 - GP 
3280 FOR K - 1 TO TL - 1 : IF 
LEFTS (TXS(K).l) - AND LEN 

(TXS(K) } - 1 > AS THEN AS - L 
EN (TXSÍK)) 

3290 NEXT : IF AS > TW THEN ER 

- li GOTO 3580 

3300 K - li PRINT : PRINT DSi"P 
R*";P: PRINT LFS; SPC ( G1)|:AS 
- I IF AS > 0 THEN Al - GP + 
TW - AS 

3310 TTS - TXS(K) 
3320 IF TTS - " " THEN PRINT 
CHRS (13) ; SPC( Gl) : :PP - 0:LC 

- LC + 1 : GOSUB 3640: GOTO 354 

0 

3330 IF KF - 0 THEN 3380 

3340 FOR I = 1 TO LEN (TTS) - 

1 : IF MIDS (TTS, I. 2) < > " ][ 
" THEN NEXT : BP - 0: GOTO 3380 
3350 BP = I:BL - BL + 1 
3360 IF BP « 1 THEN TTS = RPS ( 
BL) + MIDS [TTS . 3) :. GOTO 33SO 
3370 TTS ■ LEFTS (TTS.BP - 1) 
+ RPSIBL) + MIDS (TTS.BP + 2): 

GOTO 3340 
3380 TT - ASC (TTS) : IF TT = 3 
5 OR TT - 36 OR TT - 38 OR TT ■ 

42 THEN 3460 
3390 IF PP + LEN (TTS) < - T 
W THEN PRINT TTS: CHRS (321 ::P 
p - PP + LEN (TTS1 + li GOTO 3 
540 

3400 TAS ■ LEFTS (TTS.TW - PP) 
3410 IF RTGHTS (TAS.l) = " " 
THEN 3440 

3420 IF LEN (TAS) > 1 THEN TA 
S ■ LEFTS (TAS. LEN (TAS 1 - 1) 
: GOTO 3410 
3430 TAS - 

3440 PRINT TAS; CHRS (13); SPC 
( G1);:PP - 0:LC - LC + 1 : GOSU 
B 3640:TTS - MIDS (TTS , LEN (T 
AS) + 1) : IF TTS - "" THEN 3540 
3450 GOTO 3390 

3460 FOR I - 1 TO 4: IF MIDS 
("S.S*l".I.l) < > LEFTS (TTS.l 
) THEN NEXT 
20 3470 ON I GOTO 3480,3490.3510, 



3530 

3480 PRINT CHP.S (13): SPC ( Gl 
) ; : PP - 0 : LC - LC + 1 : GOSUB 36 
40:TTS - MIDS (TTS. 2): GOTO 33 
30 

3490 TTS - MIDS (TTS, 2): PRINT 
CHRS (13) i SPCÍ Gl) i SPC( IN 
T (TU / 4) ) i : PP ■ INT (TW / 4) 
3500 LC - LC + 1: GOSUB 3640: G 
OTO 3330 

3510 TTS - MIDS (TTS. 2): IF L 
EN (TTS) > TW THEN ER - 3 : GOTO 
3580 

3520 PRINT CHRS (13); SPC ( Gl 
); SPC{ INT ((TW - LEN (TTS)) 
/ 2));TTS: CHRS (13); SPC( Gl) 
i: PP - 0:LC - LC + 1: GOSUB 364 
0 : GOTO 3540 

3530 PRINT CHRS (13): SPC ( Al 
)| MIDS (TTS.2)!iPP ■ 0:LC - LC 

+ 1: GOSUB 3640: GOTO 3540 
3540 K-K+l: IFP-0 THEN 
FOR Z - 1 TO 1000: NEXT 
3550 IF K < TL THEN 3310 
3560 IF P - 1 THEN PRINT LFS ; 
LFS: PRINT DSi"PR*0": RETURN 
3570 IF P - 0 THEN PRINT : PR 
INT : GOTO 3250 

3580 PRINT : PRINT DS;"PR»0": 

PRINT CHRS (7) ; 

3590 HOME : VTAB 12: HTAB 10: 

ON ER GOTO 3600,3610,3620 

3600 PRINT "ENDERECO MUITO LON 

GO!": GOTO 3630 

3610 PRINT "NAO HA BLOCOS SUFI 
CIENTES": PRINT TAB ( 12) "NO AR 
QUIVO ESCOLHIDO ! " : GOTO 3630 
3620 PRINT "IMPOSSÍVEL CENTRAL 
IZAR! " 

3630 FOR I - 1 TO 2500: NEXT : 

PRINT CHRS (7) ; : RETURN 
3640 IF LC > TH THEN PRINT LF 
S;LFS; SPC( Gl) ; :LC = 1 
3650 RETURN 

5200 L = CP:TGS - "": VTAB 20: 

HTAB 1: PRINT "PROCURA POR: "; 

5210 GET TCS: IF TCS < > CHR 

S (13) THEN TGS - TGS + TCS i PR 

INT TCS : : GOTO 5210 

5220 IF TGS - THEN 5270 

5230 HTAB 1: PRINT " PROCURANDO 

...":: CALL - 95B 

5240 IF L = TL THEN CP - TL: G 

OTO 5270 

5250 FOR I - 1 TO LEN (TXS(L) 
) - 1: IF MIDS (TXS(L) .1. LEN 
(TGS) ) < > TGS THEN NEXT :L - 
L + 1: GOTO 5240 
5260 CP - L + 1 

5270 HOME : GOSUB 2090: RETURN 
5300 IF .SS > SE THEN TT - SS:S 
S - SE: SE - TT 
5310 SE - SE - 1 

5320 HTAB 1: VTAB 20: PRINT "O 
RDENANDO. . . " 

5330 FOR I - SS TO SE - 1 
5340 K - I 

5350 FOR J - I + 1 TO SE 
5360 IF TXS(J) < TXS(K) THEN K 
- J 

5370 NEXT : IF I < > K THEN T 
TS " TXS(K) :TXS(K) = TXS(I):TXS 
(I) - TTS 



GOSUB 2090: 



Para acessar as rotinas de ordenação 
e busca de palavras, você deve esiar no 
modo editor. 

Se você quiser ordenar um bloco de 
dados, leve o marcador ">" para um 
dos extremos do bloco e tecle CTRL-O. 
Em seguida, mova-o para o outro extre- 
mo e tecle novamente CTRL-O. A or- 
denação começará imediatamente. 

Quando for preciso procurar uma de- 
terminada palavra dentro do texto, le- 
ve o marcador ao ponto escolhido. A se- 
guir tecle CTRL-P e digite a palavra de- 
sejada, respondendo a solicitação. Te- 
cle [CR] e a busca terá início. Quando 
a palavra for encontrada, o marcador 
será posicionado logo abaixo da linha 
que a contém. Para continuar procuran- 
do novas ocorrências dessa palavra, re- 
pita toda a operação. 

Ao mesmo tempo, para imprimir o 
texto, tecle 1 a partir do menu principal. 
Em seguida, responda às perguntas que 
lhe são apresentadas. 

A opção usar "máscara de texto" 
permite acrescentar ao texto principal 
blocos variáveis, com os quais podem 
ser produzidas, por exemplo, cartas in- 
dividualizadas. Se você fizer essa opção, 
deixe nos locais apropriados do texto 
um sinal "][" para cada bloco. Esses si- 
nais serão substituídos pelo texto ade- 
quado no momento da impressão. 

O texto pode ser digitado a partir do 
teclado, ou lido de um arquivo em dis- 
co. No caso do teclado, o programa so- 
licitará que você digite a frase à medida 
que os sinais sejam encontrados no tex- 
to. Se os blocos forem carregados do 
disco, o computador lerá um arquivo se- 
quencial que você deverá ter criado com 
os dados necessários, usando o próprio 
programa (se você quiser aproveitar um 
arquivo já existente, deve acrescentar 
".TXT" ao nome dele). Cuide para que 
os dados estejam na ordem correta e pa- 
ra que sejam suficientes para todas as 
solicitações. 

O texto pode ser formatado com os 
sinais habituais. (Eles devem sempre ser 
colocados na primeira posição da linha.) 
O asterisco ("*") centraliza o conteú- 
do da linha; o ampersand ("&*') provo- 
ca um avanço de linha da impressora, 
colocando o texto subsequente a partir 
do inicio da próxima linha; o cifrão 
("$") tem a mesma função, com a di- 
ferença de que provoca um recuo no co- 
meço do texto; o sustenido ("#") faz 
as linhas que o contêm serem colocadas 
à margem direita do texto. 

Evite inserir blocos variáveis nas li- 
nhas em que aparece o sustenido. 
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O QUE SAO TECLAS DE FUN ÇÃO 
PROGRAMAÇÃO DAS TECLAS 
MONTAGEM DE UM MENU 



COMO DETECTAR INTERRUPÇ ÕES 



PROGRAME A TECLA <STOP> 



O MSX oferece um recurso fantástico 
para dar aos programas um acabamento 
profissional: as teclas programáveis. 
Explorando -as bem, você conseguirá 
menus de funções instantâneos na tela.. 



A maioria dos computadores profis- 
sionais, como os cobiçados micros da li- 
nha PC, de dezesseis bits, tem teclados 
imensos, com cem teclas ou mais. Isso 
não só simplifica o acesso a um grande 
número de funções embutidas no siste- 
ma, pela pressão a uma única tecla, co- 



mo permite que o usuário reprograme 
a função de parte das teclas, de acordo 
com suas necessidades. 

Em número de dez a doze, as teclas 
programáveis pelo usuário, lambem 
chamadas de teclas de função, em geral 
se situam num bloco isolado, na pane 
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superior ou lateral do leclado. Essa dis- 
posição facilita a correspondência entre 
as teclas e os rótulos a elas atribuídos, 
cujo posicionamento pode ser exibido 
na última linha do vídeo, também sob 
controle de programa. 

Os micros da linha MSX dispõem de 
cinco teclas programáveis, que estão lo- 
calizadas na parte superior do teclado. 
Na realidade, elas possibilitam o acesso 
a dez funções, pois, pressionando-se a 
tecla <SHIFT> simultaneamente com 
uma tecla programável, ativa-se uma se- 
gunda função que pode ser atribuída 
àquela tecla. 

Os recursos de programação dispo- 
níveis no interpretator BASIC do MSX 
são muito ricos. Aprendendo a explorá- 
los de maneira criativa, você se habili- 
tará a produzir programas com um de- 
sempenho altamente profissional. Nes- 
te artigo, apresentamos alguns truques 
interessantes, muitos dos quais não se 
encontram no Manual de BASIC que 
acompanha o computador. Você logo 
será capaz de aproveitá-los com suces- 
so em outros programas. 



TECLAS PROGRAMÁVEIS 



As teclas de função podem ser usa- 
das de dois modos em um programa: 

— para dar entrada a uma cadeia de 
caracteres no computador, pressionan- 
do-se uma única tecla; 

— para interromper automaticamen- 
te a execução de um programa e 
redirecioná-lo para executar uma ou 
mais sub-rotinas específicas, cada qual 
associada a uma tecla programável. 

Em ambos os casos, é possível (mas 
não obrigatório) exibir em uma linha re- 
servada (a última linha da tela) uma lis- 
ta de rótulos de identificação das teclas. 
Assim, o usuário não precisará recorrer 
sempre à memória para saber o que faz 
cada tecla programável. Essa linha, uma 
vez "ligada", fica presente na tela, mes- 
mo quando seu conteúdo "rola". 



mandos ou instruções do BASIC, ou se- 
ja, COLOR, LIST, RUN, GOTO etc. 

Se você pressionar uma das teclas 
programáveis (identificadas na parte su- 
perior do teclado pelos rótulos Fl, F2 etc), 
verá que a palavra a ela associada é en- 
trada por extenso no computador, apa- 
recendo na tela logo adiante do cursor. 

Caso pressione a tecla <SHIFT> o 
conteúdo da linha inferior da tela mu- 
dará para outros quatro rótulos adicio- 
nais, que correspondem às funções das 
teclas F6 a FIO. Portanto, a pressão si- 
multânea das teclas FI e <SHIFT> 
provocará a entrada automática da ca- 
deia associada. 

O carregamento dos rótulos associa- 
dos a cada tecla é feito automaticamen- 
te, no momento de inicialização do in- 
terpretador BASIC. Para apagar a linha 
da tela, basta dar o comando: 

KEY OFF 

seja em modo direto, seja dentro de um 
programa. 

Tente fazer isso e, em seguida, pres- 
sione novamente uma das teclas de fun- 
ção. Você verá que ela continua Funcio- 
nando — a cadeia de caracteres a que 
se associa aparece do mesmo jeito na te- 
la. A função do comando KEY OFF, 
portanto, resume-se ao desligamento da 
linha de exibição. 

O comando seguinte faz exatamente 
o contrário do anterior, ou seja, torna 
a exibir a linha de tela associada às te- 
clas programáveis: 

KEY ON 

Este comando também pode ser di- 
gitado em modo direto ou ser colocado 
dentro de um programa. 

No caso da programação BASIC, a 
vantagem de se associar os comandos 
mais comuns às teclas programáveis é 
evidente: em vez de digitar o comando 
por extenso, pressiona-se a tecla progra- 
mável uma vez. Com isso, evitamos er- 
ros de digitação e aceleramos conside- 
ravelmente o processo de entrada de um 



COMANDOS INSTANTÂNEOS 



O modo mais simples de utilização 
das teclas programáveis, que consiste em 
dar entrada a uma cadeia de caracteres, 
é exemplificado pela operação normal 
do próprio computador. 

Como você já deve ter observado, ao 
ligar a máquina (ou ao pressionar o bo- 
tão <RESET> de inicialização, exis- 
tente em alguns micros da linha MSX), 
J^KM aparece uma série de rótulos na linha in- 

r " 



programa BASIL. 

Experimentando todas as teclas pro- 
gramáveis, você observará que algumas 
delas, ao serem pressionadas, simples- 
mente dão entrada à cadeia de caracte- 
res (por exemplo, LIST), e mais nada 
acontece. O cursor fica parado no fim 
da palavra entrada. Para que o coman- 
do seja executado, você deverá pressio- 
nar a tecla < ENTER > , que o envia pa- 
ra o processador. No exemplo dado, a 
execução resultaria na listagem de um 
programa inteiro na tela. 

Você pode, porém, digitar o número 
ou os números de linha sobre os quais 



o comando LIST vai atuar, e só depois 
pressionar < ENTER > . 

Algumas teclas programáveis, por 
outro lado, dão entrada à palavra asso- 
ciada, mas a executam imediatamente — 
é o caso de RUN. Como veremos adian- 
te, essa diferença de funcionamento po- 
de ser especificada facilmente pelo pro- 
gramador. Tudo depende da função que 
se quer associar a cada tecla. 

Para verificar na tela quais os rótu- 
los que se associam a cada uma das te- 
clas programáveis, digite o comando 
KEY LIST. As palavras que são envia- 
das imediatamente, sem a necessidade 
do <ENTER>, aparecem assinaladas 
por uma flechinha no final. Sabe-se, 
desse modo, que o caractere de contro- 
le equivalente ao < ENTER> foi agre- 
gado ao final da palavra. 



PROGRAMAÇÃO DAS TECLAS 



É muito fácil atribuir uma cadeia de 
caracteres a uma tecla programável, e 
pode -se fazê-lo tanto em modo direto 
quanto dentro de um programa. A ins- 
trução em BASIC a ser utilizada é: 

KEY n,"cadeia- 

onde n é o número da tecla de função, 
e "cadeia", o rótulo que deve ser asso- 
ciado à tecla. Experimente digitar, por 
exemplo: 

KEY 1,"CLS" 

O rótulo da tecla Fl , que inicialmente 
era COLOR, passa a ser CLS, ao ser ini- 
cializado o computador. Confira, digi- 
tando KEY LIST. 

Agora, pressione a tecla Fl. Você ve- 
rá então que o comando CLS aparece 
instantaneamente na tela, logo após o 
cursor, mas não é executado. Para que 
isso ocorra, você deverá pressionar a te- 
cla < ENTER >. 

Se quisermos que a execução do co- 
mando seja automática, precisaremos 
definir a tecla de outro modo: 

KEY 1,-CLS"+CHBS(13) 

Ao listar o conteúdo das teclas pro- 
gramáveis com KEY LIST, você cons- 
tatará que a marca de retorno foi acres- 
centada no fim da palavra CLS. 

O caractere ASCII 13, adicionado ã 
cadeia de caracteres por meio da função 
CHRS, corresponde exatamente ao có- 
digo gerado internamente ao se pressio- 
naratecla <ENTER>.Ou seja, equi- 
vale a pressioná-la automaticamente, 
quando a tecla Fl é acionada. 

Cabem exatamente seis caracteres no 
espaço alocado para o rótulo de cada te- 
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cia, na linha de menu. Isto é o que cabe 
na tela, o que não significa que você es- 
teja limitado a definir um rótulo de ape- 
nas seis caracteres. Experimente digitar: 

KEY 1,"DEFUSR1-31100"+CBRS<13) 

Apenas as seis primeiras letras (DE- 
FUSR) aparecerão na leia, mas a cadeia 
será enviada por extenso quando se pres- 
sionar a tecla Fl. Portanto, se for ne- 
cessário "esconder" a marca de retor- 
no em um rótulo, basta digitar a seguin- 
te linha: 

KEY 1,"CLS "+CHR$(13) 

Deixe três espaços entre o final da pa- 
lavra e o segundo sinal de aspas, nesse 
exemplo. 

Se a cadeia de caracteres a ser asso- 
ciada à tecia tiver que conter aspas em 
seu interior, não dará certo fazer algo 
como: 

KEl l,"LOAD "" CODE" 

A função CHRS, mais uma vez, re- 
solve o dilema: 



O código ASCII 44, evidentemente, 
orresponde ao caractere aspas. 



Não é obrigatório atribuir às teclas 
programáveis apenas comandos ou ins- 
truções em BASIC. Na realidade, pode- 
se atribuir a elas qualquer cadeia de ca- 



racteres, o que possibilita muitas apli- 
cações interessantes. 

Suponhamos, por exemplo, que vo- 
cê vá passar uma longa mensagem ao 
computador usando um programa de 
processamento de textos. Se notar que 
certas palavras ou frases mais longas se- 
rão empregadas várias vezes (como mi- 
crocomputador, Secretaria Especial de 
Informática ele), bastará carregar pre- 
viamente as teclas de função com estas 
cadeias (não seguidas do caractere AS- 
CII 13). Pelas seis primeiras letras da 
frase, você poderá identificar a tecla as- 
sociada a ela e, simplesmente, pressioná- 
la. Isso poupará muito tempo de di- 
gitação! 



TÉCNICAS DE PROGRAMAÇÃO DE MENUS 



Como já foi mencionado, as teclas 
programáveis são muito utilizadas para 
a programação rápida de menus, ofere- 
cendo duas vantagens: o menu fica sem- 
pre presente na linha reservada da tabe- 
la, e é muito mais fácil localizar as te- 
clas associadas às suas opções do que se 
estivéssemos utilizando teclas normais 
do teclado. 

Os programas que se seguem vão 
mostrar algumas das técnicas mais co- 
muns de programação de menus utili- 
zando as teclas de função. 

Suponhamos que você queira elabo- 
rar um programa de banco de dados, 
com as quatro funções clássicas: inserir 
registros, apagar registros, modificar re- 
gistros e listar o banco de dados. Além 
dessas funções precisaríamos de uma 



quinta opção: a de término da execução 
do programa. 

Já vimos como montar um menu des- 
se tipo de diversas maneiras — usando 
PRINT, INPUT, INKKYS etc. Para 
usar teclas programáveis, poderíamos 
fazer o seguinte: 

10 ST5=STRJNGS(38."_-> 
20 KEY OFF:CLS 
30 KEY 1, "Insere" 
40 KEY 2,"Apaoa " 
50 KEY : 
60 KEY ■ 
70 KEY I 
80 LO CATE 10,0 
90 PRINT "BANCO DE DADOS* 
100 LOCATE 0,1: PRINT STS 
110 LOCATE 0,21: PRINT STS 
120 KEY ON 
130 AS=INPUTS (6) 
140 LOCATE 0,10 
150 PHINT " FUNÇÃO : " :A3 
160 IF AS="FIM * THEN CLStEND 
170 GOTO 130 

A linha 10 define uma variável, STS, 
igual a uma cadeia de 38 tracinhos: é a 
linha de separação, usada para dar me- 
lhor aparência à tela de entrada. A li- 
nha 20 "desliga" a linha de identifica- 
ção das teclas programáveis e limpa a te- 
la. As linhas 30 a 70 programam as te- 
clas de função Fl a F5. As linhas de 90 
a 110 compõem ateia e a 120 "liga" no- 
vamente a linha de exibição dos rótulos 
das teclas de função, desta vez com os 
rótulos que foram atribuídos no 
programa. 

Finalmente, as linhas 130 a 150 pro- 
cessam o resultado da pressão às teclas I 
de função. Observe que a instrução ' 
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INPUTS, própria do MSX, tem um fun- 
cionamento semelhante ao do INKEYS, 
só que inclui um determinado número 
de pressões às teclas, de cada vez. 
INPUT$(ó) significa que o computador 
deve esperar que seis caracteres sejam 
digitados (não os mostra na tela) para, 
então, prosseguir o programa. 

Note que colocamos seis caracteres 
em cada rótulo, preenchendo-os com es- 
paços em branco ao final, quando ne- 
cessário. Assim, qualquer pressão a uma 
tecla programável imediatamente aten- 
dera à condição da linha 130, armaze- 
nando o resultado na variável AS e se- 
guindo para as linhas 140 a 160. 

Âs linhas 140e 150 cabe simplesmen- 
te escrever o resultado dessa atuação no 
meio da tela. A linha 160 exemplifica o 
que fazer a partir daí. Ela verifica se 
FIM foi pressionado e executa 
CLS:END, terminando o programa, se 
isto aconteceu. 

Diversos IF seriam utilizados para 
chamar (GOSUB) as rotinas de inserção, 
apagamento etc, no nosso banco de da- 
dos. A linha 170 faz tudo voltar ao me- 
nu. Pode ser interessante dar um KEY 
OFF antes de chamar as rotinas, para 
que o usuário não tenha a impressão de 
que o menu ainda continua disponível. 
Isso pode ser feito seletivamenle, como 
veremos mais adiante. 

O programa seguinte, que é uma mo- 
dificação do anterior, testa o resultado 
da pressão a uma tecla de função com 
mais economia. 

10 STS=STRINGS {38. "_") 

20 KEY OFF:CLS 

30 KEY 1, "Insere" 

40 KEY 2. "Apaga " 

50 KEY 3,"Modif " 

60 KEY 4 . "Li st.a " 

70 KEY 5. "FIM 

80 LOCATE 10.0 

90 PB TNT "BANCO DE DADOS" 

100 LOCATE 0,1: PRINT STS 

110 LOCATE 0,21:PRINT STS 

120 KEY ON 

130 AS-LEFTS(INPUTS(6) . D 
140 LOCATE 0.10 

150 ON INSTR (" IAMLF" , AS) GOSUB 
170 . 180 ,190 . 200 . 900 
155 GOTO 130 

170 PRINT " ROTINA DE INSERÇÃO 



205 RETURN 
|900 BEM FIM DO PHOGRAMA 
1905 CLS ! END 



Observe que, agora, a linha 130 é 
usada para extrair e armazenar em AS 
apenas o primeiro caractere do rótulo da 
tecla de função acionada. Portanto, os 
rótulos precisam ter, como no exemplo, 
letras iniciais diferentes, para evitar con- 
fusões. 

Na linha 15 está a vantagem dessa 
técnica. Ela permite utilizar a forma 
bem mais compacta do ON...GOSUB, 
para dirigir o programa à rotina chama- 
da pelo menu. 

A função INSTR, que talvez você 
não conheça, significa, em inglês, in 
slríng, ou seja, dentro de um cordão. 
Ela verifica se um caractere ou cadeia 
de caracteres está presente dentro de 
uma outra cadeia. Em caso negativo, o 
valor zero é retornado. Em caso afirma- 
tivo, a posição do caractere (sua ordem 
no primeiro cordão) é retornada. Por 
exemplo: 

PRINT INSTR { "COMPUTADOR" , "P" ) 
retorna o valor 4, enquanto: 
LET AS""X" 

PRINT INSTR ("COMPUTADOR", A3) 

retorna o valor zero. 

No programa, o cordão IAMLF es- 
pecificado corresponde ás letras iniciais 
das cinco opções oferecidas pelo menu. 
Sendo pressionada uma das teclas pro- 
gramáveis, a letra inicial do rótulo é ar- 
mazenada em AS (linha 130) e testada 
pela função INSTR, na linha 150. O 
número retornado serve para endere- 
çar a sub-rotina que será selecionada em 
ON... GOSUB. 

A listagem do programa anterior 
mostra apenas a primeira e a última li- 
nhas das rotinas. Se estiver interessado, 
complete-as você mesmo. 



INTERRUPÇÕES PROGRAMADAS 



Os programas vistos até aqui parecem 
não apresentar vantagens mais signifi- 
cativas em relação à programação con- 
vencional de menus que aprendemos an- 
teriormente. Na realidade, eles apenas 
acrescentam a possibilidade de utiliza- 
ção das teclas programáveis e da linha 
reservada de rotulaçào. 

Entretanto, as teclas de função do 
micro MSX oferecem um recurso bem 
mais poderoso de programação: a inter- 
rupção programada. 

Quando pressionamos uma das teclas 
de função Fl a FIO, o comportamento 
do computador é diferente do observa- 
do em relação às teclas normais do te- 
clado. Em vez de simplesmente gerar um 
caractere ou cordão de caracteres, a 
pressão à tecla de função "avisa" o in- 



terpretador BASIC — qualquer que se- 
ja o ponto do programa que esteja sen- 
do executado — que tal pressão ocor- 
reu, gerando o que se denomina, em lin- 
guagem técnica, de interrupção do pro- 
cessador (UCP). 

Para entender como funciona uma 
interrupção pelo teclado, basta tomar 
como exemplo uma tecla que já é pré- 
programada para gerar um tipo especí- 
fico de interrupção: a tecla <STOP>. 

O sistema operacional e interpretador 
BASIC do MSX está sempre "atento" 
à tecla <STOP> , por meio de um dis- 
positivo especial de hardware, para de- 
tectar se ela foi pressionada. A verifica- 
ção é feita a cada poucos microssegun- 
dos e, não importa o que o computador 
esteja fazendo no momento da interrup- 
ção, imediatamente o processador pas- 
sa a executar uma rotina de serviço que, 
no caso, servirá para "congelar" um 
programa em execução ou interrom- 
nê-lo, retornando ao modo de entrada 
(quando <CONTROL> e <STOP> 
são pressionadas simultaneamente). 

Pois bem, Fl a FIO são teclas de in- 
terrupção programáveis, ou seja, o pro- 
gramador pode especificar a rotina de 
serviço que deve ser acionada pelo sis- 
tema operacional correspondente a ca- 
da tecla. 

Existem diversas instruções do BA- 
SIC que permitem programar interrup- 
ções a partir das teclas Fl a FIO. Uma 
delas consiste em: 
ON KEY GOSUB nl.n2. . . 

que verifica se alguma tecla de função 
foi pressionada, ou seja, se ocorreu uma 
interrupção. Conforme a tecla pressio- 
nada, um número inteiro entre 1 e 10 é 
retornado. Ele chama a sub-rotina na 
ordem indicada, nas linhas nl, n2 etc. 
' ON KEY GOSUB 1000, 1100, por 
exemplo, provocará um salto para a 
sub-rotina que começa na tinha 1000, se 
a tecla Fl for acionada, ou para a linha 
1 100, se a tecla F2 for acionada. A ins- 
trução ON KEY GOSUB deve ser colo- 
cada em um ponto da listagem que as- 
segure a sua execução pelo menos uma 
vez, antes das detecções de interrupção, 
que, como a rotulaçào das teclas, ocor- 
rem no começo do programa. 

Porém, precisamos de mais uma con- 
dição para montar a "armadilha" que 
detecta interrupções. A capacidade de 
gerar interrupções pode ser "ligada" ou 
"desligada" de cada tecla de função in- 
dividualmente, pelas instruções: 
KEY tn) ON 
KEY <n) OFF 
KEY (n) STOP 
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onde néo número da tecla. Quando se 
liga o computador, todas as teclas estão 
em modo OFF, ou seja, "desligadas". 
Ao ser detectada uma pressão à tecla de 
função, um KEY STOP é dado automa- 
ticamente, inibindo toda a interrupção 
subsequente, até que ocorra um RE- 
TURN da sub-rotina chamada pelo ON 
KEY GOSUB. 

Embora o comando KEY (n) STOP 
iniba a interrupção do programa, ele 
continua sendo capaz de detectar uma 
pressão à tecla de função indicada. As- 
sim, ao retornar da rotina de serviço de 
uma tecla de função, o programa pode- 
rá imediatamente rumar para outra ro- 
tina, se, enquanto isso, outra tecla de 
função tiver sido pressionada. 

Se o programador quiser inibir tan- 



to a interrupção quanto a detecção, de- 
ve usar um comando KEY (n) OFF. 

No programa seguinte você encontra- 
rá exemplos das técnicas mais elemen- 
tares de utilização das instruções ON 
KEY GOSUB e KEY ON. O objetivo é 
imitar uma máquina de somar simples, 
que apresenta o resultado quando a te- 
cla Fl é pressionada. 

10 CLS 

20 PRINT TAB (10) ; "SOMADORA KSX 
I" 

30 ON KEY GOSUB 200 
40 S-0 

50 KEY (1) ON : KEY l,"SOMA " 
60 KEY 2." " ; KEY 3." " i KEY 
4, ' " ; KEY 5. " " 
120 1 

130 ' ALÇA DE SOMA 



140 

150 LOCATE 6,10 
160 PRINT " 
170 LOCATE 0,10 
180 INPUT "VALOR ";U 
190 S-S+V:GOTO 150 
200 ' 

210 ' SUBROTINA PARA TECLA Fl 

220 1 

230 LOCATE 0.12 

240 PRINT "SOMA - " ;S 

250 RETURN 150 

A linha 30, logo no começo do pro- 
grama, prepara a armadilha para detec- 
tar interrupções pelas teclas de função 
e desviar o fluxo de processamento. A 
linha 40 zera a variável S, que é o acu- 
mulador de somas; a linha 50 "liga" a 
tecla Fl e rotula seu propósito na linha 
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reservada para exibição na tela. A linha 
60 "limpa" os rótulos das teclas progra- 
máveis que não serão usadas. 

As linhas i 50 a 1 90 do programa rea- 
lizam a função de soma de valores. Elas 
formam uma alça sem fim, o que é típi- 
co de todo programa que utiliza as te- 
clas de função do contexto do ON KEY 
GOSUB. A alça sem fim faz o progra- 
ma esperar ou executar alguma coisa (no 
caso somar os números entrados pelo 
usuário), até que uma tecla de interrup- 
ção seja pressionada. 

Se se pressionar a tecla Fl enquanto 
o programa está esperando a entrada de 
um valor, nada acontece de imediato. 
Mas, assim que a tecla <ENTER> for 
pressionada, a rotina que começa na li- 
nha 200 será acionada, pois foi a espe- 
cificada na linha 30. Ela simplesmente 
mostra a soma acumulada até o último 
número entrado e retorna para a linha 
30, de modo a dar prosseguimento à 

E o que acontece se alguma tecla pro- 
gramável não desativada for acidental- 
mente pressionada? Não acontece nada, 
pois o funcionamento do ON KEY GO- 
SUB é tal que o desvio se realiza apenas 
para as sub-rotinas indicadas. 



UM PROGRAMA MAIS FUHCIONAL 



Embora não apresente problemas de 
funcionamento, o programa anterior 
tem dois defeitos: não oferece provisão 
para interrupção ao final do processa- 
mento, nem a possibilidade de zerar o 
acumulador para permitir nova soma 
sem sair do programa. O seguinte, mais 
completo, faz tudo isso: 

10 CLS 

20 PRINT TAB(IO) ;"S0MADOHA MSX 
II- 

30 ON KEY GOSUB 200,300.400 
40 S-0 

50 KEY 11) ON : KEY 1,'SOMA " 
60 KEY (2) ON : KEY 2. "LIMPA " 
70 KEY (3) ON ; KEY 3. "FIM 
80 KEY 4," " : KEY 5." " 
1ZQ 1 

130 1 AL CA DE SOMA 
140 1 

150 LOCATE 6,10 

160 PRINT " 

170 LOCATE 0,10 

180 INPUT "VALOR ";V 

190 S-S+V:GOTO 150 

200 ' 

210 ' SUBROTINA PARA TECLA Fl 

220 ' 

230 LOCATE 0,12 

240 PRINT "SOMA - ";S 

250 RETURN 150 

300 ' 

[310 ' SUBROTINA PARA TECLA F2 
320 ' 



330 LOCATE 0,12 
340 PRINT "SOMA - 0 
350 S-0:RETURN 150 
400 ' 

410 1 SUBROTINA PARA TECLA F3 
420 ' 

430 CLS : ENO 

Agora, a linha 30 permite o desvio 
para três rotinas: de soma (linha 200), 
de zeragem (linha 300) e de término (li- 
nha 400). Experimente pressionar outras 
teclas de função enquanto uma rotina 
está sendo executada: se você conseguir 
fazê-lo a tempo, notará que nada 
acontece. 

Em um programa curto como este, a 
definição individual de cada KEY é mais 
do que satisfatória. Entretanto, se pre- 
cisar incluir muitas teclas, você poderá 
obter um programa mais compacto e 
elegante fazendo esta definição dentro 
de um laço de repetição. Para ter um 
exemplo, substitua estas linhas no pro- 
grama anterior: 

50 FOR I-l TO 5 

60 READ CS:KEY {D ON 

70 KEY I.CS:NEXT I 

80 DATA "SOMA "."LIMPA " , "FIM 

O laço que vai das linhas 50 a 70 faz 
um índice I variar de I a 5. A linha 60 
lê sucessivamente os rótulos das teclas, 
em DATA. Observe que os rótulos não 
usados são definidos como um espaço 
em branco. 

As linhas 60 e 70 ainda se encarre- 
gam, respectivamente, de "ligar" a te- 
cla e atribuir-lhe o rótulo C$. Note que 
os comandos aceitam variáveis como ar- 
gumentos. 

Ao experimentar o programa, você 
deve ter reparado que as teclas progra- 
máveis não interrompem o programa 
enquanto ele está esperando entradas 
pelo usuário, em um comando INPUT. 
Como se trata de um inconveniente, re- 
correremos a um expediente que possi- 
bilitará a ocorrência de interrupção em 
qualquer momento. A condição para is- 
so é que o computador esteja dentro de 
um laço de repetição durante a entrada 
de um valor na linha 30. Tal condição 
pode ser atendida se "simularmos" um 
comando INPUT, por meio de vários 
1NKEYS sucessivos. 

A rotina seguinte, que começa na li- 
nha 500, faz esse serviço, e retorna um 
valor numérico V. Substitua também a 
linha 30, como foi indicado: 

160 PRINT "VALOR ";: GOSUB 500 
500 V$-"" 

510 CS-INKEYS:IF C$-"" THEN 510 
520 IF ASC{CS)-13 THEN V-VAL ( 
VS) : RETURN 

530 PRINT C$:VS-VS+CS:GOTO 510 



Experimente o programa modificado 
e veja como ele é capaz de aceitar inter- 
rupções também dentro do ciclo de en- 
trada de dados. 



PROGRAMAÇÃO DA TECLA <ST0P> 



Afirmamos um pouco antes que 
<STOP> é uma tecla de interrupção 
pré-programada, ou seja, que executa 
uma rotina fixa ao ser acionada. Bem, 
a afirmação é totalmente verdadeira! 

De fato, o usuário também pode pro- 
gramar a tecla < STOP > , definindo o 
que ela deve fazer quando for pressio- 
nada. Assim, < STOP > equivale às te- 
clas de função, só que não dispõe de es- 
paço próprio na linha reservada de ro- 
tulação, para dizer ao usuário o que ela 
faz. Mas podemos utilizar a própria de- 
finição da tecla e usá-la sempre para ter- 
minar um programa ou um sub- 
programa. Esta função de "escape" de 
um nível de programa para outro é a 
marca registrada dos superprogramas 
comerciais atualmente disponíveis para 
computadores pessoais. 

O comando que se segue desvia o 
processamento para a sub-rotina indica- 
da, quando as teclas < CTRL > e 
<STOP> são pressionadas simultanea- 
mente (nada acontece se se pressionar 
apenas a tecla <STOP>). 

ON STOP GOSUB 

Para que uma instrução ON STOP 
GOSUB funcione, é necessário ativar a 
armadilha interna, por meio de um co- 
mando STOP ON. A partir do momen- 
to em que este comando for encontra- 
do, o desvio será realizado para a 
sub-rotina indicada no ON STOP GO- 
SUB, sempre que se pressionar simulta- 
neamente as teclas <CTRL> e 
<STOP > . Como nas teclas de função, 
os comandos STOP OFF e STOP STOP 
"desligam", respectivamente, a inter- 
rupção e a detecção, para as teclas men- 
cionadas. Experimente alterar o progra- 
ma, adicionando a opção de interrup- 
ção pelas teclas < CTRL > < STOP > : 

45 ON STOP GOSUB 400 
90 STOP ON 

A possibilidade de detectar o aciona- 
mento da tecla <STOP> tem uma ou- 
tra utilidade: muitas vezes, o programa- 
dor deseja impedir a interrupção aciden- 
tal ou intencional de seu programa por 
um outro usuário, seja para protegê-lo 
contra olhos curiosos, seja para evitar 
perdas de dados ou outras condições cri- 
ticas. O ON STOP GOSUB funciona 
muito bem para esta finalidade, no mi- 
cro MSX. 
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Os usuários do TRS-80 não precisam 
ficar frustrados por não disporem dos 
fabulosos sprttes. Como verão aqui, é 
possível obter animações de excelente 
qualidade em suas máquinas. 



Sc você já tentou produzir gráficos 
animados em um microcomputador da 
linha TRS-80 usando os comandos SET 
e RESET, com certeza chegou à conclu- 
são de que a tarefa é praticamente im- 
possível. Esses comandos servem para 
acender ou apagar pixels individuais na 
tabela de baixa resolução, permitindo 
compor, sem maiores dificuldades, figu- 
ras complexas, como um avião ou um 
foguete. Entretanto, se tentarmos ani- 
mar o desenho como um todo — 
deslocá-lo na tela, por exemplo — , ob- 
teremos efeitos ridículos, graças à len- 
tidão do interpretador BASIC. 

Vimos em artigos anteriores que, no 
que se refere aos micros pessoais mais 
modernos — como os das linhas Spec- 
trum, TRS-Color, MSX e Apple — , a 
solução para esse problema consiste em 
definir caracteres gráficos por softwa- 
re, armazená-los em uma porção da me- 
mória (área UDG no Spectrum, sprites 
autênticos no MSX e variáveis numéri- 
cas ou alfanuméricas nos demais com- 
putadores) e animá-los. 

Evidentemente, o TRS-80 não conta 
com recursos tão maravilhosos. Mas há 
um "jeitinho" que nos permite obter 
animações fantasticamente rápidas... 
em BASIC! Veremos como em uma sé- 
rie de artigos. Antes, porém, precisamos 
entender o funcionamento dos caracte- 
res gráficos pré-definidos do TRS-80. 



CARACTERES GRÁFICOS 



O que são caracteres gráficos? Como 
você já sabe, os caracteres que aparecem 
no vídeo têm códigos numéricos intei- 
ros que, teoricamente, podem variar en- 
tre 0 e 255 — cada caractere correspon 
dendo, portanto, a um byte da memó 
ria de vídeo. Parte dessa codificação t 
convencionada internacionalmente: 
trata-se do chamado código ASCII, que 



vai de 32 a 126. Os códigos 0 a 31 são 
normalmente utilizados para funções de 
controle do vídeo, e dependem do tipo 
de computador. O mesmo acontece com 
os códigos 127 a 255. Nesta faixa cada 
fabricante utiliza os códigos de uma ma- 
neira, geralmente para acomodar carac- 
teres gráficos. 

O TRS-80 possui 64 caracteres gráfi- 
cos de teclado, ocupando a faixa de có- 
digos que vai de 128 a 191. 

O caractere gráfico com o código 1 28 
é um espaço em branco, semelhante ao 
que recebe o código 32 no ASCII. En- 
tretanto, não deixa de ser útil, sobretu- 
do para efeito de certas manipulações 
nas telas gráficas. 

Um aspecto bastante interessante dos 
caracteres gráficos pré-definidos é que 
eles se comportam exatamente como 
qualquer outro caractere alfanumérico, 
para fins de impressão na tela. Assim, 
eles podem ser usados como argumen- 
to de comandos PRINT, o que nos per- 
mite obter boa velocidade na exibição 
de gráficos no micro TRS-80. 

Ao contrário dos caracteres gráficos 
pré-definidos do TK-2000. do MSX, do 
ZX-81 edo Spectrum, os do TRS-80 não 
podem ser entrados pelo teclado. Assim, 
para especificá-los dentro de um progra- 
ma, é necessário utilizar as funções 
CHRS e STRINGS 

Para imprimir na tela um retãngulo 
totalmente preenchido, escrevemos, por 
exemplo: 

PRINT CHRSU91) 

O programa abaixo mostra a tabela 
de correspondência entre códigos numé- 
ricos e gráficos na tela do TRS-80: 

10 CLS 

20 FOR J=129 TO 191 STEP 9 

30 FOR I=J TO J+8 

40 PRINT I :CHRS (I) i 

50 NEXT I : PRINT : NEXT J 

O programa funciona da seguinte 
maneira: a linha 10 limpa a tela. O laço 
que vai da linha 20 à linha 50 (controla- 
do pela variável J) produz valores nu- 
méricos que variam entre 129 e 191 (a 
faixa de códigos gráficos, portanto), em 
incrementos de 9. Assim, o laço das li- 
nhas 30 a 50 (controlado pela variável 
I) pode incrementar de 1 em 1 os valo- 



res intermediários. Este é um artificio 
utilizado para produzir na tela uma ta- 
bela clara e bem-feita, com nove códi- 
gos por linha. 

A linha 40 do programa exibe o có- 
digo numérico (I) e o caractere gráfico 
correspondente (CHRS(I)). O PRINT 
entre os dois NEXT na linha 50 serve 
para mudar a linha de impressão. 

Se você pretende empregar caracte- 
res gráficos frequentemente em um pro- 
grama, convém armazenar os seus có- 
digos em uma variável alfanumérica. 
Com esse procedimento, você não só 
poderá utilizá-los com mais facilidade 
como também não precisará consultar 
a toda hora a tabela de códigos gráfi- 
cos, ao desenvolver um programa. 

Da mesma maneira, se você quiser 
utilizar uma cadeia de caracteres gráfi- 
cos em vários pontos de um programa, 
armazene-a em uma variável alfanumé- 
rica. Para isso, recorra ã função 
STRINGS. 

Execute o programa abaixo e veja co- 
mo ficam linhas compostas pelo mesmo 
caractere gráfico. 

10 CLS 

20 1NPUT-C0DIG0 GRÁFICO 
(129-191)"iC 

30 INPUT" COMPRIMENTO (1-63) "iN 

40 S3=STRING5(N,C) 

50 PRINT S 256,33 

60 FOR 1-1 TO 500:NEXT 

70 GOTO 10 

A função STRINGS tem várias utili- 
dades, quando empregada com códigos 
gráficos. Uma delas, por exemplo, é 
preencher instantaneamente a tela com 
um caractere gráfico. Lembre-se de que 
a tela de textos do TRS-80 tem 1024 ca- 
racteres (dezesseis linhas de 64 colunas 
cada). Se usarmos, por exemplo, uma 
linha de programa composta de quatro 
PRINT STRING$(256,I91), separados 
por ponto e vírgula, o resultado será um 
preenchimento total da tela com o ca- 
ractere gráfico 191, que corresponde a 
um bloco inteiramente preenchido (ve- 
ja a tabela constante do seu Manual de 
Programação). 

Substituindo o segundo argumento 
da função STRINGS por outro código 
qualquer, poderemos usar o mesmo re- 
curso para preencher a tela com blocos ■ 
gráficos diversos. 



l^HIIIIJI 



RAFIC05 EM 



ODE 
3-DÍ2) 



IHIIIIIIIIIII 



Até aqui, limitamos nossos wireframes 
a linhas e formas bidimensionais. 
Mas, com algumas alterações nas rotinas 
utilizadas anteriormente, poderemos 
estruturar imagens tridimensionais. 



Na teoria, pelo menos, não faz sen- 
tido falar na criação de um desenho tri- 
dimensional — uma caixa, por exemplo 
— , num plano bidimensional, seja ele 
um pedaço de papel ou uma tela de te- 
levisão. No entanto, podemos recorrer 
a técnicas de desenho que dão ás figu- 
ras a impressão de solidez. 



A pintura de uma paisagem, por 
Kemplo, parece ter profundidade e dis- 



tância quando o pintor faz o desenho em 
perspectiva. Trata-se de um truque vi- 
sual baseado no fato de que os objetos 
parecem ficar menores ã medida que se 
distanciam, e de que linhas paralelas pa- 
recem convergir à distância. 

A perspectiva não é a única técnica 
usada nesse tipo de representação, Em 
desenho técnico é comum ouvirmos fa- 
lar de projeção isométrica. Como no de- 
senho em perspectiva, as linhas que o 
observador não vè são desenhadas num 
ceno ângulo. Porém, elas não conver- 
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gem c os objeios não parecem ficar me- 
nores a distância. A vaniagem da proje- 
ção isométrica é que a direção da linha 
não afeta a escala e, por isso, pode-se 
saber a medida exata dc cada linha di- 
rctamente do desenho. 

Embora possamos utilizar o compu- 
tador para fazer um desenho em pers- 
pectiva, é bem mais fácil representar a 
projeção isométrica. Esta baseía-se sim- 
plesmente na criação de um terceiro ei- 
xo, além do eixo X (horizontal) e do eixo 
Y (vertical) já existentes. Este terceiro 
eixo, o Z, está posicionado num certo 
ângulo com os outros dois. Qualquer li- 



nha desenhada nesse ângulo pode ser en- 
tendida como se afastando (ou se apro- 
ximando) do observador. O diagrama dos 
eixos na figura da página 630 ajudará a 
entender melhor o que dissemos até agora. 



Recorrendo á projeção isométrica, 
podemos produzir imagens tridimensio- 
nais tipo wireframc a partir de formas 
bidimensionais, utilizando as rotinas pa- 
ra grades e círculos apresentadas no pri- 
meiro artigo da série. Algumas dessas 



formas bidimensionais precisarão ser 
distorcidas, de modo que se tornem com- 
patíveis com o ângulo do eixo Z. Para 
isso procederemos a várias mudanças de 
coordenadas baseadas em princípios ma- 
temáticos um tanto complicados. Mas não 
se preocupe, pois o computador os ma- 
nuseia com facilidade. 

Em primeiro lugar, transformaremos 
coordenadas 2-D (X,Y) em 3-D (X 1 . Y\ 
Z'), no plano desejado. Isto significa, 
que devemos especificar o quanto o pla-J^^ 
no se estende ao longo do eixo Z. Dl;-* 
pois transformaremos as coordenadas \ 
3-D (X', Y', Z') num novo conjunto de 
coordenadas 3-D (Xe.Ye.Ze), baseado 
na direção e posição da qual olhamos o 
objeto. Finalmente, voltaremos a trans- 
formar (Xe, Ye.Ze) em coordenadas 2-D 
(Xp.Yp). para que o conjunto possaser 
mostrado na tela. Acompanhe os dw^ 
gramas da página 631; eles moMraafcí 
modificação de uma forma de desenho 
nos seis lados de uma imagem. 

Durante a transformação, podemos 
levar em consideração a perspectiva,^, 
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Posso modificar o programa para de- 
senhar imagens diferentes? 

A rotina-base de nosso programa é 
a que compõe a grade. A rotina que ela 
utiliza para traçar linhas poderia ser mo- 
dificada para desenhar outras formas. 
No caso de um triângulo, por exemplo, 
não haverá maiores problemas, mas, se 
tivermos que acessar a rotina várias ve- 
zes seguidas, tal como no desenho de 
um tetraedro (figura de quatro lados 
triangulares!, precisaremos de um pou- 
co mais de atenção. No desenho da ba- 
se, os valores dados às variáveis de 
transformação serão iguais aos da cai- 
xa. Em compensação, a alteração das 
variáveis òe transformação (linhas 270 
a 300) para obter o ângulo e posição 
correta dos outros lados constitui uma 
tarefa muito difícil. 

É mais fácil mudar o programa para 
que desenhe caixas de diferentes tama- 
nhos ou figuras que não se fecham. Fa- 
ça, por exemplo, com que o valor de 
L na linha 1 20 varie com o tempo, al- 
terando, assim, o tamanho da caixa; 
depois, mude o valor de N na mesma 
linha. Atribuindo valores maiores a N, 
a caixa parecerá sólida. Para evitar que 
as faces da frente e de trás sejam de- 
senhadas, apague a linha 31 1 (que faz 
um laço sobre a caixa) e digite: 

155 GOTO 220 

Depois, rode o programa. 



mas isso complica bastante o programa. 
Vamos nos limitar, assim, ao desenho 
isométrico de uma caixa, deixando a 
perspectiva para um próximo artigo, 
Como o primeiro e o último conjuntos 
de coordenadas são bidimensionais, e 
todas as transformações são lineares (li- 
nhas retas ficam retas e linhas paralelas 
permanecem paralelas), precisaremos al- 
terar apenas as rotinas de inicialização 
e de desenho. 

Caso tenha armazenado em fita ou 
disco o programa dado no primeiro ar- 
tigo, carregue-o novamente e digite as 
linhas que vêm a seguir. É aconselhável 
gravar todas as listagens, pois, à medi- 
da que desenvolvermos o programa em 
artigos futuros, voltaremos a chamar al- 
gumas rotinas. Se você não tem o pro- 
grama gravado, digite as linhas 5000 a 
5130 do artigo anterior desta série. Elas 
compõem a rotina que desenha uma 
grade. 

Apague as linhas 150 e 155 antes de 
digitar as que se seguem, mas não rode 
o programa ainda. 



9010 BORDER 4: PAPER 7: INK 0: 

CL3 

9070 RETUBN 
9100 REM MOVER 

9110 PLOT XS*XX+XY*YS+XO+127,¥X 
*XS+YY*YS+YO+76 
9120 RETUBN 
9200 REM DESENHA 

9210 DHAW XE*XX+XY*YE+XO + .127-PE 
EK 236?7,YX*XE+YY«YE+YO+76-PEEK 

23678 
9220 RETURN 
9S00 BEM LINHA 
951 0 GOSUB 9] 00 



9000 CLS 
9030 XX=l 
9040 YY-1 
9070 RETUBN 

9500 LINE (XS»XX+XY*YS+XO+l 27 . YX 
*XS+YY*YS+YO+95) - t XE "XX+XY* Y E+X 
0+127 , YX*XE+YY*YE+YO+95) , 15 
9550 RETUBN 



SC 

90 oo 
1 :XG 
9010 
9070 
9 10(1 

9108 



XX » 1:XY - 0:YX - 0:YY 
- 0:YO - 0 

HGR : HCOLOH- 3 
RETURN 
BEM MOVE 
XI - XS * XX + XY * YS + 



127 

9 Yt - YX " XS + 

76 

0 RPLOT Xl.Yl 
0 RETURN 
0 BEM DESENHA 
8 X2 - XE * XX + 



YS 



YX 



XE + YY 



9210 
9220 
9500 



HPLOT XI ,Y1 TO X2.Y2 
BETUBN 
REM LINHA 
GOSUB 9100 
9520 GOSUB 9200 
9550 RETURN 

D 

9000 PCLS 
9030 XX-1 
9040 YY-1 
9070 RETUBN 

9500 LINE(XS*XX+XY*YS+XO+127,YX 
•XS+YY*Y3+YO+95) - (XE*XX+XY«YE+X 
0+127, YX*XE+YY*YE+YO+95) ■ PSET 
9550 RETURN 
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A rotina das linhas 9000 a 9070 ini- 
cializa as variáveis de transformação 
(XX,XY,VX,XO,VO) em valores que 
fazem a rotina de desenho funcionar co- 
mo antes. No micro TRS-Color não é 
necessário inicializar variáveis, mas fazé- 
lo facilita bastante a compreensão do 
programa. 

A rotina movimenta os eixos de ma- 
neira que a origem destes esteja no cen- 
tro da tela. A origem é deslocada porque 
fíca mais fácil supor que o olho do ob- 
servador está diretamente acima dela no 
centro da tela. Isso ficará mais claro no 
próximo artigo, onde veremos como 
mudar o ponto de vista e acrescentar 
perspectiva. 

Para observar o efeito de cada variá- 
vel de transformação e ter uma idéia 
mais clara do que está acontecendo, mo- 
difique as linhas 100 a 180: 




100 GOSUB 9000 
120 CLS 




7 y 



130 LET XA=-40: LET YA'-20: 
t.ET LU-40- LET LH-40- LET NX = 5 
: LET NY-5 
13S GOSUB 5000 

140 LET XA-0 ! t.ET YA--20: I.ET 
t.W-40: LET LH-40; LET NX-10: 
LET NY=10 
145 GOSUB 5000 

160 TNPtJT "INTRODUZA XX . XY , YX . 
YY, XO , YO" .XX, XY , YX. YY. XO , YO 

170 GOTO 120 
180 STOP 



100 SCREEN 2:COI.OH L5.4,4 
105 PI=4*ATN(1) 
110 GOSUB 9000 
120 CLS I SCREEN 2 

130 XA--40:YA — 20 : LW-40 : LH-40 : N 

X=10 :NY=1.0 

135 GOSUB 5000 

1.40 XA = 0 : YA--20 : LW = 4 0 : LH = 40 : NX- 

10 :NY=10 

145 GOSUB 5000 

150 A$ = TNKEYS : TF AS = "" THEN 150 

ELSE SCREEN 0 ! CLS 
160 INPUT"ENTP.E XX , XY , YX . YY . XO , 



plunu bidimensional, um quadrado na origem 
(1) é deslocado ao longo dos eixos X e Y 
e, com um novo deslocamento (2), forma as 
faces da frente e de irás do cubo. Para 
formar os lados, o quadrado é distorcido 
(3) na direção Y e depois deslocado (4 e 5) 
ao longo dos eixos. Da mesma maneira, 
as faces superior e inferior são obtidas 
pela distorção (6) na direção X e 
deslocamento (7 e 8) ao longo dos eixos. 




YO " ;XX , XY , YX , YY , XO . YO 
170 GOTO 120 



é 

100 GOSUB 9000 

120 HOME : HGP. : VTAB (24 ) 

130 XA - - 40:YA = - 2Q-.L.V m 

40:LH - 40:NX - 5:NY - 5 

115 GOSUB 5000 

140 XA - 0:YA - - 20:LW - 40:L 
H = 40:NX = 10:NY = 10 
145 GOSUB 5000 

160 TNPUT " ENTRE XX , XY , YX , YY , X 
O.YO " ;XX,XY, YX, YY , XO, YO 
170 GOTO 120 
180 STOP 

100 PMODE 4: SCREEN 1,1 

105 PI-4"ATNU) 

110 GOSUB 9000 

120 CLS : PCLS : SCREEN 1,1 

130 XA— 40:YA— 20 : LW-40 : LH-40 :N 

X-5:NY-5 

135 GOSUB 5000 




8 y 
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140 XA-0:YA— 20 : LW-40 : LH-40 :NX- 

10:NY-10 

145 QOSUB 5000 

150 AS-INKEYS:IF AS-" THEN 150 
160 INPUT" INTRODUZA XX.XY.YX.YY 
.XO.YO ' iXX,XY,YX.YY,XO,YO 
170 GOTO 120 

Ao rodar o programa, você verá um 
pequeno quadrado no centro da tela, 
com uma linha pedindo que forneça no- 
vos valores para XX,XV,YX,YY,XO e 
YO (no MSX, deve-se apertar qualquer 
tecla para que a linha seja vista). Estas 
são as variáveis de transformação. 

XX e YY ajustam os fatores da esca- 
la nas direções horizontal e vertical. Se 
fornecermos valores negativos a essas 
variáveis, ocorrerá uma reflexão sobre 
o respectivo eixo. XO e YO ajustam a 
posição da grade na tela. XY e YX são 
responsáveis por rotações e distorções 
no desenho. As variáveis de transforma- 
ção têm valores iniciais XX = 1 , X Y = 0, 
YX = 0, YY = 1 , XO = 0 e YO = 0. Para 
modificar a imagem, precisaremos for- 
necer diferentes valores a essas variáveis; 
por isso, a linha 160 contém uma decla- 
ração INPUT. 

Aqui estão alguns conjuntos de valo- 
res que você pode experimentar no pro- 
grama. Forneça-os lado a lado, separa- 
dos por vírgula, exatamente na ordem 
em que são pedidos, e tecle < ENTER > 
ou < RETURN > (no Spectrum, tecle 
< ENTER > após cada um): 
- 1 ,0,0, 1 ,0,0: causa uma reflexão em re- 
lação ao eixo vertical na área central da 
tela. 




FORA DA TELA 

Alguns computadores não cc 
guem desenhar pontos que estejam fo 
ra da tela. Assim, se fornecermos a ' 
um valor muito grande, o programa st 
rà interrompido e obteremos uma men- 
sagem de erro. Não é o caso dos micros 
da linha MSX, os quais desenham qual- 
quer seção de pontos, ignorando aque 
les que estiverem fora da tela 
Contanto que a imagem esteja ínl 
mente na tela, os usuários de outros 
computadores não deverão ter nenhum 
tipo de problema. 

No próximo artigo, veremos como 
fazer uma checagem no programa, de 
modo a garantir que somente linhas 
possíveis sejam desenhadas. Elimina- 
remos, assim, as interrupções por men- 
sagens de erro. 



0.5,0,0,2,0,0: aumenta a imagem duas 
vezes na vertical e diminui pela metade 
na horizontal. 

1.0,0,1,100,-50: move a imagem cem 
unidades para a direita e cinquenta uni- 
dades para cima (ou para baixo no caso 
do Spectrum). Usuários do Spectrum 
podem tentar 1 ,0,0, 1 ,50, - 40 para uma 
mudança mais significativa. 
0,-1,1 ,0,0,0: faz a imagem rodar em 90 
graus. 

1,0.5,0,1,0,0: distorce a imagem na ho- 
rizontal. 

1,0.5,0.5,1,0,0: distorce a imagem na 
horizontal e na vertical. 

Para prever o efeito de cada conjun- 
to de valores é preciso algum conheci- 
mento sobre aritmética de matrizes. 
Portanto, embora saibamos como variar 
a forma do desenho, é um pouco mais 
difícil determinar a combinação que 
produzirá uma forma em 3-D. O próxi- 
mo programa faz isso com as mesmas 
rotinas que temos usado. Apague as li- 
nhas 135, 145 e 175 do programa ante- 
rior antes de inserir esta seção: 



110 GOSUB 9000 

120 LET L=108: LET N-4 

130 LET DX=.45*L: LET DY=.3*L 

140 LET XN— (L+DX)/2 

150 LET YN=-(L+DY)/2 

160 I.ET XO=XN 

170 LET YO-YN 

180 GOSUB 500 

190 LET XO=XN+DX 

200 LET YO-YN+DY 

210 GOSUB 500 

220 LET XY=DX/L: LET XO=XN 

230 LET YY=DY/L: LET Y0 = YN 

240 GOSUB 500 

250 LET Y0=YN+L 

260 GOSUB 500 

270 LET XX=DX/L: LET XY-0 

280 LET YX=DY/L: LET YY=1: LET 

YO-YN 

290 GOSUB 500 
300 LET XO-XN+L 
310 GOSUB 500 
320 STOP 

500 LET XA=0r LET YA-0: LET LW 
=L: LET LH=L: LET NX=N : LET NY 



= N 



GOSUB 9000 
L-120:N=2 
DX*.45*I,:D5E--3*t 
XN=- (L+DX) /2 
YN = - (l. + DY ) /2 
XO = XN 
VO = YN 
GOSUB 5 01) 
XO-XN+DX 



200 YO= YN+DY 

210 GOSUB 500 

220 XY-DX/L-XO=XN 

230 YY-DY/I. : YO-YN 

240 GOSUB 500 

250 YO=YN+L 

260 GOSUB 500 

270 XX=DX/L:XY=0 

280 YX=DY/L:YY=1 :YO=YN 

290 GOSUB 500 

.100 XO = XN + L 

310 GOSUB 500 

320 GOTO 320 

bOO XA-Q:YA-0:LH-L,:LH=L:NX-N:NY 



100 GOSUB 9000 

170 L = 308:N - 4 

130 DX = .45 * L : DY - .3 

140 XN - - (L + DX) / 2 

150 YN ■ - (L + DY) / 2 

160 XO = XN 

170 YO - YN 

180 GOSUB 500 



190 : 



DX 



200 YO = YN + DY 

210 GOSUB 500 

220 XV = DX / L:XO = XN 

230 YY - DY / L:YO - YN 

240 GOSUB 500 

250 YO - YN + L 

260 GOSUB 500 

270 XX = DX / I. :XY = 0 

280 YX - DY / L ; YY ■ 1 ' YO = YN 

290 GOSUB 500 

300 XO ■ XN + L 

310 GOSUB 500 

320 STOP 

500 XA = 0:YA - 0 r LW - L : LK = L 
;NX = N : NY = li 
510 GOSUB 5000 
520 RETUBN 



□ 



100 PMODE4 : SCREEN 1.1 

110 GOSUB 9000 

120 L-120:N-5 

130 DX-.45*L:DY-.3"L 

140 XN"- (L+DX) /2 

150 YN-- ÍL+DY) /2 

160 XO-XN 

170 YO-YN 

180 GOSUB 500 

190 XO-XN+DX 

200 YO-YN+DY 

210 GOSUB 500 

220 XY-DX/L:XO-XN 

230 YY-DY/L: YO-YN 

240 QOSUB 500 

250 YO-YN+L 

260 QOSUB 500 

270 XX-DX/L:XY-0 

280 YX-DY/L:YY-l:YO-YN 

290 QOSUB 500 

300 XO-XN+L 

310 QOSUB 500 

320 GOTO 320 
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SOO XA-0:YA-0:m-L:LH-L:NX-N:NY 
-N 

510 GOSUB 5000 
520 RETURN 

Ao rodar o programa, um cubo apa- 
recerá no centro da tela. Seus lados são 
traçados pela mesma rotina que desenha 
grades. Esta, com as variáveis adequa- 
das, muda a imagem para a forma de- 
sejada. Duas outras variáveis devem ser 
ajustadas antes que o cubo seja traça- 
do: a variável L (que determina qual o 
tamanho do lado do cubo) e a variável 
N (que determina o número de quadra- 
dos na grade). 

A variável DX especifica o quanto, 
à direita ou ã esquerda, a face de irás 
está da face da frente; DY define o 
quanto, acima ou abaixo, estas mesmas 
faces estão uma da outra. DX e DY fa- 
zem com que o cubo pareça ter largura 
e altura iguais, não adquirindo a forma 
de um paralelepípedo. 

Um outro par de variáveis — XN na 
linha 140 e YN na linha 1 50 — especifi- 
ca a posição inicial da face da frente do 
cubo. Esses valores são transferidos pa- 
ra XO na linha 160 e YO na linha 170. 
Em seguida, a linha ISO desenha a face 
de trás. Como ambas as faces são idên- 
ticas, para desenhar a face da frente pre- 
cisamos apenas de um incremento na 
direção X (linha 190) e outro na direção 
Y (linha 200). 

As linhas 220 e 230 transformam a 
grade (XY e YX) e redefinem os valo- 
res. Depois, a linha 240 desenha a face 
de cima. A linha 250 reposiciona verti- 
calmente esse desenho para fazer a face 
de baixo, que é igual à de cima. De mo- 
do similar, as linhas 270 a 310 transfor- 
mam a grade para obter os lados direito 
e esquerdo. 

Todos os quadrados da grade têm, 
em cada lado, o mesmo formato e o 
mesmo tamanho, e todas as linhas pa- 
ralelas permanecem paralelas, já que 
não fizemos nenhuma modificação pa- 
ra o desenho em perspectiva, nem adap- 
tamos o programa para mostrar outros 
ângulos do cubo. Estes serão nossos 
próximos passos no estudo das técnicas 
de elaboração de wireframes. 

Enquanto não chegamos lá, acrescen- 
te um laço ao nosso cubo, transforman- 
do-o num pacote de presente. Para isso, 
mude as linhas 120 e 130 e, depois, adi- 
cione as linhas que se seguem. Não se 
esqueça de gravar o programa! 




120 LET L=60: LET N=2 
130 LET DX».3*L: LET DY=.4*L 
311 GOSUB 9920 
9920 FOR M=0 TO PT STEP .01 



993(1 let n=cos (6*h) 

9940 LET S=D*COS Mi LET T-D*S1N 
M 

9950 LET S=S*20: LET T=ABS <T*2 
0] 

9960 PLOT S+127.T+106 
9970 NEXT M 
9980 RETURN 



120 L-60:N=2 

110 DX*.6"I.:DY-.5*L 

111 CÍOStlR 10000 
10000 BEM fira 

10010 FOR M=0 TO PI STEP. 02 

10020 D°rOS(6"M) 

10030 S-D"f!OS(M) :T-0«S1N(M) 

10040 S-S*24 ■T«-ABS(T*20) 

10050 PSET(S*)27.T+65) ,15 

lOOfiO NEXT 

10130 RFTUBN 

SC 

120 L ■ 60:N - 2 

130 DX - .3 " L:DY = 4 * L 

31] GOSUB 9920 

9920 FOR M = PT TO 2 * PT STEP 

.01 

9930 D - COS (6 • M> 

9940 S = 0 * COS (M) :T - D » 

SIN (M) 

9950 S ■ S • 20 :T - - ABS (T 
■ 20) 

9960 HPLOT S + 12 7.T + 46 
9970 NEXT M 
99B0 RETURN 



■■ 

100 PMODI4:SCREEN 1,1 

110 GOSUB 9000 

120 L-60:N-2 

130 DX-.6«L:DY-.5«L 

140 XN— (L+DX)/2 

150 YN-- (L+DY)/2 

160 XO-XN 

170 YO-YN 

180 GOSUB 500 

190 XO-XN+DX 

200 Y0-YM+DY 

210 GOSUB 500 

220 XY-DX/L:XO-XN 

230 YY-DY/L : YO-YN 

240 GOSUB 500 

250 YO-YN+L 

260 GOSUB 500 

270 XX-DX/L:XY-0 

280 YX-DY/L:YY-1: YO-YN 

290 GOSUB 500 

300 XO-XN+L 

310 GOSUB 500 

311 GOSUB 10000 
320 GOTO 320 

500 XA-0 : YA-0 : LU-L : l.H-L : NX-N : NY 
-N 

510 GOSUB 5000 

520 RETURN 

10000 DRAU-BM151 ,65" 

10010 FOR N-0 TO 4«ATN(1) STEP 

.02 

10020 D-COS(6*M) 

10030 S-D"COS(M) :T-D*SIN(M) 

10040 S-S»24:T-ABS{T»20) 

10050 LINE-(S+127,65-T) , PSET 

10060 NEXT 

10130 RETURN 
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Seja qual for a fonte de seus dados - 
orçamento doméstico, negócios e até 
hobbies -, organize-os em gráficos de 
barras ou de segmentos. Será mais 
fácil entender o que eles têm a dizer. 



Já tratamos, em artigo anterior, da 
organização de dados em gráficos. Ve- 
remos agora como usar gráficos de bar- 
ras (histogramas) ou de segmentos para 
mostrar dados numéricos numa forma 
não linear. Esses dois tipos de gráfico, 
empregados com frequência na apresen- 
tação de dados estatísticos e comerciais, 
podem ser coloridos, o que os torna 
muito mais atraentes. 

O gráfico de barras é especialmente 
indicado para a organização de dados 
que flutuam bastante. O de segmentos 
é útil sobretudo quando se quer demons- 
trar como diferentes valores estão rela- 
cionados como partes de um todo. As- 
sim, para fazer a escolha mais adequa- 
da, leve em conta o tipo específico de 
dados de que dispõe. 

Os programas que se seguem mos- 
tram como empregar o microcomputa- 
dor na elaboração dos dois iídos de crá- 
fico. Devido à falta de comandos gráfi- 
cos adequados no ZX-81 e no TRS-80, 
deixamos de apresentar programas pa- 
ra essas máquinas. 



MONTAGEM 00 GRÁFICO DE BARRAS 



A rotina para montar o gráfico de 
barras é essencialmente a mesma de 
qualquer outro gráfico. Uma vez de pos- 
se dos dados, é necessário entrá-los no 
computador; em seguida é preciso defi- 
nir os eixos, desenhar as barras e acres- 
centar legendas. Como vimos no artigo 
da página 481, podemos desenhar as 
barras à medida que entramos os dados 
ou entrar todos os dados previamente e 
só depois traçar o gráfico. Uma tercei- 
ra opção consiste em ler os dados por 
meio das instruções READ/DATA, 
alterando-os sempre que se quiser um 
gráfico diferente. Seja qual for o méto- 
do escolhido, convém armazenar os da- 
dos numa matriz numérica, de modo 
que o micro possa identificar as coor- 
denadas de cada barra. 



Digite as linhas seguintes para o com- 
■ putador ler os dados. Ao executá-las, 
I não verá nada na tela, mas é bom rodar 



cada parte do programa para evitar er- 
ros. (No Apple ou no TK-2000, para ter 
de volta a tela de texto, digite TEXT e 
tecle RETURN.) De qualquer forma, 
você pode verificar se aconteceu algo di- 
gitando PR1NT A(3), por exemplo. No- 
te que os dados já foram armazenados 
na memória do micro. 



10 L ET n=12 

20 OIM fl(n) 

70 FOR t-1 TO n 

80 READ alt) 

90 NEXT I 

1010 DATA 3, IS. 5. 9, 6, 3,6,8. 1,5,9 



□ 



5 N-12 

20 DIM A (N) 

60 PMODE 3.1:PCLS:SCREEN 1, 
70 FOB T-1 TO N 
80 HEAD A (T) 
90 NEXT 

3010 DATA 1,5,3.8.6,2.8.5.2 
. 10 



70 FOB T-1 



rjDE] 

10 N ■ 12 

20 DIM A(N) 

60 HOME : HGH 

70 FOR T • 1 TO N 

80 READ A (T) 

90 NEXT 

3010 DATA 2,5.3,8,6.2.0.9.7, 



Neste módulo, o programa seleciona 
o modo gráfico, determina o número de 
barras a serem traçadas — 12 (linha 10, 
ou 5, no TRS-Color) — e dimensiona a 
matriz para esse número (linha 20). 




Pode-se usar um número maior para 
traçar mais barras. Nesse caso, é neces- 
sário acrescentar dados ã linha 3010, pa- 
ra que haja uma equivalência entre o nú- 
mero de barras e o de dados. E interes- 
sante ter um número maior de dados 
quando se está testando o programa, de 
modo que se possa aumentar ou dimi- 
nuir o número de barras sem risco de 
que ocorra um erro do tipo "falta de da- 
dos" ou end of data. 




COMO FAZER UM HISTOGRAM A 

GRÁFICO DE BARRAS 

TRIDIMENSIONAL 

PROGR AME UM GRÁFI CO 

DE SEGMENTOS 



A ESCALA DOS EIXOS 



O computador conhece agora o va- 
lor absoluto de cada barra. Precisamos 
informá-lo sobre como fazer a escala 
dos dados, de maneira que cada conjun- 
to deles preencha a tela de forma ade- 
quada. Caso contrário, pode-se ter nú- 
meros tão pequenos que praticamente 
não sejam vistos ou, no outro extremo, 
valores que caiam fora do intervaio pos- 
sível da tela. Para fazer a escala, digite 
as próximas linhas. Novamente nada vai 
aparecer na tela, mas execute o progra- 
ma como um teste. 



30 LET rjx=239/n 
40 HEAD rfy 
.1000 DATA 18 



30 DX-164/N 
40 HEAD DY 
3000 DATA 1 



30 1>X=L64/N 
40 READ D¥ 
3000 CATA 1 



30 DX = T.NT (170 / N ) 
4 0 HEAD D¥ 
3000 DATA 15 

Esta parte do programa calcula a es- 
cala do eixo X dividindo o comprimen- 
to disponível pelo número de barras (li- 
nha 30). O valor máximo de barras va- 
ria de micro para micro, mas, conhecen- 
do o tamanho de sua tela gráfica e mu- 
dando os valores de N, você identifica- 
rá facilmente o valor mais adequado pa- 
ra um gráfico legível. 

Os valores do eixo Y são multiplica- 
dos por um fator para que tomem o ta- 
manho mais adequado. Esse valor não 
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c encontrado auiomaiicamente, mas li- 
do (linha 40) de uma declaração DATA 
(linha 3000 ). Para cada novo conjunto 
de valores, avalie qual o melhor fator a 
ser usado e coloque-o na linha 3000. 
Nesse ponto, você pode montar uma ro 
tina para dar entrada a tal valor a par 
til da linha 40 (usando INPUT). Se pre- 
ferir agir assim, não se esqueça de apa- 
gar a linha 3000. 

O restante do programa é composto 
de duas rotinas: uma que traça os eixos 
e outra que desenha as barras. Digite 
mais estas linhas, mas não as execute, 
uma vez que as rotinas chamadas ainda 
não se encontram na memória e um er- 
ro será detectado. 



100 GOSUB i 000 
140 GOSUB 2000 
160 STOP 

As linhas 100 e 140 chamam sub- 
rotinas que traçam os eixos e barras. 



130 determina a coordenada X para o 
ponto inicial do traçado da barra, mul- 
tiplicando T-l por DX e somando 8 — 
para garantir uma margem à esquerda 
— e A (que provoca um avanço de uma 
barra em relação a outra — para evitar 
que as barras fiquem coladas umas às 
outras). A coordenada Y (altura da bar- 
ra) é calculada subtraindo-se do total de 
linhas disponíveis o valor lido (A(T)) pe- 
lo fator DY (que você determina). A li- 
nha 1 40 chama a sub-rotina que desenha 
as barras e a seguir incrementa o valor 
de A. A linha 150 fecha o laço, chaman- 
do o próximo valor a ser desenhado. 



0 DESENHO DAS BARRAS 



Agora, digite as rotinas que traçam 
os eixos e desenham as barras: 



kâvn 



100 GOSUB 1000 

110 FOR T«l TO N 

130 X-[T-1)-DX+18:Y-188-16*A(T) 
■DY 

140 GOSUB 2000 

150 NEXT 

160 GOTO 160 

A linha 100 desvia o programa para 
a linha que desenha os eixos. A 1 10 abre 
um laço que marca o número de barras 
a serem desenhadas. A cada volta, a li- 
nha 130 ajusta a coordenada de X — 
mui tipi içando -a por DX e somando 18 
para deixar uma margem à esquerda — 
e a coordenada de Y — subtraindo do 
total de linhas disponíveis o valor lido 
(A(T)) multiplicado pelo fator DY (da- 
do) e pela constante 16. A linha 140 des- 
via o programa para a rotina que dese- 
nha as barras e a 1 50 fecha o laço, cha- 
mando o próximo valor. 



QBE] 



baixo, na tela. A linha 1030, por sua 
vez, se incumbe de traçar o eixo X, da 
esquerda para a direita. Observe que o 
sinal "-" faz com que seja traçada 
uma linha da última posição do cursor 
até a posição indicada entre parênteses. 
A linha 1050 muda a cor e abre um laço 
que executa a marcação de uma escala 
no eixo Y. 

A rotina seguinte (linhas 2000 a 2100) 
desenha um retãngulo para cada barra 
e o preenche de amarelo. 



1000 PLOT 16.0: DRAU 0,170 

1020 PLOT 16,0: DRAU 235.0 

] 030 RETURN 

2000 FOR n-\ TO n 

7010 LET s=l.fi+(a-l)*cix 

2020 FOR t-a TO s+dx-4 

2030 PI.OT t,0: DRAU 0.a[a)*dy 

204 0 NEXT t. 

2100 NEXT a 

2110 RETURN 

As linhas 1000 e 1020 desenham os 
eixos, deixando uma margem de dezes- 
seis unidades à esquerda do eixo Y. Pa- 
ra desenhar as barras, a linha 2000 to- 
ma um valor de cada vez, a linha 2010 
coloca o valor na escala (*dx) e a linha 
2020 monta um laço para desenhar as 
linhas verticais que formarão a barra. 
O "-4" no fim da linha provoca um pe- 
queno espaçamento entre as barras. As 
linhas restantes desenham as linhas que 
completam a barra e fecham os respec- 
tivos laços. 



D 



100 GOSUB 1000 
110 FOR T = 1 TO N 
130 X - (T - D " DX + B + A : Y 
- 150 - A (T) * DY 
140 GOSUB 2000 :A - A + 3 
ISO NEXT 
160 END 

A linha 100 chama a sub-rotina que 2100 return 
traça os eixos. A linha 110 abre um la- 
■ço que determina o número de barras a 
| serem desenhadas. Em seguida, a linha 



1000 LINE(0,25)-<0.191) . PSET 
1020 C0L0B 3 

1030 LINE -(255.191) , PSET 
1050 COLOR 2: FOR T = 0 TO 10 
1060 LINE(0.191-T*166/10)-(3,19 
1-TM66/10) ,PSET 
10 70 NEXT 
1080 RETURN 
2000 COLOR 2 

2090 LINE(X.190)-(X+DX,Y) ,PSET, 
BF 



A primeira linha desta parte do pro- 
grama desenha o eixo Y, de cima até em- 
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fffÁ 



166/10) -O O, 



1000 LINE (8. 25)- (8. 191 
I 010 LINE -(255 .191).] 
1050 FOfl T-0 TO 10 
1060 L1NEÍB.191- 
91-T*166/1 0) . 1 5 
10 70 NF.XT 
1080 RETURN 
2000 COLOR 10.5.5 
2090 LTNE (X, 190) - (X+DX , Y) . 2 . BF 
2100 RETURN 



A linha 1000 traça o eixo Y, deixan- 
do uma margem de oilo unidades. A li- 
nha 1030 traça o eixo X. O laço das li- 
nhas 1050 a 1070 marca uma escala no 
eixo dos Y para tornar mais fácil a lei- 
tura dos dados. 

A rotina das linhas 2000 a 2100 tem 
como tarefa mudar a cor de frente para 
amarelo e desenhar um rctángulo colo- 
rido para cada valor. 



1000 
5.5 
1010 
1020 
1010 

1040 
1050 
2000 




HPI.OT 5.155 TO 



HPLOT 5 . 150 TO 270 , 150 
FOR T - 0 TO 10 
HPLOT '2.150 - T * 145 / 1 
(< 150 - T * 145 / 10 
NEXT 
RETURN 

HCOLOR= 5: FOR S - 1 TO 0 



2010 HPLOT X + S.150 TO X 



As linhas 1000 e 1010 traçam os ei- 
xos Y e X, respectivamente. As linhas 
1020 a 1040 formam um laço para mar- 
car uma escala no eixo Y. A rotina se- 
guinte muda a cor para azul e monta um 
laço que desenhará cada barra como 
uma sequência de linhas verticais para 
o valor da barra. 



O gráfico de barras é bastante útil na 
apresentação de dados que flutuam muito num 
determinado perfodo de tempo — por 
exemplo, os índices pluviomél ricos mensais 
no decorrer de um ano (ao lado). 
Já o gráfico de segmentos é especialmente 
indicado quando se quer mostrar como 
diferentes valores se relacionam enquanto 
partes de um todo. 



Ao executar esse programa, voce ve- 
rá que a aparência do gráfico de barras 
é muito menos académica e mais atraen- 
te que a dos gráficos lineares, embora 
os dois tipos sejam construídos com o 
mesmo número de dados. Mas pode-se 
melhorar ainda mais a apresentação dos 
dados com a adição de um efeito tridi- 
mensional às barras, o que dará ao de- 
senho um aspecto sólido e natural e um 
destaque especial às cores. 

Antes de entrar o novo programa, 
grave o que você já tem na memória do 
computador (para uma posterior com- 
paração). Depois, sem digitar NEW, te- 
cle as alterações que se seguem. Se você 
quiser usar os comandos de edição do 
seu micro para reduzir o trabalho de di- 
gitação, fique atento para não deixar es- 
capar pequenas diferenças que possam 
existir entre as linhas. 



Acrescente ao seu programa apenas 
algumas linhas. Veja adiante. 



■I 



130 X-(T-1)*D2+18:Y-188-16*A(T) 
• DY 

1000 LINE {0,191)-(0,25) ,PSET:L 

INE-(DX*.6,26-DZ) . PSET 

1020 PAINT (2,100) , 4 : COLOR 3 

1030 LINE - (255-DXV6, 191) , PSET 

: LINE- (255. 191 -DZ) , PSET 

1060 LINE (0.191-T*166/10)-(DX* 

.6,191-T*166/10-DZ) , PSET 

2000 COLOR 4 

2090 LINE (X, 188) - (X+DX. Y) .PSET. 
BF 

fffi 

50 DZ-W (N+l ) 

115 TF A (T) =0 THEN 160 

120 D2-DX"! 4 : 1 F1>X>4 ()THF.ND2 = DX* 

15 

130 XMT-1)*D2 + 1H-Y-LRB-16-A(T1 
■DY 

1000 LINE [8 , 1 91 )- (8. 25) .6 ! LINE 

- (8+DX* .6. 26-DZ) ,6 

1010 LINE - (B+DXV 6, 191 -DZ) .6: L 

TNE -(8,191) ,6 

1020 PAINT (9. 180) ,6 

10.10 LTNE (8.191)-{75S-DXV6.19 

l),15;LINE - (255 , 191-DZJ , 1 5 

1040 LINE - (8+DX" .6, 191 -DZ) ,15: 

LINE -(8,1911,15: PAINT (ÍOO.UIQ 

1050 FOR T=0 TO 10 
1 060 LTNE (8,191 -T* 166/1 0) - (8*DX 
*.6. 191-T*166/t0-DZ) , l! 




PROGRAMAÇÃO BASIt 



50 DZ = 50 / (N + 1) : IF DZ > 5 

THEN DZ = 5 
1000 HCOLOR= 3: HPLOT 5,155 TO 

5,5 TO DX « .7,5 - DZ TO DX * 
.7.150 - DZ TO 5,150 
1010 HPLOT 5,150 TO 270 - DX * 

.7,150 TO 270,150 - DZ TO DX * 

.7,150 - DZ 
Não execute ainda o programa, pois, 
como ele não está completo, você obte- 
rá apenas uma mensagem de erro. Di- 
gite mais estas linhas: 



1010 DRAW 4,4: DRAW 0,-170 

2050 PL0T 1 6+ (a-l I *dx . a (a) *dy 

2060 DRAW 4.4 

2070 DRAW dx-4,0 

2075 DRAW -4.-4: DRAW 4.4 

2080 DRAW 0 , -a (a) *dy 

2090 DRAW -4,-4 



DX * . 7 . Y - DZ TO X + S + DX * 

. 7 . 1 50 - DZ: HCOLOR= 6 

2020 HPLOT X + S.150 TO X + S . 

Y 

2030 HPLOT TO X + S + DX * ./ 
,Y - DZ: REM TO X + 1 + DX * . 
7.Y - DZ TO X * 1,Y 
2040 NEXT 

2050 HPLOT TO X + S + DX * .7 
, ] 5 0 - DZ 

Você tem agora uma belíssima ima- 
gem tridimensional na tela. Como exer- 
cício, modifique os valores dos coman- 
dos de cores para selecionar aquelas que 
mais lhe agradam. Faça um registro das 
linhas que precisam ser mudadas para 
alterar a escala do gráfico, de modo que 
você tenha uma referência à mão quan- 
do for usar o programa mais tarde. Uma 
maneira simples de fazer esse registro 
consiste em utilizar linhas no programa 
com a declaração REM. Ela indica que 
seu conteúdo é exclusivamente informa- 
tivo, não devendo, portanto, ser inter- 
pretado como instrução ou comando ao 
computador. 



2000 COLOR12 . 5 . 5 

2010 LINE [X+DX, 188) - <X+r>X»l 6. 
1BB-DZ) : LINE - (X+DX* 1 . 6 , Y-DZ ) 
2020 LINE - [X+DX , Y) : LINE - (X+DX 
,188) 

2030 PAI NT (X+DX+2.185) 

2050 LINE [X.Y)-(X+DX*.6,Y-DZJ : 

LINE - (X+DX*1 . 6. Y-DZ) 

2060 LINE - (X+DX. Y) : LINE -{X.Y) 

2070 PAI NT (X+DX/2.Y-1) 

2090 LINE (X.]B8)-(X+DX.Y) ,3,BF 



440 LET 3=0: FOR k-=l TO n 

450 LET m=a+a(k)*f 

460 PLOT 127.86: DRAW 60*S1N m 

, 60*COS m 

470 LET a = m 

480 NEXT k 

4-50 PAUSE 0 : RETURN 



50 DZ=50/ (N+l) 

115 IF A(T)-0 THEN 160 

120 D2 = DXM.4:IF DXM0 THEN D2 = 

DX + 15 

1010 LINE -(DX*.6.191-DZ) , PSET : 
LINE-(0, 191) , PSET 
1040 LINE - (DX* . 6. 191-DZ) , PSET : 
LINE -(0.191) ,PSET:PAINT(127. 18 
9). 3 

2010 LINE (X+DX,188)-(X+DX*1.6. 
18B-DZ) .PSET: LINE- (X+DX-1 . 6 , Y-D 
Z) , PSET 

2020 LINE - (X+DX . Y) , PSET: LINE - 
[X+DX. 1B8) . PSET 
2030 PAINT (X + DX+2.185) .4 
2040 COLOR 3 

2050 LINE (X,Y)-(X+DX*.6.Y-DZ) , 
PSET: LINE- (X+DX*1 . 6 , Y-DZ) , PSET 
2060 LINE -(X+DX.Y) ,PS£T:LINE - 
[X, Y) , PSET 

2070 PAINT (X+DX/2.Y-1) . 3 
2080 COLOR 2 



D 



GRÁFICO DE SEGMENTOS 



Outra forma interessante de apresen- 
tação de dados é o gráfico de segmen- 
tos — um tipo de gráfico circular que 
requer apenas uma coordenada (coorde- 
nada polar) para cada informação, re- 
presentando por meio de um ângulo o 
tamanho de cada dado. 

Estruturalmente, o programa para 
desenhar um gráfico de segmentos é sim- 
ples. Para ver como funciona, entre e 
execute as linhas seguintes. 



10 D TM a (12) : LET n=0 
20 CLS 

40 PRINT AT 5 , 14 ; "MENU" 
50 PRINT AT 8,10;"1- Int 
ir dados" 

60 PRINT AT 10 . 10 ; "2-Gra 
70 PRINT AT 12,10;*3- Sa 
60 LET a5-INKEYS: IF aS< 
OR »$>"3" THEN GOTO 80 
90 C-OSUB VAL a$*2D0 
100 GOTO 70 
200 CLS : LET n=l 
210 PRINT "Item No. ";n.: 
INPUT LINE aS: PRINT aS : 
aS="" THEN RETURN 
220 LET a(nJ-VAL aS: LET : 
230 IF n<13 THEN GOTO 21' 
240 LET n=n-l : RETURN 
400 TF n=0 THEN RETURN 
410 CLS : LET tt-0: FOR t' 
n: LET tt = tt + a (t) : NEXT t 
420 LET f=(Z*PI)/tt 
430 CIRCLE 127.86,60 



10 DIM A(31) ,P(31) 
15 PMODE 3.1 
20 CLS 

40 PRINT 645. "MENU" 

50 PRINT 6169. "1- INTRODUZIR DA 

DOS" 

60 PRINT 6201, "2- GRÁFICO" 

70 PRINT 6233, "3- SAÍDA" 

80 AS"INKEY$:IF AS<"1" OR AS>"3 

" THEN 80 

90 ON VAL(AS) GOSUB 200.400.600 
100 GOTO 20 
200 CLS:N»0 

210 PRINT" ITEM NO. " ;N + 1 ; : INPUT 

AS:IF AS-"" THEN RETURN 
220 N=N+1 :A(N) =VAL (AS) 
230 IF N<31 THEN 210 
240 RETURN 

400 IF N-0 THEN RETURN 

410 PCLS:SCREEN 1.0:TT-0:FOR T- 

1 TO N:TT=TT+A[T) : NEXT 

420 FOR T = l TO N : P (T) -A (T) *810* 

ATN ( 1 ) /TT : NEXT 

430 J=0:P(0)--1 

440 FOR T-l TO N 

450 IF T-N AND N-3*INT (N/3) =1 T 

HEN COLOR 4 ELSE COLOR T-3*INT( 

T/3)+2 

460 FOR K-l TO P{T) 

470 X=X+. 01 : Y=Y+. 01 

480 LINE (127,95)-(127+60*SIN[X 

) ,95-60*COS(Y) ) ,PSET 

490 NEXT K.T 

500 IF INKEYS-"" THEN 500 
510 RETURN 
600 CLS 



10 DTM AI31) .P(31) 
20 CLS 

30 LO CATE 18:PHINT , 'MENU" 
40 LO CATE 10. B: PRINT"! - EnTrar 
dados" 

50 LOCATE 10. 1 1 : PRINT" 2 - Ver g 
ráf ico" 

60 LOCATE 10.14:PRTNT"3 - Fim" 
80 AS-TNKEYS ! TF AS<"1" OR A$>"3 
" THEN 80 

90 ON VAL (AS ) GOSUB 200.400.600 
100 GOTO 20 
200 CLS:N=0 

210 PRtNT"rt.em n« " : N+ 1 ; : TNPUT 
A(N+1):1F A(N+l)-0 THEN RETURN 
220 N=N+l 

230 TF N<31 THEN 210 
240 RETURN 

400 TF N=0 THEN RETURN 
410 COLOR 15, 15.15:SCREEN 2 ; TT= 
0:FOR T-] TO N:TT=TT+A(T) :NEXT 
420 FOR T=l Ti) N : P (T) =A (T) *B10* 



ROGRAMACÃO BASIC 



IHIIIIIIItlf 



ATN (1 ) /TT ! NEXT 
4.30 J-1:P(0J — 1 
440 FOR T=l TO N 

450 IF T-NTHEN COLOU 1.1 EI.SE .1' 

.1+1 :COLOR J:IF .1-12 THEN .1 = 0 

460 FOR K=l TO P{T) 

470 X=X+.01 :Y=Y+,01 

480 LINE (127,95)-(127+60*SIN(X 

| ,95-60*COS(T) ) 

490 NEXT : NEXT 

500 TF TNKEYS^-THENSOO 

510 HETURN 

600 CtS 

1000 DATA 8,9.1.0 



[jEEl] 



10 D.IM A(31 ) .PUI 1 
70 HOME 

40 HTAB 13: PRINT "MENU" 

50 HTAB 10: VTAB 10: PRINT "1 

- ENTRAR DADOS" 

60 HTAB 10: VTAB 1.1: PUI NT "7 

- VER GRÁFICO" 

70 HTAB 10: VTAB 16: PH I NT "1 

- FIM " 

80 (JET AS: IF AS < "1" OR AS > 

"3" THEN BO 
90 ON VAI. (AS) GOSUB 200.400, 
600 

100 GOTO 20 
200 HOME :N = 0 

210 PÍHNT " TTEM NO. ":N ♦ l; : 
1NPUT AS: 1F AS - "" THEI 



RETI 



(AS) 



RN 

220 N = N + 1 r A IN) - VA 
230 IF N < 31 THF.N 710 
24 0 RETURN 

400 IF N - 0 THEN RETURN 

4 10 HGR : TT = 0" FOR T - 1 TO 

N:TT - TT + AÍT) : NEXT 

470 FOR T ■ 1 TO N:P(T) = A (T) 

* 810 * ATN (11 / TT' NEXT 
430 .1 = 0:P(0) = - ) 
440 FOR T - l TO N 
450 .1 = J + 1 ! IF .1 ■ 4 THEN ,1 
- L 

455 HCOLOR* ,1: IF T - S THEN 
HCOLOR= 5 

460 FOR K = 1 TO P (Tl 



470 I 



.01: 



1 27 . 95 TO 127 + 60 * 
SIN (X) ,95 - 60 * COS (Y) 
490 NEXT l NEXT 
500 CET AS 
510 TEXT : RETURN 
600 HOME 

Ao executai o programa, um menu 
será apresentado na tela, oferecendo três 
opções: entrar dados, ver o gráfico ou 
terminar o programa. A linha 80 faz 
com que o computador espere até que 
uma tecla seja pressionada. Você pode 
pressionar qualquer uma, mas, devido 
à condição imposta pela declaração 
IF...THEN da mesma linha, somente as 
teclas 1, 2 ou 3 serão aceitas. 

Uma condição parecida faz com que 
o programa volte ao menu, caso você te- 
cle 2 sem ter nenhum dado na memó- 



ria. A tecla 3, por sua vez, termina o 
programa. É necessário o comando 
RUN para reiniciá-lo. 

No começo da execução, a escolha 
óbvia é a tecla 1 , que lhe possibilita en- 
trar alguns dados. A linha 90 indica pa- 
ra qual ponto do programa a execução 
será desviada; no caso, ela irá para a li- 
nha 200. Cabe a esta linha estabelecer 
uma variável (N) para o número de da- 
dos. A entrada de dados se dá na linha 
210. Eles permanecerão armazenados 
numa matriz (A(.)), na linha 220. Esta 
matriz foi dimensionada anteriormente, 
na linha 10. 

Para entrar os dados, digite o núme- 
ro seguido de ENTER ou RETURN. A 
linha 230 verifica se o espaço reservado 
para os dados já não está preenchido. 
Se ainda há lugar, o programa volta ã 
linha 210 para mais uma entrada. Não 
é obrigatório ocupar todo o espaço re- 
servado para dados. Quando você qui- 
ser encerrar a entrada de números, sim- 
plesmente tecle as instruções ENTER ou 
RETURN sem ter digitado nenhum nú- 
mero. O programa volta, então, a apre- 
sentar o menu principal, por ação da li- 
nha 210. Se, por outro lado, você preen- 
cheu todo o espaço disponível, a linha 
240 encerrará automaticamente a entra- 
da de dados. 



CONSTRUÇÃO DO GRÁFICO 



Se, agora, você pressionar 2, o pro- 
grama será desviado para a linha 400, 
encarregada de iniciar a rotina que de- 
senha o gráfico. A linha 410 lê todos os 
valores armazenados e calcula o seu to- 
tal. O restante da rotina calcula uma es- 
cala para os dados e desenha os gráfi- 
cos. Como isso é feito de maneira um 
pouco diferente para cada computador, 
a descrição será individual. Para enten- 
der melhor o funcionamento das fun- 
ções circulares no computador, veja o 
artigo da página 334. 




APERFEIÇOE OS PROGRAMAS 

Agora que você já completou e tes- 
tou os programas deste artigo, que tal 
tentai melhorar a aparência dos gráfi- 
cos desenhados na tela? Aqui vão al- 
gumas sugestões. 

Um recurso que enriquece muito o 
aspecto final de um gráfico — e que au- 
menta a sua utilidade, sobretudo quan- 
do se trata de ilustrar apresentações ou 
artigos — é a titulação. Você pode 
acrescentá-la ao programa, por meio de li- 
nhas DATA ou INPUT, sob três formas: 

• Rótulos para os eixos X e Y: identifi- 
cam o valor ou nome das divisões dos 
eixos (exemplo: os nomes dos meses 
em um gráfico de barras). 

■ Legendas: indicam o significado de 
cada barra ou "fatia" do gráfico de 
segmentos. No gráfico de barras, po- 
dem ser colocadas na parte de baixo ou 
no canto superior direito; no de seg- 
mentos, devem aparecer ao lado de ca- 
da "fatia". 

• Títulos propriamente ditos; especifi- 
cam o assunto do gráfico — por exem- 
plo, "VENDAS DA COMPANHIA XYZ. 
Resultados de 1985". Costumam ter 
de uma a trés linhas, geralmente cen- 
tradas e posicionadas na parte superior 
ou inferior da tela. 

Também é interessante salientar 
uma barra ou segmento, deslocando- 
o ligeiramente de sua posição — como 
se uma fatia do gráfico de segmentos 
fosse retirada. Este recurso, conheci- 
do como explosão, pode ser facilmen- 
te programado nos micros que pos- 
suem o comando CIRCLE, 



A linha 420 divide o círculo comple- 
to (um ângulo de 360 graus ou 2 pi ra- 
dianos) pelo valor total dos dados para 
obter um fator de escala. A linha 430 
encarrega-se de desenhar o círculo (de 
raio 60). As linhas 440 e 450 passam por 
todos os valores, calculando um subto- 
tal para cada um e multiplicando este 
valor pelo fator de escala (f). O valor en- 
contrado (m) é o valor de pontos na cir- 
cunferência do círculo. Este é dividido 
por raios desenhados pela linha 460, 



A linha 410 totaliza os dados da me- 
mória. Em seguida, a linha 420 passa 
por todos os dados, calculando um sub- 
total para cada um e dividindo este sub- 
total pelo total. Esses valores, já em es- 
cala, são armazenados na matriz P(.) 
que foi dimensionada na linha 10. A li 
nha 430 define variáveis que serão utili- 
zadas na sequência de cores. O laço 
FOR... NEXT iniciado na linha 440 es- 
colhe a cor para cada um dos segmen- 
tos do círculo, e o que começa na linha 
460 traça os raios que preencherão os 
segmentos com a cor predeterminada. A 
linha SOO faz com que o gráfico fique 
visível até que alguma tecla seja pressio- 
nada, momento em que o menu nova- 
mente é apresentado. 



IIIIIIIIIIIHM^^^H^HHBHHIIIHIIII 



GRÁFICOS DA ROM 
NO SPECTRUM (1) 



0 QUE SÃO CARACTERES 



GRÁFICOS PRÉ-PROGRAMADOS 
COMO ENTRAR CARACTERES 
GRÁFICOS PELO TECLADO 
DO MICRO 



Os computadores da linha ZX Spectrum 
dispõem de caracteres gráficos 
que podem ser usados dentro de um 
programa ou entrados diretamente pelo 
teclado. Aprenda a utilizá-los, 



Os micros da linha Spectrum (como 
o TK-90X) são muito versáteis do pon- 
to de vista da programação gráfica. Em 
artigos anteriores, vimos como a tela 
gráfica pode ser programada por meio 
de instruções extremamente poderosas, 
em alta resolução, tais como LINE, 
CIRCLE. PAINT etc. 

Entretanto, o Spectrum tem um re- 
curso gráfico adicional que c pouco ex- 
plorado: os caracteres gráficos de bai- 
xa resolução. Estes podem tanto ser en- 
trados diretamente pelo teclado quanto 
inseridos por intermédio da função 
CHRS, do BASIC. 

O que são caracteres gráficos? Como 
você já sabe, os caracteres que aparecem 
no vídeo têm códigos numéricos intei- 
ros, que, teoricamente, podem variar 
entre 0 e 255. Cada caractere correspon- 
de, portanto, a um byte da memória de 
vídeo. Parte dessa codificação é conven- 
cionada internacionalmente pelo chama- 
do código ASCII, que vai de 32 a 126. 
Os códigos de 0 a 31 são normalmente 
utilizados para funções de controle do 
vídeo, e dependem do tipo de computa- 
dor. O mesmo ocorre com os códigos de 
127 a 255. Nesta faixa, cada fabricante 
utilizou os códigos de uma maneira, ge- 
ralmente para acomodar caracteres 
gráficos. 

O Spectrum possui apenas dezesseis 
caracteres gráficos de teclado, os quais 
podem ser descritos como combinações 
dos quatro quadradinhos que formam 
um caractere (pbtels maiores dos que os 
utilizados na programação gráfica de al- 
ta resolução). A matriz básica de um ca- 
e gráfico é: 



possíveis, obtemos os diferentes gráfi- 
cos. Por exemplo: 



EB 



■ "Colorindo" 
I quadradinhos, er 



individualmente os 
todas as combinações 



O caractere gráfico com o código 128 
é um espaço em branco, o que não o tor- 
na menos necessário. Como os demais 
caracteres, ele pode ser invertido e co- 
lorido com INK e PAPER. 



Os caracteres gráficos são também 
conhecidos como gráficos da ROM, pois 
já vêm pré-programados. No Spectrum, 
eles ocupam a faixa da tabela de carac- 
teres que vai de 128 a 143 e, em geral, 
são utilizados para a elaboração de de- 
senhos em baixa resolução ou para a 
composição de bordas e outros tipos de 
linhas retas. Na formatação de tabelas 
ou formulários de entrada — seu empre- 
go mais frequente — apresentam a van- 
tagem de não complicar a programação, 
misturando tela gráfica com texto. Pos- 
sibilitam, dessa maneira, o uso de co- 
mandos bem mais simples, como 
PR1NT AT e TAB. 

Outra vantagem dos caracteres grá- 
ficos pré-programados é que eles se 
comportam exatamente como qualquer 
caractere alfanumérico, para fins de im- 
pressão na leia. Assim, valem para eles 
os comandos INK. IN VERSE e PA- 
PER, quando se quer mudar as cores de 
frente e fundo. É divertido tentar com- 
por desenhos de baixa resolução, usan- 
do os três comandos acima menciona- 
dos e os caracteres gráficos. E, não ha- 
vendo necessidade de alta resolução, se- 
rá sempre mais fácil desenhar com eles 
do que com os comandos gráficos. 



ENTRADA PELO TECLADO 



Da mesma forma que os caracteres 
convencionais do ASCII, os caracteres 
gráficos podem ser digitados pelo tecla- 
do. Para isso, pressione simultaneamen- 
te as teclas <CAPS LOCK> e <9> 
(a tecla 9 é identificada pelo rótulo 
GRAPH, na parte de cima). Desse mo- 



ido, coloca-se o teclado em modo gráfi- 
co, o que é indicado na tela pelo apare- 
cimento do cursor com a letra G. Em se- 
guida, pressione simultaneamente a te- 
cla <SHIFT> e uma das teclas numé- 
ricas (de 1 a 8). Você obterá, então, um 
dos símbolos gráficos marcados nas res- 
pectivas telas. Se não acionarmos o 
<SHIFT>, aparecerão os símbolos 
gráficos complementares, ou invertidos, 
em relação aos marcados nas teclas. 
Com isso, teremos acesso aos caracte- 
res desejados, que aparecerão direta- 
mente na tela — por exemplo, dentro de 
uma cadeia alfanumérica. 

Quando terminar de digitar os carac- 
teres gráficos em uma linha, pressione 
novamente <CAPS LOCK> e <9>, 
para sair do modo gráfico. 

O programa seguinte desenha uma 
tabela simples, usando blocos gráficos. 
Depois, coloca os nomes digitados pelo 
usuário nas linhas da tabela. 

zoo CLS 
210 PRINT 
220 PRINT 
230 PRINT 
240 FOR í-l TO 10 
250 PRINT 'I I I" 

260 NEXT i 

270 PRINT 'Ih^^^^' 

280 FOR 1-1 TO 10 

285 PRINT AT 19,0;"NOME:" 

290 INPUT nS 

300 PRINT AT i+3,4;i 

310 PRINT AT i+3,10;n3 

320 NEXT i 

Nas linhas 220 e 250, os espaços em 
branco e as letras podem ser digitados 
normalmente, sem ser necessário sair do 
modo gráfico. Nesse caso, as letras apa- 
recerão apenas em maiúsculo. Para apa- 
recerem em minúsculo, será preciso 
"desligar" o modo gráfico. 

Existem duas desvantagens na entra- 
da de caracteres gráficos pelo teclado: 
primeiro, nem todos os símbolos dispo- 
níveis estão marcados nas teclas, o que 
torna o processo mais trabalhoso e su- 
jeito a erros; segundo, o programa não 
pode ser listado em uma impressora não 
gráfica, ou que não seja própria para o 
Spectrum. 

No próximo artigo desta série, vere- 
mos como utilizar caracteres gráficos 
dentro de programas. 



■■■■ 
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PROGRAMAÇÃ 
GRÁFICOS EM 3 D (3) 




As leis da perspectiva foram 
formuladas no decorrer do Renascimento 
por artistas como Alberti e 
Leonardo. Aqui, você poderá aplicá-las, 
acionando apenas algumas teclas. 



Embora nos permitisse desenhar um 
cubo cm Ires dimensões c variar o seu 
■lamanho, o programa apresentado nos 
dois últimos artigos desta série tinha 
uma limitação: com ele era possível vi- 
sualizar o desenho apenas de frcnle. As- 
sim, era impossível observá-lo de cima, 
de lado ou de qualquer outro ângulo que 
desejássemos. Este artigo oferece roti- 
nas extras que nos permitirão especifi- 
car a posição dos nossos olhos, de mo- 
do l poder observar o cubo dc qualquer 
posição. 

lissa ricxibilidade é muito útil. sobre- 
tudo para desenhos de objcios mais 
aimplicados, pois a visão que obtemos 
nas diferentes posições pode nos reve- 
lar traços escondidos ou obscuros. Ao 
especificarmos uma sucessão de coorde- 
nadas diferentes para a posição dos nos- 
sos olhos, teremos a impressão dc estar 
•sobrevoando" o objeto. 

No enianio, embora usemos os mes- 
mos princípios, a sequencia de desenhos 
que pude ser gerada em um computador 
pessoal é muito lenia e o efeito obtido, 
inferior ao dos desenhos tipo wirefranw 
dos comerciais de televisão. Nestes últi- 
mos, temos a impressão dc que o obser- 
\ador aproxima-sc de um objeto (car- 
ro, nave espacial etc.) c o contorna a 
uma alta velocidade. 
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O EFEITO DO PONTO DE OBSERVAÇÃO 



Já mostramos como é possível repre- 
sentar um objeto tridimensional em uma 
tela de duas dimensões, usando conven- 
ções visuais que serão interpretadas pe- 
los olhos e pelo cérebro do observador. 
Os programas anteriores fizeram isso 
por intermédio de uma projeçào isomé- 
trica, na qual linhas oblíquas são vistas 
no contexto do desenho entrando ou 
saindo da tela. 

A forma mais comum de convenção 
visual é o desenho em perspectiva, em 
que as linhas qiie se afastam do obser- 
vador (ou seja, "entram" na tela) con- 
vergem para um ponto distante, conhe- 
cido como Ponto de Fuga, e têm dimi- 
nuídas as suas dimensões, à medida que 
se afastam do primeiro plano. Na reali- 
dade há três pontos de fuga na perspec- 
tiva em 3-D: um para cada linha orto- 
gonal desenhada ao longo dos eixos. A 
posição dos três pontos é fixada com ba- 
se na relação entre as posições do ob- 
servador e as do objeto a ser represen- 
tado (na convenção visual, esses pontos 
são imaginários). 

Assim, a primeira coisa que precisa- 
remos saber é a relação entre as posições 
do observador e as do objeto. Para de- 
terminarmos essa relação, devemos in- 
dicar o ponto de vista para os eixos X, 
Y e Z que foram especificados na tela. 
Os programas a seguir fazem exatamen- 
te isto, executando depois as transfor- 
mações necessárias. 



ANTES DE COMEÇARMOS 



Para rodar esses novos segmentos de 
programa listados abaixo, recorremos ã 
Rotina da Grade apresentada no artigo 
Programação de Gráficos em 3-D II) à 
página 581. Essa rotina deve ser carre- 
gada no computador. Uma boa idéia é 
carregar também a Rotina do Desenho 
do Círculo que se encontra no mesmo 



Um ponto de observação distante cria 
apenas um leve efeito de perspectiva, 
enquanto um ponto muito próximo 
lende a distorcer a imagem (à direita). 




artigo. Embora esta última não seja ne- 
cessária por enquanto, convém termos 
todas as rotinas juntas, prontas para o 
programa global de desenhos que sairá 
no próximo artigo. Desse modo, as li- 
nhas que precisaremos agora são as que 
vão de 5000 a 6160; todas as outras po- 
dem ser apagadas. 

Como anteriormente, teremos que 
entrar várias porções de programa an- 
tes de podermos rodar qualquer coisa, 
pois a posição dos olhos, da mesma ma- 
neira que as transformações para rota- 
ção e perspectiva, devem ser implemen- 
tadas em primeiro lugar. 




DEFINIÇÃO DO PONTO DE OBSERVAÇÃO 



A primeira parte do programa calcula 
as variáveis necessárias para se determi- 
nar a posição do olho do observador no 
espaço tridimensional: 



fffi 

8000 
8010 
8020 
8030 
9035 
8040 
8050 
8060 
8070 
BOSO 
8090 
I 

8100 
BUO 
8120 
B130 
8140 
8150 
B160 



XV-X:YV-Y:ZV-Z 
WV-YV*YV+ZV*ZV 
PV-SQR (XV*XV+WV) 
IF PV-0 THEN RETURN 
UV-SQR (MV) 
XU-XV/PV 
YU-YV/PV 
ZU-ZV/PV 

wu-wv/py 

REM ORIENTAÇÃO DO OLHO 
A-XV*YV:B=ZV:GOSUB 8450:G> 

A-YU:B-XV:G03UB 8450:O-G+H 

SG-SIN (G) 

CG-COS(G) 

[í EM MATRIZ DE ROTAÇÃO 

R1-WU*CG 

R2--WU«SG 

R3--XU 



Para representar uma figura em perspectiva, 
é preciso transformar as coordenadas 
dos eixos Irí dimensionais (XI, Yl, Zl) em 
pontos referidos aos eixos da tela (X, Y). 
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e i ao 

8190 
8200 
8210 

wu 

8220 
8230 
8240 
8250 
8260 
8270 
8280 
8330 
8340 



R6=XV*XU+YV"YU+ZV*ZU 
IF WU-0 THEN 8340 
XT-XV*WU- (YV«YU+ZV*ZU) *XU/ 

YT- (YV*ZU-ZV*YU) /WU 
R7« (ZU*3G-XU«YU*CG) /WU 
BB- (-YU«SG-XU*ZU«CG) /WU 
R9-CG*XT+SG«YT 

51- (ZU*CG+XU*YU*SG) /WU 

52- (-YU«CG+XU"ZU«SG) /WU 
S3 — SG*XT+CG«YT 
RETURN 

BEM CASO ESPECIAL NO EIXO 



8350 R7--1 



rb-o 

R9-0 
Sl-0 
82-1 
33-0 
RETURN 

IF BOO THEN H-ATN (A/B) : RE 



8370 
S330 
8390 
8100 
S410 
BAbQ 
TURN 

8460 H-PI/2 : RETURN 



HE] 



8000 XV - X:YV - Y:ZV " 

8010 WV - YV • YV + ZV 

8020 PV - SQR (XV • X" 

8030 IF PV - 0 THEN 1 

6035 WV - SQR (WV) 



I xu 



XV / PV 



8050 YU - YV / PV 
8060 ZU - ZV / PV 
8070 WU - WV / PV 
8080 REM ORIENTAÇÃO DO OLHO 
8090 A - XV ■ YV:B - ZV: GOSUB 
8450:G - H 

B100 A - YV:B - XV: GOSUB 8450: 
G - G + H 

8110 SC - SIN (G) 
81Z0 CG - COS <G> 
B130 REM MATRIZ ROTAÇÃO 
8140 RI - WU * CG 
8150 R2 - - UU * SC, 
B160 R3 > 
8170 R4 • 
B1B0'R5 - - ZU 
8190 R6 - XV ■ XU + YV * ' 
W * ZU 

8200 IF WU = 0 THEN 8340 
8210 XT - XV * WU - (YV * 
ZV * ZU) * XU / WU 
8220 YT ■= (YV * ZU - ZV * 



XU 
YU 



YU) / 



WU 

8230 R7 - (ZU ■ SG - XU * YU * 
CO) / WU 

B240 RB - ( - YU * SG - XU * ZU 

* CG) / WU 

8250 R9 - CG * XT + SG * YT 
8260 SI - (ZU " CG + XU « YU ■ 
SG) / WU 

8270 32 - ( - YU * CG + XU * ZU 

• SG) / WU 

8280 33 - - SG * XT + CG * YT 
8330 RETURN 

6340 REM CASO ESPECIAL NO EIX 
0-X 



Mb perspectiva aérea, M três pontos 
de fuga são fixados sobre os 
eixos X, V e Z. A figura da ilustração 
parece deformada devido 
à proximidade dos pontos de fuga. 




8370 R9 - 0 
B3B0 Sl-0 
8390 S2 - 1 
8400 33-0 
8410 RETURN 

8450 IF B < > 0 THEN H 

(A / B) : RETURN 
6460 H - PI / 2: RETURN 



B=ZV: GOS 



8000 LET XV-X: LET YV=' 
-Z 

8010 LET WV=YV*YV+ZV*ZV 
8020 LET PV=SQR (XV*XV+WV) 
8030 IF PV-íl THEN RETURN 
8035 LET WV=SQR WV 
8040 LET XU-XV/PV 
8050 LET YU-=YV/PV 
8060 LET ZU-ZV/PV 
8070 LET WtJ = WV/PV 
8080 REM OR TENTAÇÃO 
8090 LET A-XV*YV: LI 
UB 8450 : LET G-H 

8100 LET A-YV: LET B = XV: GOSUB 

8450: LET G-G+H 

8110 LET SG=SIN G 

8120 LET CG-COS G 

8140 LET R1=WU*CG 

8150 LET RZ — WU*SG 

8160 LET R3=-XU 

8170 LET R4=-YU 

B1.80 LET R5»-ZU 

8190 LET R6=XV*XU+YV*YU+ZV*ZU 

8200 IF WU = 0 THEN GOTO 8340 

8210 LET XT=XV*UU- (YV*YU+ZV*ZU ) 

•xu/wu 

8220 LET YT- ( YV*ZU-ZV*YU) /WU 
8230 LET R7= (ZU*SG-XU*YU*CG) /WU 



8240 LET R8= (-YU*SG-XU*ZU*CG) /W 
U 

8250 LET R9-CG*XT+SG*YT 
8260 LET SI ■ (ZU*CG+XU*YU*£5G) /WU 
8270 LET S2=(-YU*CG+XU*ZU*SG)/W 
- ATN U 

8280 LET S3--SG*XT+CG"YT 
8330 RETURN 
8350 LET R7 — 1 
B360 LET Rf) = 0 
B370 LET R9-0 
LET ZV 8380 LET Sl-0 
8390 LET S2-1 
8400 LET S3=0 
8410 RETURN 

8450 IF BOO THEN LET H = ATN (A 
/B) : RETURN 

8460 LET H-PI/2: RETURN 



6000 
8010 
8020 
8030 
8035 
8040 
8050 
8060 
S070 
6080 
8090 
H 

8100 
6110 
6120 
6130 
8140 
6150 



XV-X : YV-Y : ZV-Z 
WV-YV*YV+ZV*ZV 
PV-SQR (XV*XV+WV) 
IF PV-0 THEN RETURN 
WV-SQR(WV) 
XU-XV/PV 
YU-YV/PV 
ZU-ZV/PV 
WU-WV/PV 
REM ORIENTAÇÃO 
A-XV«YV : B-ZV : GOSUB 8450:G- 

A-YV:B-XV:GOSUB 8450:G-G+H 
SG-SIN(G) 
CG -CO 9 (G) 

REM ROTAÇÃO DA MATRIZ 
R1-WU*CG 
R2— WU*SG 
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8160 R 3 - - xu 
8170 B4— YU 

eiso R5— zu 

8190 R6-XV*XU+YV*YU+ZV*ZU 

8200 IF WU-0 THEH 8340 

8210 XT-XV*WU-(YV*YU+ZV*ZU)*XU/ 

MU 

8220 YT-(YV*ZU-ZV*YU)/WU 
8230 R7-(ZU*SG-XU*YU«CG)/WU 
8240 R8-(-YU*SG-XU*ZU*CG)/WU 
8250 R9-CG*XT+SG"YT 
8260 31-<ZU*CG+XU*YU«SG)/WU 
8270 82-<-YU*CG+XU*ZU*SG)/WU 
8280 33--SG»XT+CG"YT 
8330 RETURN 

8340 REH CASO ESPECIAL NO EIXO 
X 

B350 R7 — 1 
8360 R8-0 
8370 B9-0 
8380 31-0 
8390 S2-1 
8400 33-0 
8410 RETURN 

8450 IF BOO THEN H-ATN (A/B) EL 
SE H-PI/2 
8460 RETURN 

Para entendermos o que eslá aconte- 
cendo, devemos nos lembrar que o eixo 
Z é aquele que sai do centro da tela e 
vem na direção do observador; o eixo 
Y aponta para cima da leia e o eixo X, 
para os lados. 

A posição dos olhos está em (XV, 
YV, ZV). A variável WV nos dá a dis- 
tância nas direções Y e Z combinadas. 
Definimos a origem em (0, 0, 0) para a 
posição do objeto que observamos no 
espaço. Para simplificar, situamos essa 
posição no centro da leia. A linha 8030 
interromperá a rotina, caso a posição 
dos olhos seja definida na origem. As 
variáveis XU, YU, ZU são as distâncias, 
na direção dos respectivos eixos (X, Y, 
X) de uma linha de comprimento uni- 
tário entre a origem e a posição dos 
olhos. WU é a distância nas direções Y 
e Z combinadas. 

Se movermos o objeto da esquerda 
para a direita, nosso ângulo de visão so- 
frerá alterações. Esse ângulo é medido 
a partir do eixo X e definido nas linhas 
8090 e 8100. Um teste é feito nas linhas 
8450 e 8460 para evitar divisões por ze- 
ro, que interromperiam o programa, ge- 
rando uma mensagem de erro. 

Quando olhamos diretamente ao lon- 
go do eixo X, temos uma visão comum 
do objeto, mas, se rodarmos nosso pon- 
to de observação, o objeto também ro- 
dará, proporcionando ângulos mais in- 
teressantes. As linhas 8140 a 8280 ini- 
cializam as variáveis que definem a 
orientação da posição do olho no espa- 
ço. Essa posição é tal que o seu eixo Z 
encontra-se ao longo da linha que vai do 

■olho aié a origem da tela. 

| O resto da rotina inicializa variáveis 



para casos especiais; por exemplo, quan- 
do a posição do olho estiver exatamen- 
le sobre o eixo X. 



AS TRANSFORMAÇÕES 



A próxima seção transforma as coor- 
denadas X, Y e Z do cubo nas coorde- 
nadas finais da tela. Essa transforma- 
ção leva em conta a posição do olho e 
o efeito da perspectiva. 



f/.Ukm 



8500 
8510 
8520 
8530 
8540 
6550 
8560 
8570 
8575 
8580 
8590 
8600 



X1-T1*X+T4*Y+T7 

Y1-T2«X+T5*Y+T8 

Z1-T3*X+T6"Y+T9 

REM 2-D PARA 3-D 

X2-R1"X1+R7»Y1+R8*Z1+R9 

Y2-R2"X1+S1*Y1+S2"Z1+S3 

Z2-R3*XH-R4*Y1+R5*Z1+R6 

REM OBJETO PARA OLHO 

IF Z2<ZN THEN RETURN 

X3-D*X2/Z2 

Y3-D*Y2/Z2 

RETURN 



a] Ei 



B500 XI = Tl • X + T4 * Y + T; 
8510 Yl =■ T2 * X + T5 * Y + Tl 
8520 Z] - T3 * X + T6 * Y + Tl 
8530 REM 2-D PARA 3-D 
8540 X2 - RI * XI + R7 * Yl + 
8 * Zl + R9 

8550 Y2 - R2 * XI + SI * Yl + 
2 • Zl + 33 

8560 Z2 - R3 * XI + R4 * Yl + 
5 ■ Zl + R6 

8575 IF Z2 < ZN THEN RETURN 
8580 X3 - D * X2 / 22 
8590 Y3 - - D * Y2 / Z2 
8600 RETURN 



8500 t. ET Xl = Tl*X-»-T4*Y+T7 

B510 LET Y1=T2*X+T5*Y+T8 

8520 LET Z1=T3«X+T6*Y+T9 

8540 LET X2=R1*X1+B7«Y1+R8*Z1+R 

9 

8550 LET Y2-R2*X.I+S1*Y1+S2*Z1+S 
3 

8560 LET Z2=R3*X1+R4*YI. + B5*Z1+R 
6 

8575 IF Z2<ZN THEN RETURN 

8580 LET X3=D*X2/Z2 

8590 LET Y3=-D*Y2/Z2 
8600 RETURN 

Essa rotina usa uma matriz aritméti- 
ca complicada para transformar as coor- 
denadas (X, Y), que são basicamente os 
passos de transformação descritos no ar- 
tigo anterior desta série — Programa- 
ção de Gráficos em 3-D (2). As linhas 
8500 a 8520 transformam o plano car- 
tesiano (X, Y) de duas dimensões (2-D) 
no espaço de três dimensões (3-D) (XI, 
Yl, Zl). As linhas 8540 a 8560 transfor- 




mam as coodernadas espaciais (XI, Yl, ' 
Z 1 ), de modo a posicioná-las de acordo 
com a localização do olho e a direção 
(X2, Y2, Z2). 

A linha 8575 testa se a nova posição I 
a ser encontrada está excessivamente I 
próxima do olho (ou seja, se Z2 está en- I 
tre 0 e ZN) ou se está situada atrás dos 
olhos. Em ambos os casos, a posição é u 
ignorada, pois seria impossível visuali- 
zarmos o objeto. Se a posição estiver j- 
muito distante de ZN (a partir da posi- 
ção em freme ao olho), então a locali- 
zação das coodernadas da tela (X3, Y3) 
será calculada somente no fim da roti- 
na. O parâmetro D/Z2 nessas linhas i 
acrescenta perspectiva à figura, proje- I 
tando o objeto em uma tela plana a uma 
distância definida D. Se estabelecermos j 
um valor pequeno para D, o efeito ob- 
tido será uma perspectiva mais nitida 
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(como se a [ela estivesse mais próxima 
do usuário); se D for grande, a leia pa- 
recerá estar a uma grande distância do 
observador, de modo que o efeito de 
perspectiva será pequeno e a imagem 
aparecerá distorcida, mesmo quando 
vista obliquamente, de qualquer 
direção. 



COMO INICIALIZAR AS VARIÁVEIS 



O próximo passo será reescrever as 
Rotinas de Inicializaçâo e Desenho pa- 
ra podermos usar as novas rotinas de 
transformação. 



9030 XD-XM/2 : YD-YM/2 
9040 ZN-1 

9042 CLS;INPUT"DiBtancia do pia 

9045 IF D<0%HEN D-1000*ZN 

9050 Tl=l :T2-0:T3-0 

9060 T4-0:T5-1:T6-0 

9070 T7»0:T8-0:T9-0 

9085 CLS 

9090 BETUBN 

9500 X-XS : Y-YS :GOSUB 8500:IF 22 

<ZN THEN 9520 

9510 IX-12B+X3:IY-97-Y3 

9520 X-XE:Y=YE:GOSUB 8500:IF Z2 

<ZN THEN 9550 

9530 LIME (1 27+X3, 95-Y3) - (IX, IY) 
.15 

9550 BETUBN 



H1E1 



9030 XD - XM / 2:YD - YM / 2 
9040 ZN - 1 

9042 INPUT "DISTANCIA AO PLANO 

DE PBOJECAO ~;D 
9045 IF D < 0 THEN D - 1000 * 
ZN 

9050 TI - 1:T2 - 0:T3 - 0 
9060 T4 - 0:T5 - 1 :T6 - 0 
9070 T7 - 0:T8 - 0:T9 - 0 
9090 HOME : P.ETURN 
9500 X - XS:Y - YS : GOSUB 8500: 

IF 22 < ZN THEN 9520 
9505 IF X3 < - 139 OB Y3 < - 

95 OB X3 > 140 OB Y/3 > 96 THEN 

9550 

9510 IX - 139 + X3:IY - 95 + Y3 

9520 X - XE:Y - Vil GOSUB 8500: 
IF Z2 < ZN THEN 9550 

9525 IF X3 < - 139 OB Y3 < - 
95 OB X3 > 140 OB Y3 > 96 THEN 
9550 a 

9530 HPLOT 139 + X3.95 + Y3 TO I 
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9000 CI.S 

9020 LET XM-2S6: LET YM-176 
9030 LET XD=XM/2: LET YD-VM/2 
9040 LET ZN-1 

9042 INPUT "IMTBODUZA DISTANCIA 

AO PLANO DE PROJECAO" . D 
9045 IF D< = 0 THEN LET D-1000*Z 
H 



9050 LET Tl-1 ! LET T2-0 
-0 

9060 LET T4-0: LET T5- 1 
-0 

9070 LET T7 = 0: LET T8 = 0 



LET 13 
LET T6 
LET T9 



9090 CLS : RETURN 
9500 LET X-XS: LET Y-YS : GOSUB 
8500- IF Z2<ZN THEN GOTO 9520 
9505 IF X3<-127 OR Y3Í-B7 OR X3 
>128 OR Y3>8B THEN GOTO 9550 
9510 PLOT I27+X3.87 + Y.1 
9520 LET X = XE: LET V = YE: GOSUB 
8500 : IF Z2<ZN THEN GOTO 9550 
9525 IF X3<-127 OR Y3<-87 OR X3 
>128 OR Y3>88 THEN GOTO 9550 
9530 DB AU 127+X3-PEEK 23677,87+ 
Y3-PEEK 23678 
9550 RETURN 



rodamos o programa, de modo que po- 
demos variar o grau da perspectiva. Se 
nenhum valor for especificado e pressio- 
narmos ENTER ou RETURN a linha 
9045 adoiará o valor 1000. As linhas 
9050 a 9070 atribuem valores para as 
constantes de transformação, especifi- 
cando o plano no qual será desenhada 
a imagem em perspectiva. 

Esse trecho do programa continua 
com a Rotina de Desenho revisada. Na 
linha 9500, são inicializadas as variáveis 
para as constantes de transformação; 
nas linhas 9505 e 9525 é feito um teste 
para determinar se o novo ponto a ser 
desenhado (linhas 95 10 e 9530) está den- 
tro dos limites da tela. O MSX não pre- 
cisa desse teste, pois ele ignora os pon- 
tos fora da tela. Nos outros micros, o 
teste serve para prevenir contra mensa- 
gens de erro. 



Precisaremos agora da rotina para 
desenhar a grade fornecida no primeiro 
artigo da série. Caso você não a tenha 
gravado, digite-a antes de inserir esta 
parte final do programa. 



9000 PCLS 

9020 XM-256:YM-192 
9030 XD-XM/2:YD-YM72 
9040 ZN-1 

9042 CLS : INPUT " INTRODUZA A DI 
3T ANCIÃ AO PLANO DE PBOJECAO ' 

;D 

9045 IF D<-0 THEN D-1000*ZN 

9050 Tl-l:T2-0:T3-0 

9060 T4-0:T5-1:T6-0 

9070 T7-0:T8-0:T9-0 

9085 CLS 

9090 RETURN 

9500 X-XS: Y-YS:OOSUB 8500 :IF Z2 
<ZN THEN 9520 

9505 IF X3<-127 OR Y3<-96 OR X3 

>128 OR Y3>95 THEN 9550 

9510 DRAU"BM"*STn9(INTU27 + X3)) 

+- , *+STR3 (INT (95-Y3) ) 

9520 X-XE:Y-YE:GOSUB 8500:IF Z2 

<ZN THEN 9550 

9525 IF X3<-127 OR Y3<-96 OR X3 
>128 OR Y3>95 THEN 9550 
9530 LINE - (127+X3.95-Y3) , PSET 
9550 RETURN 

A Unha 9020 atribui às variáveis XM 
e YM as dimensões máximas da tela nas 
direções X e Y, respectivamente. A li- 
nha 9030 calcula o ponto médio; a 9040 
calcula a posição mais próxima permi- 
tida nos pontos a serem desenhados, 
conforme a posição do olho. 

A variável D nos dá a distância atual 
da posição do olho até o plano de pro- 

■ jeçào (a tela) e determina a perspectiva. 

I Os valores de D são inseridos quando 



ffíi 



100 PI-4*ATN(1) 

110 GOSUB 9000 

120 L-20:N-5 

125 GOSUB 505:GOTO 140 

130 GOSUB 500 

140 IF X-0 AND Y-0 AND 2-0 THEN 

170 

150 GOSUB 1000 
160 GOTO 130 
170 CLS 
180 END 

500 IF INKEYS" " " THEN 500 
505 CLS 

510 INPUT"Poaiç3o do observador 

(X.Y.Z) : -;X,Y.Z 
520 GOSUB 8000 
530 CLS:SCREEN 2 
540 RETURN 
1000 P-L/2 
1010 Tl-1 :T2-0:T3-0 
1020 T4-0:T5-l:T6-0 
1030 T7 — P:TB--P:T9--P 
1040 GOSUB 1200 'BAIXO 
1050 T7"-P:T8--P:T9-P 
1060 GOSUB 1200 ' CIMA 
1070 T4-0:T5«0:T6 — 1 
1080 GOSUB 1200 "ESQUERDA 
1090 T7 — P:T8-P:T9-P 
1100 GOSUB 1200 ' DIREITA 
1110 T1=0 :T2--1 :T3-0 
1120 GOSUB 1200 ' TRAS 
1130 T7-P:T8-P:T9-P 
1140 GOSUB 1200 ' FRENTE 
1170 RETURN 

1200 XA=0:YA=0:LW-L:LH-L:NX-N:N 
Y-N 

1210 GOSUB 5000 



12 20 RETURN 

HEI 

100 PI - 4 » ATN (1) 

110 GOSUB 9000 

120 L - 20:N - 5 

125 GOSUB 505: GOTO 140 

130 GOSUB 500 

140 IFX-0 AND Y-0 AND Z - 

0 THEN 170 
150 GOSUB 1000 
160 GOTO 130 
170 HOME 
180 TEXT ! END 

500 GET T$: IF TS " THEN 50 

0 

505 TEXT : HOME 

510 INPUT "POSIÇÃO DO OBSERVAD 

OR (X.Y.Z) ";X,Y,Z 

520 GOSUB 8000 

530 HGR2 : HCOLOR- 3 

540 RETURN 

1000 P-L/2 

1010 Tl - 1:T2 - 0:T3 = 0 

1020 T4 - OiTS - 1:T6 - 0 

1030 T7 - - P:T8 - - P:T9 - 

- P 

1040 GOSUB 1200: REM BAIXO 
1050 T7 - - P:T8 - - P:T9 - P 

1060 GOSUB 1200: REM CIMA 
1070 T4 - 0:T5 - 0:T6 - - 1 
1080 GOSUB 1200: REM ESQUERDA 

1090 T7 - - P:TB - P:T9 - P 
1100 GOSUB 1200: REM DIREITA 
1110 Tl - 0:T2 - - 1:T3 - 0 
1120 GOSUB 1200: REM TRAS 
1130 T7 - P:TB - P:T9 - P 
1140 GOSUB 1200 REM FRENTE 
1170 RETURN 

1200 XA - 0;YA - 0:LM - L:LH - 
L:NX - N:NY - N 
1210 GOSUB 5000 
1220 RETURN 



110 GOSUB 9000 
120 LET L-20: LET N=3 
125 GOSUB 505: GOTO 140 
] 30 GOSUB 500 

140 IF X-0 AND Y-0 AND Z=0 

THEN GOTO 170 

150 GOSUB 1000 

160 GOTO 130 

170 CLS 

180 STOP 

500 IF IN^VS^"" THEN GOTO 

500 
505 CLS 

510 INPUT " INTRODUZA POSTCAO D 
O OBSERVADOR (X , Y , Z ) " , X , Y . 2 
520 GOSUB 8000 
530 RETURN 
1000 LET P-L/2 

1010 LET Tl-1: LET T2-0 : LET T3 
-0 

1020 LET T4-0: LET T5=l: LET T6 
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1040 GOSUB 1200: REM BAIXO 
1050 LET T.7 = -f>; LET TB=-P: LET 
T9-P 

1060 GOSUB 1200: BEM CIMA 
1070 LET T4 = 0: LET T5-0 : LET Tfi 

— 1 

1080 GOSUB .1.200: REM ESQUERDA 
1090 LET T7=-P: LET T8 = P : LET T 
9-P 

1100 GOSUB 1200- BEM DIREITA 
1110 LET TJ=0: LET T2=-l : LET T 

3-0 



1140 GOSUB 1200: REM FRENTE 
1170 HE TU RN 

1200 LET XA=0: LET YA'0: LET LW 
-L: LET LH = L : LET NX = N: LET NY = 



El 



100 PI-4*ATNU> :PWODE 4,1 
110 GOSUB 9000 
120 L-20:N-5 
12S GOSUB SOS: GOTO 140 
130 GOSUB 500 

140 IF X-0 AND Y-0 AND 2-0 THEN 

170 

150 GOSUB 1000 
160 GOTO 130 
170 CLS 
160 END 

500 IF INKEYS- ' ' TH EH 500 

505 CLS 

510 INPUT" INTRODUZA A POSIÇÃO 
DO OBSERVA- DOR (X.Y.Z) ";X.Y,2 
520 GOSUB 8O00 
530 PCLS:SCREEN 1,1 
540 RETURN 
1000 P-L/2 
1010 Tl-l:T2-0:T3-0 
1020 T4-0:T5-1:T6-0 
1030 T7 — P:T8--P:T9--P 
1040 GOSUB 1200 ' BAIXO 
1050 T7 — P:T8 — P:T9-P 
1060 GOSUB 1200 ' CIMA 
1070 T4-0:T5-0:T6--1 
1080 GOSUB 1200 ' ESQUERDA 
1090 T7 — P:TB-P:T9-P 
1100 GOSUB 1200 ' DIREITA 
1110 T1-0:T2— 1 ;T3-0 
1120 GOSUB 1200 "ATRAS 
1130 T7-P:T8-P:T9-P 
1140 GOSUB 1200 ' FRENTE 
1170 RETURN 

1200 XA-0:YA-O:tW-L:LH-L:NX-N:N 
Y=N 

1210 GOSUB 5000 
1220 RETURN 

Agora, rode o programa. Se ele esti- 
ver funcionando corretamente, o com- 
putador acessará a rotina de inicializa- 
ção que começa na linha 110. Essa roti- 
na iniciaJiza algumas variáveis e impri- 
me uma mensagem que pede um valor 
para D, a distância do plano de proje- 
ção. A perspectiva nesse programa è fei- 




ta de tal maneira que, quanto maior a 
distância, mais afastado aparecerá o ob- 
jeto. Devemos entrar com o valor 1000 
para começar. O programa retorna pa- 
ra a linha 120, que especifica o compri- 
mento (L) de cada lado do cubo, e o nú- 
mero de grades quadradas (N) ao longo 
de cada fado. As linhas 130 a 160 lêem 
as coordenadas da posição do olho (li- 
nha 510), e desenham o cubo a partir 
dessa posição. Assim que obtivermos a 
primeira imagem do objeto desenhado, 
podemos digitar um novo conjunto de 
coordenadas e ver o cubo por um outro 
ângulo. Quando entramos os valores 0, 
0 e 0, o programa termina. A rotina das 
linhas 500 a 530 chama a rotina de po- 
sição (linha 1 20) para inicializar as cons- 
tantes de transformação. A rotina do 
Cubo (linhas 1000 a 1 170) posiciona e 
desenha cada um dos seis lados. A roti- 
na Lado (linhas 1200 a 1220) desenha ca- 
da lado como uma grade, usando a Ro- 
tina da Grade. 

Tente valores diferentes para a posição 
do olho e estude os efeitos decorrentes. 
O valor 1000 para D e 250, 0 e 0 para X, 
Y e Z são bons para começar. Depois, 
adote 100 para D e 25.0 e 0 para X, Y e 



Z. O cubo deverá aparecer do mesmo ta- 
manho, mas a perspectiva será muito 
mais pronunciada. Para digitar novos 
valores para X, Y e Z devemos pressio- 
nar qualquer tecla e a mensagem apare- 
cerá. Para atribuir novos valores a D. 
interrompa o programa com <BREAK> 
ou <RESET> e rode-o novamente. 
Uma mensagem aparecerá para D, se- 
guida de outra para X, Y e Z. 

Como o programa ignora eventuais 
erros ocasionados por pontos fora da te- 
la, os resultados podem ser bastante es- 
tranhos (neste caso, uma linha inteira é 
omitida, mesmo quando apenas uma de 
suas extremidades excede o ponto má- 
ximo permitido). Para pontos mais pró- 
ximos do que uma certa distância míni- 
ma e pontos localizados atrás do olho, 
ZN será ignorado. Dessa maneira, se a 
posição do olho estiver muito próxima, 
ou mesmo dentro do cubo, poderão 
ocorrer falsos resultados. 

Finalmente, é aconselhável guardar 
uma cópia da listagem completa em fi- 
ta ou disco, de modo a usar as mesmas 
rotinas para desenhar formas duplica- 
das e produzir gráficos circulares em fu- i 
turos programas. 
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CONECTE UMA 



1 



Ao contrário das máquinas de escrever, 
sempre prontas para serem 
operadas, as impressoras só podem ser 
usadas com um computador depois 
que certas condições são satisfeitas. 



Se você leu Como Escolher uma Im- 
pressora (página 521 ), já sabe como agir 
para adquirir um desses periféricos. 

Dependendo da marca e do modelo 
do micro, além da impressora, você pre- 
cisará provavelmente de uma interface 
que a compatibilize com ele. 

Mas adquirir uma impressora e sua 
respectiva interface pode não resolver 
todos os problemas. Com efeito, mui- 
tos usuários descobrem, após a compra, 
que ainda precisam de um bom tempo 
para ligar o novo periférico e fazè-lo 
funcionar de modo fluente. É que isso 
exige informações complementares so- 
bre quais são os códigos de controle ade- 
quados, como enviá-los à impressora e 
como trabalhar com todas aquelas fun- 
ções especiais, que pareciam prometer 
tanto e que o fizeram sair de casa e ad- 
quirir a impressora. 

Neste artigo, tentaremos esclarecer 
alguns dos pontos ainda obscuros e 
orientá-lo no sentido de resolver as di- 
ficuldades mais comuns que surgem pa- 
ra aqueles que desejam se equipar com 
uma dessas máquinas. 



COMO AJUSTAR A IMPRESSORA 



Suponhamos que você já 
adquiriu uma impressora, 
que a conectou à lomada, 
e que está agora no pon- 
to em que não sabe co- 
mo fazer para colo- 
car tudo aquilo em 
funcionamento. . . 

O primeiro 
conselho é: não li- 
gue ainda o peri- 
férico. Existem 
uma ou duas coi- 
sas que você de- 
ve fazer primei- 
ro; para muitas 
impressoras, o mais 
importante de tudo é 
a remoção do parafu- 
so de fixação para 
transporte (usado para imobilizar a má- 
quina quando ela é levada de um lugar 
para outro). 

Algumas impressoras não têm meca- 
nismo de proteção para transporte; por- 
tanto, verifique com bastante atenção o 
manual de instruções do fabricante. Ge- 
ralmente, existem dois ou Irês parafu- 




sos, que podem ser auxiliados por elás- 
ticos ou fitas adesivas. Estes devem ser 
removidos cuidadosamente, pois as úl- 
timas coisas de que você vai necessitar 
quando estiver imprimindo serão elás- 
ticos e fitas adesivas. Quanto aos para- 
fusos, mantenha-os à mão: você talvez 
precise reutilizá-los em caso de transpor- 
te da impressora. 
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_COMO AJUSTAR A I MPRESSORA 
_____ QUE PAPEL USAR 



_____ TESTE A I MPRESSORA 
A CON EXÃO C OMO COMPUTADOR 
COMO FAZER O CONTROLE 



PÉÕÃÍg 
ÓDIGOS DE ESC APE 
:-81 EOSPECTRUM 
S ORAS DO FUTURO 



"CÓDIGOS DE ESCAI 



LIGUE O ZX 81 EOSPECTRI 
IMPRESSORAS DO FUTURi 



Uma vez destravado o aparelho, vo- 
cê pode ligá-lo. O botão para isso geral- 
mente está em uma das laterais ou na 

parte traseira da máquina. 

Muitas impressoras dispõem de uma 
pequena luz, vermelha ou verde, desti- 
nada a avisar se a fonte está ligada. Mas, 
ainda que ela nào seja provida de luzes, 
você provavelmente perceberá o peque- 
no movimento que a cabeça de impres- 
são realiza para ajustar-se^ Certos mo- 
delos avisam quando o papel não está 
colocado e ajustado corretamente, por 
meio da emissão de um alarma sonoro 
ou outro sinal qualquer. 

Sc a impressora não funcionar na pri- 
meira tentativa, não se desespere: pode 
ser alguma coisa tào simples como um 
fio solto. Se, ao contrário, ela funcio- 
nar (o que é, aliás, muito mais prová- 
vel), desligue-a novamente e coloque o 
papel (e a fita impressora, caso isto se- 
ja necessário). 



Há dois tipos básicos de impressora 
quanto ao tipo de papel usado: as que 
empregam formulários contínuos (papel 
dobrado em z, com perfurações nas 
margens) e as que utilizam folhas soltas 
ou papel alimentado por bobinas. As 
máquinas mais versáteis — como as 
compatíveis com a linha Epson — - acei- 
tam os dois tipos de papel. Impressoras 



térmicas e etetrostatteas requerem papel 
especial e em geral são máquinas espe- 
cificas para determinadas marcas dc 

computador. 

Se você puder escolher, não use pa- 
pel muito fino ou excessivamente gros- 
so. E, quando for ajustá-lo na impres- 
sora, verifique primeiro se ele nào está 
frouxo ou demasiado tenso, pois o ajus- 
te incorreto pode provocar rompimen- 
tos no papel ou levá-lo a enredar-se no 
mecanismo. 



No caso de sua impressora dispor de 
recursos para um autoieste, ê convenien- 
te acioná-los assim que ela estiver pronta 
para trabalhar. Esse tipo de verificação 
consiste em imprimir ininterruptamen- 
te um conjunto completo de caracteres. 
Ele serve para dois propósitos: primei 
ro, mostrar que a impressora está fun- 
cionando independentemente do i 
putador; segundo, para exibir o conjun- 
to de caracteres disponíveis no peri 
férico. 

Nàs impressoras de tipo mais co- 
mum, o autoteste é acionado quando se 
pressiona o botão de avanço de linha ou 
de formulário. 

Para parar o autoieste, basta desligar 
a impressora. (Algumas máquinas dis- 
põem de um botão especial para acio- 
nar o autoteste.) 



FITAS DE IMPRESSÃO 



A menos que a sua impressora seja 
térmica ou eletrostática, ela provavel- 
mente precisará de uma fita de impnfc_ 
São. Essas fitas costumam ser vendidas 
em cartuchos descartáveis, e nào è difí- 
cil trocá-las (consulte antes o diagrama 
existente no manual da impressora). Um 
pequeno botão na parte de cima do car- 
tucho da ftta serve para dar a ela a ten- 
são adequada. 



A CONEXÃO AO COMPUTADOR 



A última c mais importante etapa 
dessa sequência é a ligação da impres- 
sora ao computador. Em muitos casos 
isso é tào simples quanto inserir o cabo 
de conexão no soquete correio: essa é a 
forma de ligação das impressoras que 
usam o padrão Centronics (paralelo). 
Frequentemente, como acontece com o 
TK-2000 e com o MSX, existe um co- 
nector claramente reservado para a im- 
pressora. Nos computadores da linha 
Sinclair (ZX-8I e Spectrum), é necessá- 
rio uma interface especial, que é conec- 
tada no mesmo ponto destinado a ligar 
outros tipos de expansão (memória, sin- 
tetizadores de voz ele). Nesse caso, é 
preciso, quase sempre, desligar uma ex- 
pansão já existente, para poder colocar 
a interface da impressora, a não ser que 
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você lenha comprado uma interface com 
um conector adicionai de expansão. Es- 
se sistema é conhecido como "encadea- 
mento em margarida" e deve ser feito 
com certa precaução. 

Se você vai adquirir uma impressora 
que não é específica para o seu compu- 
tador, deve tomar alguns cuidados. Se 
o seu micro é um MSX, ou um TK-2000, 
por exemplo, a impressora deve ser, 
obrigatoriamente, do tipo paralelo, pa- 
drão Centronics (a maioria das impres- 
soras mais populares, como a Mônica, 
a Grafix e outras compatíveis com os 
modelos Epson e Seikosha tem esse pa- 
drão). Os micros da linha Apple podem 
trabalhar tanto com impressoras para- 
lelas como com as seriais, que usam o 
padrão RS-232C, dependendo da inter- 
face que se vai utilizar. Já os micros 
compatíveis com o TRS-Color usam 
apenas impressoras seriais. 

Ao conectar o cabo, você notará que 
a maioria das impressoras tem soquetes 
que impedem uma ligação em posição 
invertida. Isso não ocorre com a impres- 
sora para os micros da linha TRS-80 
(por exemplo, o CP-500), que aceitam 
o soquete em qualquer posição. 

Se você quiser conectar uma impres- 
sora de fabricante independente nos mi- 
cros da linha Sinclair (Spectrum e 
ZX-81), precisará adquirir uma interface 
especial. As interfaces para tais micros 
existentes no mercado nacional devem 
ser ligadas a impressoras paralelas com 
o padrão Centronics. 

Em alguns casos, a interface só fun- 
ciona quando o computador é carrega- 
do com um programa específico para is- 
so. Entretanto, uma vez que você tenha 
uma, poderá ligar praticamente qual- 
quer impressora ao seu computador. As 
melhores interfaces são oferecidas pelos 
próprios fabricantes de micros, mas 
mesmo assim é bom fazè-las funcionar 
antes de adquiri-las. 



COMANDOS OE CONTROLE 



Qualquer coisa a ser impressa tem 
que ser enviada primeiro pelo compu- 
tador ã impressora, através do cabo de 
conexão. Os comandos usados para 
controlar a impressora variam de com- 
putador para computador, e em geral 
consistem de algumas instruções 
simples. 




O Spectrum e o ZX-81 se comunicam 
com a impressora por comandos simples 
em BASIC, de fácil manipulação. O co- 
mando LPRINT tem um efeito similar 



ao PRINT; com ele, porém, a saída vai 
para a impressora e não para a tela. No 
ZX-81, todas as regras do PRINT va- 
lem também para o LPRINT. No Spec- 
trum, entretanto, não se tem a mesma 
liberdade de especificar o tipo de im- 
pressão, como se faz com o comando 
PRINT. Por exemplo, não é possível 
utilizar os comandos PAPER, INK, 
OVER, FLASH e BRIGHT. 0 1NVER- 
SE só funciona em certos tipos de im- 
pressoras gráficas. O mesmo acontece 
com os caracteres gráficos que podem 
ser colocados dentro de um PRINT, 
tanto no ZX-81 quanto no Spectrum (as 
impressoras não específicas para tais mi- 
cros não dispõem desses caracteres no 
seu conjunto de impressão). O PRINT 
AT também não funciona na im- 
pressora. 

Assim como o comando PRINT é 
substituído por LPRINT, o LIST dá lu- 
gar a LLIST, que lista o programa da 
memória na impressora. Quando a lis- 
tagem ocupar mais de uma tela, LLIST 
gerará uma impressão continua, inde- 
pendentemente do tamanho do 
programa. 

O terceiro comando BASIC usado 
para acionar a impressora é o COPY. 
Ele copia o que estiver na tela por um 
processo denominado descarregamento 
de tela. Quando a impressora é utiliza- 
da para produzir pontos em vez de le- 
tras é chamada de impressora gráfica. 
Você pode trabalhar com o COPV pa- 
ra fazer uma cópia da tela contendo os 
resultados de um texto ou de uma lista- 
gem de programa em qualquer tipo de 
impressora. A cópia de telas gráficas 
funcionará apenas se a impressora for 
específica para o seu computador (uma 
impressora gráfica, portanto). 

O TK-90X emprega uma interface 
paralela, própria para acionar uma im- 
pressora e que exige o carregamento pré- 
vio de um programa de controle (dri- 
ver). Esse programa è vendido em con- 
junto com a interface, com um cabo de 
conexão e com um manual de instru- 
ções. O software só precisa ser carrega- 
do uma vez ao se ligar o computador. 
Mas, sempre que este for desligado, se- 
rá preciso carregá-lo novamente. O soft- 
ware permite a utilização dos comandos 
LPRINT, LLIST e COPY 

Já os micros da linha ZX-81, como 
o TK-85, requerem também uma inter- 
face paralela; mas não é preciso carre- 
gar um software de controle para usar 
diretamente os comandos citados. 

HE 

Os micros da Unha Apple podem ser 
conectados tanto a impressoras seriais 



como a impressoras paralelas. Para is- 
so, é necessário adquirir separadamen- 
te a interface adequada de controle; esta 
deve ser encaixada em um dos soquetes 
internos do console do computador. De 
forma geral, costuma-se dar preferência 
à interface paralela, uma vez que é 
maior o número de impressoras que se- 
guem esse padrão. 

A impressora é tratada, pelo BASIC 
e pelo sistema operacional, como um 
dispositivo de saída que recebe o núme- 
ro lógico correspondente ao soquete no 
qual foi inserida a placa de controle. As- 
sim, se encaixarmos a placa no soquete 
1 (a localização mais comum) e quiser- 
mos ativar a impressora, é necessário di- 
gitar o comando em BASIC: 
PBH 

A partir desse momento, todo 
PRINT ou I IST que for digitado em 
modo direto, ou encontrado dentro de 
um programa, terá sua saída direciona- 
da tanto para a tela quanto para a im- 
pressora (modo eco). Portanto, o PR 
pode ser colocado em pontos seleciona- 
dos de um programa, para "ligar" e 
"desligar" o eco na impressora. 

Os micros da linha Apple não dis- 
põem, como os de outras linhas, de co- 
mandos específicos para a impressora, 
como LLIST, LPRINT etc. Por moti- 
vos óbvios, os comandos de posiciona- 
mento do cursor, como HTAB e VTAB 
não funcionam com a impressora. 

fffi 

A interface de comunicação adequa- 
da aos micros da Unha MSX é do tipo 
paralela padrão Centronics. Tanto eia 
quanto o conector para o cabo de liga- 
ção já estão incluídos na configuração 
básica da máquina. 

Existem três protocolos de impressão 
(conjuntos de caracteres de impressão 
diferentes) para micros da linha MSX. 
O primeiro padrão é o MSX Internacio- 
nal, que segue a tabela de caracteres AS- 
CII especiais e gráficos do padrão MSX 
original , Esse padrão é seguido por mais 
de trinta fabricantes de todo o mundo. 
O segundo é o ABICOMP (Associação 
Brasileira de Indústrias de Computado- 
res): ele segue normas nacionais, que in- 
cluem os caracteres acentuados da lín- 
gua portuguesa. Finalmente, temos um 
terceiro protocolo, criado no Brasil pe- 
la Gradiente para os primeiros modelos 
do Expert MSX. Ao se adquirir uma im- 
pressora, é necessário especificar qual o 
padrão seguido pelo micro; caso contrá- 
rio, a impressora não funcionará corre- 
tamente. 

Os comandos usados com o BASIC 
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para o controle da impressora são tam- 
bém bastante simples e diretos. 

O comando LPRINT tem um efeito 
similar ao PRINT; com ele, porém, a 
saída vai para a impressora e não para 
a tela. Todas as regras de sintaxe que va- 
lem para o PRINT servem para o 
LPRINT, inclusive quando se trata do 
emprego de TAB e USING. Entretan- 
to, os comandos de especificação de co- 
res (como o COLOR) e os de localiza- 
ção bidimensional do cursor (como o 
LOCATE) não funcionam na impresso- 
ra. O mesmo acontece com os caracte- 
res gráficos e especiais que podem ser 
colocados dentro de um PRINT, uma 
vez que impressoras não específicas pa- 
ra esse micro não dispõem desses carac- 
teres no seu conjunto de impressão. 

Assim como o comando PRINT é 
substituído por LPRINT, o comando 
LIST é substituído por LLIST, que lis- 
ta o programa da memória na impres- 
sora. Quando a listagem tomar mais de 
uma tela, LLIST gerará uma impressão 
continua independentemente do tama- 
nho do programa. As regras de utiliza- 
ção do LIST valem para o LLIST. Ou- 
tra função útil, de uso exclusivo da im- 
pressora, é a LPOS, que informa ao 
programa a posição lógica da cabeça de 
impressão, em número de colunas a par- 
tir da margem esquerda de uma linha. 



Também nos micros da linha TRS-80 
a interface de comunicação é do tipo pa- 
ralela padrão Centronics, e ela e o co- 
nector para o cabo de ligação incluem- 
se na configuração básica das máquinas 
mais completas, como o CP-500. 

Os comandos usados com o BASIC 
para o controle da impressora são sim- 
ples e diretos. O LPRINT tem um efei- 
to similar ao PRINT, embora direcíone 
a saída para a impressora e não para a 
tela. Todas as regras de sintaxe do 
PRINT valem para o LPRINT ( o que 
inclui as expressões TAB e USING). 
Entretanto, os comandos de locali- 
zação bidimensional do cursor 
como PRINT@ não funcionam 
com a impressora. O mesmo se 
dá com os caracteres gráficos e 
especiais que podem ser coloca- 
dos dentro de um PRINT, já 
que impressoras ti ão específicas 
para o TRS-80 não têm esses si- 
nais no seu conjunto de im- 
pressão. 

Assim como o comando PRINT d; 
lugar a LPRINT, o LIST é substituído 
por LLIST, que lista o programa da me- 
mória na impressora. Se a listagem to- 
mar mais de uma tela, LLIST gerará 
uma impressão continua independente- 



mente do tamanho do programa. As re- 
gras do LIST valem para o LLIST. 

Outra função útil, de uso exclusivo 
da impressora, é a LPOS, que informa 
o programa a respeito da posição lógi- 
ca da cabeça de impressão, em número 
de colunas a partir da margem esquerda. 



Os micros da linha TRS-Color dis- 
põem só de uma porta serial para comu- 
nicação com periféricos, que é a usada 
para conexão com a impressora. Mes- 
mo assim, o controle da impressão (fei- 
ta por alguns comandos do BASIC) nes- 
ses micros também é simples. Para lis- 
tar um programa digite LLIST (segui- 
do por <ENTER>). Todas as regras 
do LIST valem para o LLIST, só que 
a saída vai para a impressora, e não pa- 
ra a tela. Para usar PRINT com a im- 
pressora, é preciso digitar a expressão: 



Ela determina ao computador que 
envie sua saída (aqui a palavra TEXTO) 



ao periférico -2, que é o número de iden- 
tificação para a impressora (mais exa- 
tamente, para a interface serial). Repa- 
re que há uma virgula após o -2 no co- 
mando acima. Ela informa ao compu- 
tador que a seguir vem um texto para 
ser impresso. Além disso, se usado com 
impressoras capazes de imprimir letras 
minúsculas, o texto que está em vídeo 
inverso na tela aparecerá em minúscu- 
las na impressora (é necessário pressio- 
nar <SHIFTxO> antes). 

Assim, o comando PRINT#-2 tem 
um efeito similar ao PRINT (com uma 
diferença: ele determina que a saída vá 
para a impressora, e não para a tela). 
As regras de sintaxe do PRINT valem 
para o PRINT#-2, inclusive quando 
aparecem as expressões TAB e USING. 
Porém, os comandos de especificação de 
cores, e de localização bidimensional do 
cursor, como PRINT®, não funcionam 
com a impressora. O mesmo se dá com 
os caracteres gráficos e especiais que po- 
dem ser colocados dentro de um 
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PRINT, pois as impressoras não espe- 
cificas para o TRS-Color não têm esses 
sinais em seu conjunto de impressão. 

Outra função de uso exclusivo da im- 
pressora é a POST(-2): informa a posi- 
ção lógica da cabeça de impressão, em 
número de colunas a partir da margem 
esquerda de uma linha. 



PROGRAMAÇÃO INTERNA DA IMPRESSORA 



Quem deseja dominar os segredos do 
trabalho com impressoras precisa co- 
nhecer primeiro como se faz sua progra- 
mação interna e externa. A programa- 
ção interna é feita normalmente por 
meio de microinterruptores (os DIP) e 
fios removíveis de conexão (os estrapes), 
situados na placa interna da máquina. 
Já a externa é realizada através de se- 
quências de caracteres de controle ( deno- 
minados sequências de escape por come- 
çarem com o código ASCII 27, corres- 
pondendo ao caractere de controle cha- 
mado ESCAPE). 

Dentro das impressoras e de outros 
equipamentos eletrônicos,.vocè encon- 
trará um conjunto de pequenas chaves: 
as chaves DIP. Elas podem ser usadas 
para alterar o estado da impressora, 
quando ela for ligada (o estado dejauil, 
ou predefinido). São comumente inicia- 
lizados por chave o comprimento da li- 
nha, o espacejamento, o retorno do car- 
ro e o comprimento da página. As im- 
pressoras de tecnologia japonesa permi- 
tem ainda que você selecione o conjun- 
to de caracteres internacionais de que 
precisa (exemplo: o sinal da libra ester- 
lina, ou acentos para certos caracteres, 
empregados em idiomas como francês, 
sueco e português). 

Para encontrar os interruptores de 
programação interna, consulte o manual 
da impressora: em geral, eles estão lo- 
calizados sob a tampa da impressora (es- 
ta, porém, só deve ser removida quan- 
do a impressora estiver desconectada da 
corrente elétrica). 

Uma vez localizadas as chaves DIP, 
você pode trocá-las de posição 
empurrando-as delicadamente com os 
dedos ou com uma chave de fenda. O 
manual de instruções deve ter um dia- 
grama do DIP e de suas posições, de 
modo a mostrar para que elas estão se- 
lecionadas. Faça um teste você mesmo. 

Outras características de uma impres- 
sora (como, por exemplo, o fato de to- 
do caractere de alimentação de linha ser 
seguido automaticamente de um retor- 
no de carro) podem ser alteradas 
removendo-se ou inserindo-se um estra- 
pe (pequeno fio em forma de U, com co- 
! nectores em ambas as pontas) em pon- 



tos apropriados da placa eletrónica da 
máquina. Antes de fazer isso, porém, é 
conveniente consultar o manual especí- 
fico da sua impressora. 



CÓDIGOS DE ESCAPE 



Algumas impressoras (como a Môni- 
ca, por exemplo) admitem o envio de có- 
digos de controle, da mesma forma que 
se enviam os dados a serem impressos. 
Esses códigos são frequentemente cha- 
mados de sequências de escape. Assim, 
muitas impressoras esperam que você 
coloque o código para o escape, CHR$ 
(27), antes do código de controle. Isso 
permite à impressora saber que o que es- 
tá chegando no momento é uma men- 
sagem de programação externa, e não 
um caractere a ser impresso. 

Cada impressora tem as suas sequên- 
cias de escape próprias, embora os ca- 
racteres usados nas máquinas compatí- 
veis com a Epson estejam se tornando 
rapidamente um padrão para impresso- 
ras que oferecem facilidades similares. 
Nas máquinas mais versáteis há um 
enorme conjunto de sequências de esca- 
pe. Estas podem ser enviadas por um co- 
mando LPR1NT normal. 

Em uma Epson, o exemplo a seguir 
imprime a palavra COMPUTADOR em 
modo enfatizado, desde que tenham si- 
do enviados os comandos correios. 

LPRIHT CHRS (27) ; ' E ' ; ' COMPUTADOR 

4 

PBIl 

PRINT CHR$ (27) i 1 E 1 ; ' COMPUTADOR ' 

■ ■ 

PRINT*-2,CHR3(27) : ' E ' ; "COMPUTAD 
OP.' 

Mas não se esqueça de voltar ao mo- 
do normal. Para isso, use os seguintes 
comandos: 

5 r/4 D 

LPRJNT CHR$(27) ; *F' 

XI 

PRtl 

PH [ NT CHnS (27) ; ' F ' 

Q 

PRJNTi-2 , CHRS 127) ; ' F ' 

Lembre-se, porém, de que esses có- 
digos são exclusivamente para as im- 
pressoras Epson e as que são compatí- 



veis com ela. Para outras impressoras, 
os códigos serão diferentes. 



OS CÓDIGOS EPSON 



Os efeitos mais comuns obtidos com 
os códigos de escape do tipo Epson são 
os seguintes: impressão em itálico, im- 
pressão grifada, impressão em negrito, 
subscritos e sobrescritos. Certas opera- 
ções variam de máquina para máquina. 
As que apresentamos a seguir funcio- 
nam na maioria das impressoras com- 
patíveis com a Epson: 
ESC 4 ativa um conjunto alternativo de 
caracteres (geralmente o itálico). 
ESC 5 retorna ao conjunto padrão. 
ESC - ativa e desativa o grifo. Deve ser 
seguido por CHRSU) ou por CHRS<49); 
para a alteração, é desativado por 
CHR$(0) ou CHR$(48), conforme tenha 
sido ativado por CHRSU) ou por 
CHR$<49) 

ESC G ativa o modo dupla impressão. 
ESC H desativa o modo dupla im- 
pressão. 

ESC S, quando é seguido de CHRS<0). 
ativa o modo de sobrescrição; quando 
é seguido de CHRSU), ativa o modo de 
subscrição. 

ESC T retorna a impressora ao modo 
normal depois de ativado o modo de 
subscrição ou sobrescrição. 
ESC @ inicia a impressora e volta to- 
dos comandos aos valores originais. 

Você pode usar as sequências de es- 
cape em praticamente todas as impres- 
soras conhecidas, colocando-as depois 
do comando que o seu computador usa 
para enviar uma saída à impressora 
(LPRINT, PRINT#-2, ou qualquer ou- 
tro) e separando-as por pontos e vírgu- 
las, assim como se faria com qualquer 
outro comando CHRS. 

Algumas impressoras exigem que se 
coloque um caractere ASCII para o ES- 
CAPE entre todos os códigos de contro- 
le. O manual de instruções deve dizer se 
você vai ou não precisar disso. 



NOVAS TENDÊNCIAS 



As sequências de escape terão um pa- 
pel mais importante na medida em que 
as impressoras se tornarem mais bara- 
tas e sofisticadas. Já existem impresso- 
ras com matrizes de ponto cuja quali- 
dade é quase a mesma das impressoras 
"margarida"; algumas delas têm carac- 
terísticas próprias usualmente associa- 
das com fotocomposição profissional, 
tais como: espacejamento proporcional 
e justificação automática à direita ou à 
esquerda. 
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iUZ 
VHIRISSAGE 



■ 


UMA ROTINA DE CONTROLE 


DO AVIÃO PELO TECLADO 


■ 


A ATERRISSAGEM 


■ 


ACIDENTES AÉREOS 


■ 


PERDAS E DANOS 




Agora que você já é um (relativo) ás 
da aviação, desligue o piloto 
automático e, com apenas três funções, 
faça o aparelho aterrissar. 
Mas tenha cuidado com os urubus. 



Última parte de nosso programa si- 
mulador de vôo, este artigo fará com 
que você possa finalmente assumir o 
controle direto do avião. Três pares de 
teclas permitirão aumentar e diminuir a 
rotação do motor, virar o aparelho pa- 
ra os lados, subir ou descer. 

Nossa viagem começou a 20.000 me- 



tros do centro da pista e a 2.000 metros 
de altura. 

Pilotar pode ser uma tarefa difícil... 
sobretudo se você nada sabe do assun- 
to. Não espere bons resultados nos pri- 
meiros vôos: como em tudo na vida, a 
habilidade só vem com o tempo. 

Relativamente lentos por estarem em 
BASIC, programas como esse parecem 
ainda mais morosos pelo fato de não 
permitirem mudanças bruscas de curso. 
Com paciência e perseverança, porém, 
você conseguirá controlar o aparelho e 
melhorar seus pousos. O programa o 
manterá informado a respeito de cada 
aterrissagem ou acidente. Essas mensa- 
gens são importantes: será por meio de- 



las que você saberá não só o que está 
acontecendo em cada momento como 
também onde se encontram suas prin- 
cipais deficiências. 



1000 LET POU=0: [.ET K 
TF K3-"" THEN HETUHN 
3010 TF K3*"3 
1020 I F KS-*F 
30.10 fF K3="0 



10-10 



K9-- 



10^0 TF KS="0 

LET RL-RL-l 
3060 Vi KS-"P 



THEN LET POW--1 
THEN LET PGW = 1 
THEN LEI PT-PT+ 



THEN LET PT=PT- 
AND RL>-30 THEN 
AND BL<30 THEN | 
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.3070 RETUHN 

5020 CLS • INPUT "VELOCIDADE DO 

VENTO (1-50 M/S)".X0 
5025 IK X0>50 OH X0< I THEN GOT 
O 5020 

5030 INPUT "DIREÇÃO DO VENTO (0 
-359 GRAUS) " -XI 

5035 TF Xl>359 OH XK0 THEN GO 
TO 5030 

5040 LET X0=X0/i 

5050 PHINT '"VELOCIDADE M VBHt 

O* ";3*X0:" M/8" : PH I NT "DIRECA 

O- "sXli" GRAUS" 

5055 PAUSE 100: CtS 

5060 LET WV = --X0*COS (X1*C) 

5070 LF.T WX=-X0*51N ÍX1*C) 

5500 GO SUB 3000: GOSUB 1000 

5510 IF PZ<-0 THEN COTO 6000 

5520 QOfiUB 2000 

5530 GOTO 5500 

6000 If AB!1 HL>HT OR PT>TP OP- P 
T<0 OH W>80 THEN GOTO 6030 
61)10 1F ABS PX>WH OB ABS PY>100 
0 THEN GOTO 6060 
6020 CLS : PRINT " PARABÉNS!": 
PR l NT * ATOUt X 88 AGEM BEM SOCKDID 
A.": GOTO 6100 

6010 FOR N»0 TO 20 STEP .5: Pt.O 
T 177,110: OK AU 120-1 MT (RND-24 
Q),45-INT (RND*90) : SOtJND .005. 
20-N: NEXT N 
6040 PAUSE 50 

6050 CLS : PRINT " LAMENTAMOS ÍN 
FORMAR yi!E O VOO PJ-26 SOFREU 

(1M GRAVE AC [DENTE . NAO HA SOBR 

KWTVENTES.": GOTO 6100 

6060 CLS : PRINT "VOCE POUSOU F 

6070 IF VV<40 THEN PRINT "COMO 
SUA VELOCIDADE ERA BAIXA QUA 
SE NADA ACONTECEU . " : GOTO 6100 
6080 IF VV<B0 THEN PHINT " ENTH 
E MORTOS E FERIDOS SAL 
VARAM- SE TODOS.": GOTO 6100 
6090 PR TNT "NTNGUEM SOBREVIVE A 
UM POUSO NESSA VELOCIDADE!" 

6100 PHINT ' "VALORES RELATIVOS 
AO POUSO" 

6110 PRINT ' "VELOCIDADE DO AH= 
";INT VVi" M/S": PHINT "DI8TAMC 
IA- ";INT (SQB <PY«PY+PX'PX) ) : 
PH [NT "INCLINAÇÃO FRONTAL» " ; PT 
6120 PRINT "INCLINAÇÃO LATERAL - 
"iRL: PHINT "ROTAÇÃO 1)0 MOTOR- 

" ; f NT (10*TC)/Í0t' a X 1000" 

6130 PRINT "DESVIO DO ETXO DA P 
TSTA» "itNT ABS PX : " METROS" : P 
RINT "DIREÇÃO " "iAD;" GRAUS" 
6140 PRINT ' "QUER VOAR NOVAMENT 
E (S/N) ?" 

6150 LET AS- I NKEYS ! IF AS<>"S" 
AND ASO"N" THEN GOTO 6150 
6160 TF A5="N" THEN CLS : STOP 
61 70 RUM 

A sub-rotina que vai de 3000 a 3070 
nos dará o controle do aparelho. 

Usando o comando INKEYS para 
detectar teclas, podemos modificar a ro- 
tação do motor, virar o aparelho, subir 
ou descer. Uma nova variável — POW 
■ — aparece nas linhas 3010 e 3020; ela 
serve para alterar a rotação. Um valor 



zero é atribuído a POW na linha 3000 
cada vez que a sub-rotina é chamada. A 
tecla S determina a velocidade, enquan- 
to F acelera o motor. 

Q e A são usadas para provocar a as- 
censão e a descida do avião, somando 
ou subtraindo 1 à variável PT nas linhas 
3030 e 3040. Finalmente, podemos usar 
O ou P para virar o aparelho — as li- 
nhas 3050 e 3060 cuidam disto, alteran- 
do o valor de RL. 

As linhas 5020 a 5070 permitem va- 
riar o nível de dificuldade do jogo, es- 
colhendo a força e a direção do vento. 
A opção mais fácil é a de um vento de 
um metro por segundo em uma direção 
de zero grau. A partir da nossa opção, 
a linha 5060 calcula a velocidade do ven- 
to na direção frontal do aparelho, e a 
linha 5070 calcula a componente lateral 
dessa velocidade. SIN e COS servem pa- 
ra calcular as componentes em cada di- 
reção. WX e WY são usadas para alte- 
rar a posição do aparelho — GX e GY 
na linha 5080. 

A "alma" do programa é constituí- 
da pelas linhas 5500 a 5530, que cha- 
mam todas as grandes sub-rotinas em se* 
quência; desse modo, a posição é mo- 
dificada continuamente. 

A linha 5510 verifica, por intermédio 
do valor de PZ, se o avião aterrissou. 
O programa vai então para o segmento 
que verifica se a aterrissagem foi satis- 
fatória ou desastrosa. 

A linha 6000 verifica se as inclinações 
lateral e frontal do avião estão fora de 
limites aceitáveis, ou se a velocidade é 
maior que oitenta metros por segundo. 
Se houver uma dessas condições, ocor- 
rerá um acidente. O motivo pode ser 
uma asa muito baixa, excesso de velo- 
cidade ou simplesmente uma tentativa 
de aterrissagem fora da pista. O progra- 
ma prosseguirá na linha 6030, que cui- 
da dos acidentes. Ela traça várias linhas 
irradiando do centro do pára-brisa. A 
medida que essas rachaduras são dese- 
nhadas, o computador emite um som. 
Após o acidente, a linha 6040 provoca 
uma pausa ames que o piloto seja infor- 
mado das más notícias pela linha 6050, 
que fornece também os detalhes do 
acidente. 

Se o avião pousar corretamente, a li- 
nha 6010 verificará a posição da aterris- 
sagem. Se pousar fora da pista, a linha 
6060 informará sobre o fato. Se a velo- 
cidade era inferior a cinquenta metros 
por segundo, a linha 6070 dirá ao pilo- 
to que houve um pouso bem-sucedido. 
As linhas 6080 e 6090 informarão se o 
acidente foi pequeno, apenas com feri- 
dos leves, ou se foi um desastre mais 
grave; neste caso, o jeito é procurar a 
caixa- preta. 




Apague a linha 5505. Note que algu- 
mas linhas deste programa são modifi- 
cações de linhas já existentes. 

2 DEF U5R1-S.H41 : DEFUSP2-IH44 
5 GOTO 5000 

10 SCREEN 2.2:KEY OFF : COLOR 15, 
4,2 

15 A-USR] (0) 

50 ON KEY GOSUB 3100,3200 

60 KEY ( 1 ) STOP:KEY(2) STOP 

110 RETUBN 

3000 A-STICK(O) 

3010 KEY ( 1 ) ON:KEY(Z) ON 

3030 IF A-l THEN PT«PT+3:GOTO 3 

070 

3040 IF A-5 THEN PT-PT-3:GOTO 3 
070 

3050 IF A-7 AND RL>~30 THEN RL» 
RL-3:GOTO 3070 

3060 IF A-3 AND HL<30 THEN HL-B 
L+3 

3070 KEY ( 1 ) STOP:KEY(2) STOP:RE 
TURN 

3100 T2=TC:IF TO. 2 THEN TC-TC- 
. 2 : RE TU RN 

3700 T2-TC:IF TC<8.B THEN TC-TC 
+. 2: RETUHN 

3900 LINE(X,Y)-(X+50,Y + 8) , 2 , BF 
5020 SCREEN 0:KF-Y OFF : INPUT"Vel 
ocidade do vento (1-50 m/B) ";X 
0 

5025 IF X0>50 OR X0<0 THEN 5020 
5030 INPUT"DireçSo do vento (0- 
359 graus) " ;X1 

5035 IF Xl>359 OR XK0 THEN 503 
0 

5040 XO-X0/3 

5050 PRINT : PRINT "Velocidade do 
vento: "jINT(3«X0) ; "■/a" : PRINT 
-Direção do vento í"|Xli" grau- 

5060 WY-X0*COS(Xl«C) :WX — X0*SIN 
(JU*C) 

5070 FOR 1-1 TO 1000:NEXT:GOSUB 
10 

5400 A-USRZ(O) 

5500 GOSUB 3000: GOSUB 1O00 

5510 IF PZOO THEN 6000 

5520 GOSUB 2000 

5530 GOTO 5500 

6000 IF ABS (RL) >RT OR PT>TP OR 
PT<0 OR VV>80 THEN 6100 
6010 IF ABS(PX)>WR OR ABStPYlM 
000 THEN 6200 

6020 COLOR 15,4,4:SCREEN 0 
6030 PBINT "Parabéns JVPRIMT " 
Aterrissagem bei sucedida .": GOT 
O 6500 

6100 LINE (0,0)-(RND(l>«128+64, 
RND ( 1 ) *96+49) , 15 : LINE- (255 . 191) 
,15:LINE <255,0)-(RND<l)"128+64 
, RND (1) «96+49) . 15 : LINE- (0 , 191) . 
15 

6110 FOR K-l TO 1000:NEXT 
6120 COLOR 15,4,4:SCREEN 0 : PRIN 
T "Lamentados informar, que o v 
flo PJ26" 

6130 PRINT "eotreu u* grave aci 
dente. ~ 
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6140 PRINT "Nao há aobrevivente 
b.-:GOTO 6500 

6200 COLOR 15.4.4:SCREEN 0 
6210 PRINT "Você pousou fora da 
piata. " 

6220 IF VV<40 THEN PHINT "Como 
aua velocodade era baixa. ":PRIN 
T "quase nada aconteceu.": GOTO 
6500 

6230 IF VV<80 THEN PRINT "Entre 
■ortoa e fendoa.":PRINT - H alv 
aram-ae todoa . " :GOTO 6500 
6240 PRINT "Ninguém sobrevive a 
um poubo; "PRINT * nesta velocid 

6500 LOCATE 5,10: PBINT "VALORES 

HELATIVOS AO POUSO" 
6510 PRINT ! PBINT "Velocidade do 

ar - "; INT (VV) ; "m/B" : PRINT "Dl 
atância - "iINT(SQR(PV*PX+PX*PX 
Wi" ■":PRINT "Inclinação tront 
al - ":PT 

6520 PRINT "Inclinação lateral 
■ " : RI. i PRINT "Rotação do motor 
- " ;INT(TC"1000) j "r.p.m." 
6530 PRINT "Deavio do eixo da p 
lata - " : INT (PX) i "■": PRINT "Dlr 
eção * : AD ; "graus" 

6540 PRINT : PBINT "Cuer voar nov 
anente (S/N) ?" 

6550 AS-1NKEYS ! IF AS<>"S" AND A 
30"N" THEN 6550 
6560 IF AS-"N" THEN CLS : END 
6570 RUN 



O laço principal do programa fica nas 
linhas 5500 a 5530. A primeira coisa que 
ele faz é chamar uma sub-rolina na li- 
nha 3000 que permitirá o controle do 
avião. Essa sub-rotina usa o comando 
ST1CK, por meio do qual podemos pi- 
lotar com o teclado — ou com o joys- 
tick, se usarmos STICK (1). 

As linhas 3030 e 3040 controlam os 
movimentos de subida e descida, en- 
quanto as linhas 3050 e 3060 determi- 
nam os movimentos laterais. 

É necessário ainda que existam for- 
mas de acelerar e diminuir a rotação do 
motor. Isso é feito por intermédio das 
teclas de função do MSX. Nessa rotina 
serão utilizadas as duas primeiras teclas 
de função. Para tanto, foi incluída a li- 
nha 50 no início do programa; ela infor- 
ma ao computador o que fazer quando 
uma das teclas de função for pressiona- 
da. A função responsável por isto é ON 
KEY GOSUB, que difere da função ON 
"variável" GOSUB em diversos aspec- 
tos. O programa não será desviado ao 
encontrar a linha 50; ele apenas ficará 
sabendo para onde ir no momento opor- 
tuno, guardando os endereços na 
memória. 

Só quando o programa chegar ã li- 
nha 3010 é que as teclas de função se- 
rão ativadas pelo comando KEY (N) 
ON, onde N é o número da tecla. A par- 
tir dai, se pressionarmos a tecla de fun- 



ção 1, o programa executará a sub- 
rotina da linha 3100, que desacelera o 
motor. Se a tecla de função pressiona- 
da for a 2, o motor será acelerado pela 
sub-rotina da linha 3200. 

Observe que o computador interrom- 
perá o que estiver fazendo para acele- 
rar ou desacelerar o motor, voltando em 
seguida para a tarefa anterior. Contu- 
do, se o programa estiver fazendo os cál- 
culos no momento em que pressionar- 
mos uma das teclas de função, coisas es- 
tranhas podem acontecer. É que a pri- 
meira parte dos cálculos terá sido feita 
com o valor antigo da rotação do mo- 
tor, e a segunda, com o valor novo. 

A solução não está em desligar as te- 
clas de função durante a execução dos 
cálculos, pois, neste caso, o programa 
só aceitaria mudanças na rotação do 
motor em determinados momentos. 

O problema, contudo, pode ser resol- 
vido. Para isso, é necessário que se di- 
gite o comando KEY (N) STOP nas li- 
nhas 60 e 3070. Depois de um comando 
desse tipo, o computador será capaz de 
detectar a tecla de função corresponden- 
te, mas o desvio não ocorrerá até que 
um comando do tipo KEY (N) ON seja 
encontrado. Dessa maneira, o progra- 
ma "sabe" que uma tecla de função foi 
pressionada, e se lembrará de tal fato no 
momento adequado. 

Algumas linhas iniciais também fo- 
ram modificadas. A linha 2 define o en- 
dereço de duas rotinas em linguagem de 
máquina, que ficam na ROM. A primei- 
ra "desliga" temporariamente a tela, 
quando chamada pela linha 15, impe- 
dindo que o jogador veja o desenho que 
está sendo feito na tela. A segunda "li- 
ga" a tela novamente, quando chama- 
da pela linha 5400, de forma que a ca- 
bine apareça instantaneamente. 

A linha 5 desvia o programa para que 
o jogador informe a velocidade e a di- 
reção do vento, nas linhas que vão de 
5020 a 5070. Isso é feito antes que o de- 
senho da cabine de comando seja feito 
pela sub-rotina 10. 

Se a linha 55 10 perceber que o avião 
atingiu o solo, o programa prosseguirá 
na linha 6000. Ali serão verificados os 
valores das inclinações frontal e lateral, 
assim como as da velocidade do vento. 
Se todos eles estiverem dentro dos limi- 
tes aceitáveis, a linha 6020 informará ao 
piloto que houve uma aterrissagem bem- 
sucedida. 

Um pouso fora da pista não signifi- 
ca necessariamente uma tragédia. Se a 
velocidade do avião for inferior a 40 
m/s, a linha 6210 dirá que os danos fo- 
ram pequenos. Se ela estiver entre 40 e 
80 m/s, a linha 6220 dará conta de que 
as perdas materiais foram pequenas, 



mas que há alguns feridos. Se a veloci- 
dade for maior que 80 m/s só nos res- 
tará procurar a caixa-preta: o desastre 
terá sido total. 

As linhas 6500 a 6530 mostram os va- 
lores de todas as variáveis no momento 
do pouso. Estudando bem esses núme- 
ros, você aprenderá a fazer aterrissagens 
cada vez melhores. 

Finalmente, as linhas 6540 a 6570 nos 
dão a opção de jogar novamente. 



Antes de mais nada, apague a linha 
5505, O programa a seguir completa a 
simulação de vôo. Use as teclas Z. X, 
P e L para jogar. 

3000 K - PEEK ( - 163841: POKE 

- 1636B.0 
3010 IF K - 193 AND TC > .2 TH 
EN TC - TC - .2: GOTO 3070 
3020 IF K - 209 AND TC < 8.8 T 
HEN TC - TC + .2: GOTO 3070 
3030 IF K - 208 THEN PT - PT + 

3: GOTO 3070 
3040 IF K - 204 THEN PT • PT - 

3: GOTO 3070 
3050 IF K ■ 218 AND BL > - .0 
05 THEN RL - RL - .001: GOTO 30 
70 

3060 IF K ■ 216 AND RL < .005 
THEN RL = RL + .001: GOTO 3070 
30 7 0 RETUHN 

5020 HOME : TEXT ! INPUT "VELO 
CIDADE DO VENTO (1-50) M/S "iXO 
5025 IF X0 > 50 OR X0 < 1 THEN 
5020 

5030 INPUT "DIREÇÃO DO VENTO 
(0-359) GRAUS ";X1 
5035 IF XI > 359 OR XI < 0 THE 
N 5030 

5040 X0 - X0 / 3 
5060 WY " XO * COS (XI * C) 
5070 WX - - XO « SIN (XI * C) 
5500 GOSUB 3000: GOSUB 1000 
5510 IF PZ < - 0 THEN 6000 
5520 GOSUB 2000 
5530 GOTO 5500 
5570 GOTO 6550 

6000 IF ( ABS (RL) > RT) OR PT 
> TP OR PT < 0 OR AS > 80 THEN 
6100 

6010 IF ABS (PX) > WR OR ABS 

(PY) > 1000 THEN 6200 
6020 TEXT : HOME : PRINT "PARA 
BENS 1": PRINT "ATERRISSAGEM BE 
M SUCEDIDA" : GOTO 6500 
6100 HCOLOR" 3: HPLOT 0.0 TO 
RND (1) ■ 140 + 71. BND (1) * 9 
6+49 TO 279.191: HPLOT 279,0 
TO RND (1) * 140 + 71, RND (1) 

* 96 + 49 TO 0,191 
6110 FOR K - 1 TO 2000: NEXT 
6120 TEXT : HOME : PRINT "LANE 
NTAMOS INFORMAR QUE O VOO PJ25" 
: PRINT "SOFREU UM GRAVE ACIDEN 
TE.": PRINT "NAO KA SOBRE V I VENT 
ES. " : GOTO 6500 

6200 TEXT ! HOME ! PRINT "VOCÊ 
POUSOU FORA DA PISTA." 
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6210 IF AS < 40 THEN PRINT "C 
OMO SUA VELOCIDADE ERA BAIXA. " 
: PRINT "NADA ACONTECEU" GOTO 6 
SOO 

6220 IF AS < 80 THEN PRINT "E 
NTRE MORTOS E FERIDOS" : PRINT " 
SALVARAM- SE TODOS" : GOTO 6500 
6230 PRINT "NINGUÉM SOBREVIVE 
A UM POUSO FORCADO NESTA VELOCI 
DADE" 

6500 HTAB 5: VTAB 10: PRINT "V 
ALORES RELATIVOS AO POUSO" 
6510 PRINT : PRINT "VELOCIDADE 

DO AR " ; INT <AS);" M/S" : PRIN 
T "DISTANCIA - "| INT ( SQR (PY 

« PT + PX * PX))i" M" : PRINT " 
INCLINAÇÃO FRONTAL - " l PT 
6520 PRINT "INCLINAÇÃO LATERAL 

- "iRL: PRINT "ROTAÇÃO DO MOTO 
R - "; INT (1000 * TC); - RPM" 
6530 PRINT "DESVIO DO EIXO DA 
PISTA - ";PX;" M" : PRINT "DIREC 
AO - " ;AD; " GRAUS" 
6540 PRINT : PRINT "QUER VOAR 
NOVAMENTE (S/N)?" 
6550 GET A$: IF A3 - "S" THEN 

BUM 

6560 IF AS - "N" THEN HOME : 
BMO 

O laço principal do programa vai da 
linha 5500 à linha 5530. Inicialmente, ele 
chama a sub-rotina de controle do apa- 
relho pelo teclado, que começa na linha 
3000 e vai até a 3070. A linha 3000 veri- 
fica se alguma tecla foi apertada; as li- 
nhas 3010 e 3020 detectam as teclas Q 
e A, que diminuem e aceleram a rota- 
ção do motor; as linhas 3030 e 3040 des- 
cobrem as teclas PeL, que controlam 
a ascensão e a queda do aparelho; final- 
mente, as linhas 3050 e 3060 detectam 
as teclas Z e X, que viram o avião. 

As Unhas 5020 e 5070 permitem va- 
riar o nível de dificuldade da aterrissa- 
gem por intermédio da escolha da for- 
ça e da inclinação do vento. A opção 
mais fácil é uma velocidade de 1 m/s nu- 
ma direção que faz um ângulo de zero 
grau com o aparelho. A partir dos va- 
lores relacionados, a linha 5060 calcula 
o componente frontal da velocidade do 
vento, e a linha 5070, seu componente 
lateral. WX e WY são usados para alte- 
rar a posição do aparelho. 

Se a linha 55 10 perceber que o avião 
atingiu o solo, o programa prosseguirá 
na linha 6000. Ali serão verificados os 
valores das inclinações frontal e lateral, 
assim como os da velocidade do vento. 
Se todos eles estiverem dentro dos limi- 
tes aceitáveis, a linha 6020 informará ao 
piloto quehouveuma aterrissagem bem- 
sucedida. 

Como no caso anterior, nem tudo es- 
tará perdido se aterrissarmos fora da 
pista. Caso a velocidade de pouso seja 
^«inferior a 40 m/s, a linha 6210 dirá que 
Hf os danos foram pequenos. Se ela estiver 



entre 40 e 80 m/s, a linha 6220 dará con- 
ta de pequenos danos e alguns feridos. 
Se a velocidade for maior que 80 m/s, 
só nos restará procurar a caixa-preta en- 
tre os escombros: neste caso, o desastre 
lerá sido total. 

As linhas 6500 a 6530 mostram os va- 
lores de todas as variáveis no momento 
da aterrissagem. Estudando bem esses 
números, você aprenderá a pousar ca- 
da vez melhor. 

As linhas 6540 a 6570, finalmente, 
nos dão a opção de jogar novamente. 

Na última seção vimos que, se o jo- 
go se estender por muito tempo, a tela 
gráfica pode ser corrompida por restos 
de cordões que se acumulam na memó- 
ria. Se você tiver esse tipo de problema, 
pode corrigi-lo, modificando a linha 
2000 para: 

2000 X - FRE (0) : HCOLOR- 0 

O comando FRE(0) limpa a área de 
cordões, evitando que ela invada a tela 
gráfica. No entanto, ele torna o progra- 
ma mais lento. 

A velocidade do programa é compro- 
metida principalmente pela execução da 
sub-rotina que escreve na tela gráfica, 
Como os valores que devem ser constan- 
temente atualizados ficam na porção in 
ferior da tela, podemos acelerar consi- 
deravelmente o programa se liberarmos 
as quatro linhas inferiores para texto 
(veja o artigo Os Comandos PEEK e 
POKE na página 261) e usarmos HTAB, 
VTAB e PRINT para escrever ali esses 
valores. 



Aqui estão as modificações para que 
o programa funcione no TK-2000. 
10 FOR I - 0 TO 6 
20 READ A: POKE 768 + I,A 
30 NEXT 

10 DATA 32,67,240,141,32,3,96 
3000 POKE BO0.O: CALL 768:K - 
PEEK (800) 

As quatro primeiras linhas colocam 
uma pequena rotina em código de má- 
quina na memória do TK-2000. Quan- 
do chamada pela linha 3000, essa roti- 
na permite que se faça leitura do tecla- 
do, com auto-repetição. 

A baixa velocidade de execução do 
programa se deve aqui às características 
específicas do TK-2000. 



Antes de executar o programa, apa- 
gue a linha 5505. 

3000 IF PEEK (337) »255 THEN RETU 



3010 IF PEEK(341)-251 AND TO. 2 

THEN TC-TC-.2 
3020 IF PEEK(344)=254 AND TC<8 . 
8 THEN TC-TC+.2 

3030 IF PEEK(341>-24? THEN PT-P 
T+l 

3040 IF PEEK (342) =223 THEN PT-P 
T-l 

3050 IF PEEK (343) -223 AND RL>-3 
0 THEN RL=RL-1 

3060 IF PEEKI3441-247 AND RLO0 

THEN RL=RL+1 
3070 RETURN 

5020 CLS : INPUT"VELOCIDADE DO VE 
NTO (1-50) M/S" :X0 
5025 IF X0>50 OR XD<1 THEN 5020 
5030 INPUT"DIRECAO DO VENTO (0- 
359) GRAUS" ; XI 

5035 IF Xl>359 OR XK0 THEN 503 

0 

5040 X0=XO/3 

5050 PRINT : PR INT "VELOf IDADE DO 

VENTO- " ; 3*X0 ; "M/S" : PR INT "DIREC 

AO- * iXl ! "GRAUS" 

5060 W¥=X0*COS{Xl"C) 

5070 WX — X0*SIN(X1»C) 

5500 GOSUB 3000:GOSUB 1000 

5510 IF PZ<-0 THEN 6000 

5520 GOSUB 2000 

5530 GOTO 5500 

f.000 TF ABS (RD >RT OR PT>TP OH 
PT<0 OR UV>80 THEN 6100 
6010 IF ABSÍPX)>UR OH ABS(PY) 
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000 THEN 6200 
6020 CLS: PRINT 
ERRTSSAGEM BEM 
O 6500 

6100 LINE(O.O) 
(96)+48) , pset: 

ET:LINE(255.0 
(96)»48) .PSET 



- (RNDÍ12R)+63,RND 
LINE- U5b . 19: ) , PS 
- IRND 1128) +63 . RN D 
LINE - (0 . 191 ) . PSE 



6110 FOR K=l TO 2000:NEXT 

6120 CLS: PRINT" LAMENTAMOS INFO 

RMAB QUE O VOO PJ26 SOFREU UM 

GRAVE ACIDENTE . " 
6140 PRINT" NAO HA SOBREVIVENTE 
S":GOTO 6500 

6200 CLS: PRINT" VOCE POUSOU FOR 
A DA PISTA" 

6210 IF W<40 THEN PRINT" COMO 
SUA VELOCIDADE ERA BAIXA . QUAS 
E NADA ACONTECEU" : GOTO 6500 
6220 IF VvXSO THEN PRINT" ENTRE 

MORTOS E FERIDOS. SALV 
ARAM-SE TODOS" : GOTO 6500 
6230 PRINT" NINGUÉM SOBREVIVE A 

UM POUSO NESTA VELOCIDADE!" 

6500 PRINT : PRINT " VALORES RELA 
TIVOS AO POUSO" 

6510 PRINT : PRINT" VELOCIDADE DO 
AR = ";INT(W) ;"M/S":PRINT" DIS 
TANCIA ■ " ; INT (SQR (PY*PY+PX*PX) ) 
: PRINT" INCLINAÇÃO FRONTAL -";P 
T 

6520 PRINT" INCLINAÇÃO LATERAL 



=";RL:PRINT" ROTAÇÃO DO MOTOR - 
" ; INT(10«TC) /IO; " X 1000" 
6S30 PRINT" DESVIO DO EIXO DA P 
ISTA -" ; INT [ABS (PX) ) ; "M" : PRINT" 

DIREÇÃO ■* ;AD; "GRAUS" 
6540 PRINT : PRINT" QUER VOAR NOV 
AMENTE (S/N) ?" 

6550 A$=INXEYS:IF A$<>"S" AND A 
5<>"N" THEN 6550 
6560 IF AS-"N" THEN CLS : END 
6570 RUN 

O laço principal vai de 5500 a 5530. 
Ele chama a sub-rotina de controle do 
aparelho pelo leciado, que vai de 3000 
a 3070. A linha 3000 verifica se alguma 
tecla foi apertada; 3010 e 3020 detectam 
as teclas Fe S, que diminuem e acele- 
ram a rotação do motor; 3030 e 3040 
descobrem as setas "para cima" e "pa- 
ra baixo", que controlam a ascensão e 
a queda do aparelho; 3050 e 3060 detec- 
tam as setas "direita" e "esquerda", 
que viram o avião. 

As linhas 5020 e 5070 permitem va- 
riar o nível de dificuldade do pouso, es- 
colhendo a força e a inclinação do ven- 
to. A melhor opção é uma velocidade de 
1 m/s numa direção que faz um ângulo 
de zero grau com o aparelho. A linha 
5060 calcula o componente frontal da 



velocidade do vento, e a 5070, seu com- 
ponente lateral. WX e WY servem para 
alterar a posição do aparelho. 

Se a linha 5510 perceber que o avião 
atingiu o solo, o programa prosseguirá 
na linha 6000. Ali serão verificados os 
valores das inclinações frontal e lateral, 
bem como da velocidade do vento. Se 
todos eles estiverem dentro dos limites 
aceitáveis, a linha 6020 informará ao pi- 
loto que houve uma aterrissagem bem- 
sucedida. 

Uma aterrissagem fora da pista não 
implica, necessariamente, a destruição 
do aparelho. Assim, se a velocidade de 
pouso for inferior a 40 m/s, a linha 6210 
dirá que os danos foram pequenos. Se 
ela estiver entre 40 e 80 m/s, a linha 
6220 informará que alguma coisa foi 
destruída e que há alguns feridos. Se a 
velocidade for maior que 80 m/s, só nos 
restará procurar acaixa-preta entre os 
destroços do avião: o desastre terá sido 
total. 

As linhas 6500 a 6530 mostram os va- 
lores das variáveis no momento do pou- 
so. Estudando bem esses números, vo- 
cê aprenderá a pousar cada vez melhor. 

Finalmente, as linhas 6550 a 6570 
oferecem a opção de jogar de novo. 
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UM RELÓG 

TE! 



Se você não tiver nada para fazer numa 
tarde de chuva, rompa o tédio 
executando a rotina apresentada neste 
artigo e veja surgir um 
relógio digital na tela do computador. 



Usado para regular as atividades do 
micro, o relógio interno funciona a uma 
velocidade consiante. Em alguns casos, 
seu conteúdo só pode ser lido e manipula- 
do por instruções em código de máqui- 
na. Em outros, podemos cronometrar 
eventos através de instruções do BASIC, 
que variam segundo o modelo da má- 
quina: PAUSE no Spectrum, TIME no 
MSX, TIMER no TRS-Color etc. 

Tais instruções fazem com que o mi- 
cro conte em unidades entre cem e cin- 
quenta avos de segundo, conforme a ve- 
locidade do relógio. Muitas operações 
usam o relógio de maneira similar: por 
exemplo, se o micro for programado pa- 
ra tocar música, temos que especificar 
a duração de cada nota. 



De fato, ainda que certas funções não 
lenham sua duração definida dessa ma- 
neira, o computador é um contador de 
tempo por excelência, executando os 
programas com o olho no relógio. Po- 



demos, assim, fazer com que o compu- 
tador conte o tempo para nós: basta es- 
crever um programa em BASIC conten- 
do um laço que imprima a hora, provo- 
que uma pausa, imprima a nova hora, 
e assim sucessivamente. Se fizermos is- 
so, logo veremos que a pausa deve ser 
um pouco menor que um segundo, pois 
o micro leva algum tempo para fazer as 
adições e impressões necessárias. 

Um relógio desse tipo tem duas gran- 
des desvantagens. A primeira é que ele 
só conta o tempo enquanto o computa- 
dor estiver ligado. Mais grave do que es- 
ta, a segunda limitação consiste no fato 
de que, sempre que quisermos usar o mi- 
cro para alguma outra coisa, teremos 
que desligar o relógio, pois não é possí- 
vel executar dois programas BASIC ao 
mesmo tempo. O "desligamento" do re- 
lógio caracteriza, portanto, uma inter- 
rupção da UCP. Esse tipo de manipu- 
lação em geral exige um conhecimento 
maior da arquitetura do microcompu- 
tador, bem como o uso de instruções de 
acesso a recursos que só existem em lin- 
guagem de máquina. 



UM RELÓGIO INTERMITENTE 



Para que um programa funcione si- 
multaneamente com a execução de um 
BASIC, é preciso que ele contenha ro- 
tinas controladas por interrupção. 

Os usuários do Spectrum já tiveram 
um exemplo desse tipo de rotina. De fa- 
to, o método utilizado é semelhante em 
todos os micros. 

Quando está ligado, o micro é cons- 
tantemente interrompido por uma fra- 
ção de segundo, a intervalos regulares. 
Isso acontece mesmo que um programa 
em BASIC esteja sendo executado, pois 
o computador precisa "saber" se algu- 
ma tecla foi pressionada. Assim, o pro- 
grama BASIC é interrompido enquan- 
to o teclado é verificado, recomeçando 
novamente até a interrupção seguinte. 

Durante a verificação do teclado, é 
possível introduzir uma rotina em códi- 
go, de modo a executá-la nas "brechas" 
abertas peta interrupção do BASIC. O 
resultado é que os programas parecerão 
funcionar simultaneamente. 
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Q COMPUTADOR COMO RELÓGIO 

CONT ANDO O TEM PO 

COMO FAZER INTERRUPÇÕES 
O MOSTRADOR DO RELÓGIO 
UM RELÓGIO INTERMITENTE 



UMA ROTINA EM CÓD IGO 
LIGUE O RELÓGIO 
ACERTE ÕS PONTEIROS 



SOUND , PLAY 



Já que o processo de interrupção é 
controlado pelo relógio do micro, con- 
vém acertar o passo do relógio simples- 
mente contando o número de interrup- 
ções. A frequência de interrupções va- 
ria de micro para micro, mas o princí- 
pio é o mesmo. 

O programa que se segue simula um 
relógio no Spectrum e no TRS-Color, 
com horas, minutos e segundos conta- 
dos a partir do momento em que come- 
ça a ser executado. Podemos acertá-lo 
de modo a fazè-lo funcionar, seja como 
relógio, seja como cronometro. Esses 
valores são mostrados continuamente 
no canio superior direito da tela. O re- 
lógio permanecerá funcionando na te- 
la, mesmo que outro programa esteja 
sendo executado ou digitado. 

Como você não tardará a perceber, 
ele não prima muito pela precisão. Es- 
sa falha, porém, não se deve à rotina 
que acerta a hora, pois os atrasos pro- 
vocados por ela são insignificantes (da 
ordem de milionésimos de segundo). As- 
sim, o erro vem mais do relógio interno 
do que de qualquer outra fonte. Por ou- 
tro lado, funções como SAVE, LOAD, 
SOUND e PLAY param o relógio en- 
quanto estiverem sendo executadas. A 
hora é exibida, num mostrador digital, 
no canto superior direito do vídeo, apa- 
gando qualquer coisa impressa ali ante- 
riormente. Se isso causar problema, 
reorganize sua tela a fim de evitar a pri- 
meira linha. Por exemplo, você poderia 
colocar a hora digital no canto superior 
(esquerdo ou direito), desde que o mo- 
delo do seu micro o permitisse. Neste ca- 
so, o programa em linguagem de máqui- 
na teria que ser alterado. 



O programa a seguir funciona tanto 
na versão de 16K, como na de 48K do 
Spectrum. Antes de começar a rodá-lo, 
tome alguns cuidados especiais, pois 
cartuchos e expansões conectados ao mi- 
cro podem dificultar sua execução. É o 
caso, por exemplo, de interfaces para 
impressora, joysticks, etc. 
10 CLEAP. .12319: LET total-0 
20 FOR «=32320 TO 32554: READ 
a: POKE n.a: LET total =total + 
a: NEXT n 



30 TF tota.l<>24216 THEN 

PRINT "Erro nos dados": STOP 

40 RAND USP. 32320 

50 DATA 33,0,0, 34, I 70, 92, 34, 

121 ,92,62,40, 237, 71 . 237.94, 

201,0.64,0,0 

60 DATA 62,62.237,71.237,86, 

201 , 0 , 229, 713 , 1 97, 245, 58. 91 , 

1 26,60. 50,91 . 176. 254 

70 DATA 50, 32. 50. 175, r >0, 91 . 

126,58,120,92,60.50.120.92. 

254,60.32,35.175.50 

80 DATA 120,92.58,121.92,60, 

50 . 171 . 92, 254 ,60 , 32 . 20 . 175 . 50 

,121,92,58,122,92 

90 DATA 60,50,122.92,254,13. 

32,5.62, I .50. 122, 92. 58, 122.92 

, 38,0, 1 11,17 
100 DATA 23.64.205,234,126.58, 
121 .92.38,0, 111 . 17,26,64. 205. 
234.126,58,120.92 
1)0 DATA 38,0,111.17.29.64.205 
,234.126,17,208.61.33.29,64, 
205.34,127,17.208 
120 DATA 61,33,26,64,205,34, 
1 27 . 62 , 1 20 , 33, 24, 88, 1 19. 17 , 75 , 
88. 1 .7,0,237 

130 DATA 176,205,191,7.241.193 

.209,225.251. 201 , 237 ,83, 80. 126 

.1 .246,255,205,251,126 

140 DATA 1.255.255,205,251,1.26 

.201 . 1 75.9,60,56,252.237.66,61 

,198,48,229.205.21 

150 DATA 127,33,80,126,52,42. 

80.126,205,34,127,225.201,237, 

75,54.92,38,0,111 

160 DATA 41,41.41,9.235.201,6, 

8,26,119,36. 19.16,250,201 

Essa rotina é formada por números 
distribuídos em linhas DATA; eles são 
colocados na memória pelo BASIC, 
usando POKE. Tal quantidade de nú- 
meros propicia erros de digitação; as- 
sim, a linha 20 verifica a soma dos nú- 
meros: se o resultado não corresponder 
ao esperado, a linha 30 interromperá a 
execução do programa com uma men- 
sagem de erro, para que você verifique 
as linhas DATA. Esse método é chama- 
do de "checagem por soma" e é reco- 
mendável quando há muitos números. 

A linha 10 protege o topo da memó- 
ria para colocar ali a rotina em código, 
que é executada pela linha 40 . O reló- 
gio começa com 00:00:00, mas podemos 
acertá-lo com: 
POKE 23672. (aegundoa) 
POKE 23673, (minutos) 
POKE 23674, (horaa) 



Os números nos comandos POKE 
devem estar no intervalo permitido — 
de 0 a 60 para minutos e segundos, e de 
1 a 12 para horas. Se quisermos "zerar" 
o relógio, é mais fácil usar: 

RAND U3R 32320 

que executa a rotina novamente. Você 
vai precisar desse comando, se o progra- 
ma em BASIC for apagado por NEW. 



Essa rotina não funciona com drives 
de disquete ligados ao micro. 

10 CLEAR 200,32599 

20 FOR J-32600 TO 32679 

30 READ N 

40 POKE J.N 

50 NEXT 

100 DATA 204,0.0.253,127.252,25 
3.12 7,254.48.140,4.191,1,13,57 
110 DATA 206,127,164.142.128.0. 
166,130,76.161,192,38.9.111,132 
120 DATA 140,127,252,38,242,134 
,1.167,132,206.4,32,142,127,255 
130 DATA 79,230,130,192,10,45,3 
.76,32,249,195.4 7,58.237,195,17 
140 DATA 131.4.25.47,6.134,58.1 
67,194,32,229,126.137.76.50,60. 
60,13 

A rotina em código está nas linhas 
DATA, sendo colocada na memória pe- 
lo POKE da linha 40. Qualquer erro nas 
linhas DATA será fatal; portanto, gra- 
ve o programa antes de executá-lo. Ve- 
rifique os números cuidadosamente. Um 
erro muito comum é esquecer alguma 
vírgula, substituir uma vírgula por um 
ponto ou vice-versa. Tudo isto prejudi- 
ca a sequência de leitura do comando 
READ. Execute o programa para car- 
regar a rotina em código. Para ligar o 
relógio, use: 
EXEC 32600 

Isso inicia a atividade do relógio com 
00:00:00. Para acertá-lo, digite em mo- 
do direto, pelo teclado: 

POKE 32764, (horas) 
POKE 32765, (ainutoa) 
POKE 32766. (aegundoa) 

Não empregue valores impróprios 
para horas, minutos e segundos: o com- 
putador não tem meios de checá-los. 
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■ 


CORRESPONDÊNCIA ENTRE 




CÓDIGO E CARACTERE GRÁFICO 


■ 


COMO CALCULAR 0 CÓDIGO 


■ 


BITS OUE SE ACENDEM 


■ 


APLICAÇÕES 



Aprenda a empregar os caracteres 
gráficos pré-programados do 
TRS-80 em desenhos mais complexos 
e capacrte-se a trabalhar com 
os úteis "sprites programáveis", 



Se examinarmos com cuidado os ca- 
racteres gráficos do TRS-80, que ocu- 
pam a faixa de códigos que vai de 129 
a 193 (veja tabela no capítulo anterior 
desta lição), podemos noiar facilmente 
que eles são formados por todas as com- 
binações possíveis de seis pixels retan- 
gulares, acesos ou apagados. Portanto, 
a matriz de um caractere tem esta 
forma: 



memória de vídeo do micro. Como ca- 
da byte da memória tem oito bits, e ca- 
da caractere seis bits, sobram dois bits 
não usados para representar pixels. Um 
byte da memória de video no TRS-80 
poderia ser representado assim: 



7 6 5 4 3 2 1 0 

I I I I 



Os bits numerados de 0 a 5 corres- 
pondem aos seis pixels habituais do ca- 
ractere gráfico. 

O bit 6 não é usado para representa- 
ção de caracteres gráficos, e o bit 7 é 
sempre igualado a 1. para todos os ca- 
racteres gráficos. 

Por exemplo, se quisermos obter o 
código gráfico 134, precisaremos acen- 
der sucessivamente 1 e 2: 



Você verá agora que não é necessá- 
rio memorizar a tabela de caracteres grá- 
ficos do TRS-80, nem consultá-la a to- 
do momento ao se projetar um desenho 
mais complexo, formado por vários des- 
ses caracteres. A razão é que existe uma 
relação matemática bem definida entre 
a forma do gráfico e o seu código nu- 
mérico. Ou seja, os códigos não foram 
atribuídos ao acaso, como para compu- 
tadores de outras linhas. 



BITS QUE SE ACENDEM 



Todo caractere gráfico é formado pe- 
la combinação de seis pixels — dois na 
horizontal e três na vertical — , que po- 
dem estar individualmente acesos ou 
apagados. Cada um deles corresponde 
exatamente ao pontinho de luz que po- 
de ser ligado ou desligado com os co- 
mandos gráficos SET e RESET. 

Por què? Sabemos que a tela de bai- 
xa resolução do TRS-80 tem 128 pon- 
tos na horizontal (ou seja, 64 caracte- 
res vezes 2 pixels), e 48 na vertical (isto 
é, 16 linhas vezes 3 pixels). 

Cada pixel corresponde a um bit na 



, 5 4 3 2 1 0 

1 1 1 H°l°hhR 



O código 134 é obtido fazendo-se 
conversão de binário para decimal: 



bi! valor 


multiplicador 


resultado 


0 0 x 


1 


0 


1 1 X 


2 


2 


2 1 X 


4 


4 


3 0 x 


8 


0 


4 0 x 


16 


0 


5 0 x 


32 


0 


6 0 x 


64 


0 


7 1 X 


128 


- 128 


Soma 




134 



Dessa maneira, é relativamente fácil 
calcular o valor do código de qualquer 
caractere. Para isso, basta verificar as 
posições ocupadas pelos diversos pixels 
"acesos" na matriz do caractere, adicio- 
nar em seguida os valores inscritos na 
posição, e somar 128 ao resultado (daí 
a razão de o número 128 ser considera- 
do também como um código gráfico): 



Este fato tem diversas implicações: é 
muito fácil, por exemplo, inverter-se os 
gráficos escritos na tela (para isso, bas- 
ta transformar os bits da memória grá- 
fica, de modo que os que são 1 passem 
para 0, e vice-versa). É possível obter 
outras irans formações matemáticas com 
os códigos gráficos, com resultados 
curiosos. 

Mas a aplicação que mais nos inte- 
ressa no momento relaciona-se com a 
definição de figuras complexas. Neste 
caso, o primeiro passo consiste em ar- 
mazenar os códigos numéricos dos ca- 
racteres gráficos que compõem tais fi- 
guras, em uma linha DATA, que é lida 
e armazenada (concatenada) em uma 
variável alfanumérica. Para economizar 
espaço, somente o valor diminuído de 
128 é armazenado. 

Tomemos como exemplo o programa 
a seguir; ele define uma variável AS que 
contém a imagem de um aeroplano sim- 
ples, formado pelos caracteres 141, 170, 
174, 170 e 140. 

10 CLS : AS-" 
20 FOR 1-1 TO 5 : READ N 
30 A3=A3+CHR3(128+N) 
40 NEXT I 

50 DATA 13,42.46.42.12 

O aviãozinho "voa" do seguinte mo- 
do: impresso inicialmente em uma po- 
sição da tela (com PR1NT @), ele é su< 
cessivamente apagado com cinco carac- 
teres em branco e exibido na posição se- 
guinte, e assim por diante. Acrescente 
estas linhas e rode o programa: 

60 FOR 1-256 TO 313 

70 PR1NT « I.AS: 

80 FOR J>1 TO 40:N£XT 

90 PRINT tí," 

100 NEXT I 

Portanto, AS é, de certa forma, uma 
espécie de sprite. 
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Em artigo anterior, explicamos o que 
são os caracteres gráficos e como 
entrá-los diretamente pelo teclado. 
Trataremos aqui de sua utilização 
dentro de programas, 



Para especificar caracteres gráficos 
dentro de um programa, sem precisar 
digitá-los diretamente (veja artigo publi- 
cado ã página 640), emprega-se a utilís- 
sima função CHRS. Para imprimir na 
tela um quadrado vermelho, podemos 
usar, por exemplo: 

PRINT INK 2.CHBSU43) 

O programa seguinte mostra a tabe- 
la de correspondência entre códigos nu- 
méricos e gráficos na tela dos micros da 
linha Spectrum: 

10 CL3 

20 FOR j-128 TO 143 STEP 5 

30 FOB 1-j TO j+4 

40 PBINT i ; " " jCHRS(i) "; 

50 NEXT l 

60 PBINT 

70 NEXT j 

Os caracteres são impressos ordena- 
damente em fileiras, na tela, por meio 
dos dois laços que começam nas linhas 
20 e 30 do programa. O primeiro laço 
varia J de 193 a 242 (a faixa de códigos 
correspondente aos caracteres gráficos), 
de 6 em 6. O laço seguinte percorre to- 
dos os valores numéricos existentes en- 
tre J e J+5. 

O PRINT da linha 60 serve para en- 
cerrar uma fileira de seis códigos e suas 
representações gráficas. Estas são exibi- 
das pela linha 40. 



LINHAS LONGAS 



Se você pretende empregar caracte- 
res gráficos com certa frequência em um 
programa, convém armazenar seus có- 
digos em uma variável alfanumérica. 
Assim, ficará bem mais fácil utilizá-los, 
e você não terá necessidade de consul- 
tar a todo momento a tabela de códigos 
gráficos, quando estiver desenvolvendo 
o programa. 



Da mesma maneira, quando se pre- 
tende utilizar uma cadeia de caracteres 
gráficos em vários pontos de um progra- 
ma, é interessante armazená-los em uma 
variável alfanumérica. Como o Spec- 
trum não tem a função STR1NGS, que 
permite fazer isto com um único coman- 
do, será preciso escrever um pequeno la- 
ço de acumulação: 

10 CL 3 

20 PRINT AT 19.0;"Codigo 
Gráfico (128-143) : ■ 
25 INPUT c 

30 PBINT AT 19. 0 i "Comprimento 

(1-29) : " 

40 INPUT n 

50 LET b3-"" 

60 FOR 1-1 TO n 

70 LET bS-sS+CHHS(c) 

80 NEXT 1 

90 PRINT AT lO.lrsS 
95 PAUSE 100 
100 GOTO 10 

A cadeia alfanumérica SS tem L có- 
digos, que são exibidos na tela ao mes- 
mo tempo, quando se emprega o co- 
mando PRINT S$. Este truque será 
muito útil quando você precisar usar 
com frequência, no programa, linhas de 
separação, molduras etc. 



A FUNÇÃO TO 



A função TO tem grande utilidade na 
construção de gráficos com símbolos de 
teclado, pois ela permite que se extraiam 
segmentos curtos de uma cadeia gráfi- 
ca maior. 

Suponhamos que você precise usar 
retas horizontais de diferentes tama- 
nhos, na composição de uma tela grá- 
fica. Em vez de gerar várias cadeias 
gráficas, usando a técnica do laço 
FOR.. .NEXT explicada anteriormente, 
você poderá gerar uma única cadeia, 
com comprimento máximo (uma cadeia 
CS, com 32 caracteres, por exemplo). 

Depois, para colocar em um ponto 
qualquer da tela do micro uma cadeia 
gráfica de doze caracteres, bastará uti- 
lizar o PRINT AT combinado com 
CS(TO 12). A função TO, no caso, ser- 
ve para extrair os primeiros doze carac- 
teres da cadeia C$, simplificando mui- 
to o processo. 



■ 


CARACTERES GRÁFICOS 


DENTRO DO PROGRAMA 


■ 


A FUNCA0 CHRS 


■ 


LINHAS LONGAS 


■ 


A FUNCA0 TO 




CARACTERES INVERTIDOS 

Em alguns tipos de computador, o 
conjunto de caracteres gráficos — isto 
é, aqueles caracteres que podem ser ob- 
tidos pressionando-se <SHIFT><9> 
— abrange também os chamados ca- 
racteres invertidos. 

Estes nada mais são do que uma re- 
presentação "em negativo" da forma 
usual de exibição na tela. As duas for- 
mas — "normal" e "invertida" — apare- 
cerão diferentemente conforme a mar- 
ca do computador. 

Nos micros originais da Sinclair ío 
ZX-81 e seu equivalente norte-ameri- 
cano, o Timexl, por exemplo, a repre- 
sentação normal de vídeo compõe-se 
de caracteres prelos sobre fundo cla- 
ro. O caractere invertido seria, portan- 
to, branco sobre fundo preto. Como o 
fundo normal de tela é branco, os ca- 
racteres invertidos aparecem como um 
retângulo preto, com o caractere im- 
presso em branco. Já a cor clara do 
fundo dos caracteres em vídeo normal 
fica igual ao fundo da tela. Esse tipo de 
representação de vídeo é característi- 
co dos modelos nacionais da Microdigi- 
tal (TK-82C, TK-83 e TK-85). 

Alguns outros computadores nacio- 
nais, entre eles o CP-200, da Prológi- 
ca, têm tela com fundo preto, normal- 

Aqui, o caractere invertido, obtido com 
< SHIFT > < 9 > , é escuro sobre fundo 
claro. 

Existem, ainda, alguns modelos que 
permitem ao usuário mudar de vídeo 
preto para branco, conforme sua con- 
veniência, por meio de um interruptor 
colocado no console. 

Os caracteres invertidos têm diver- 
sas aplicações. São utilizados, particu- 
larmente, para realçar determinados tí- 
tulos, rótulos ou mensagens numa te- 
la. Alguns deles — como ponto, dois 
pontos, asterisco, barra e a letra O — po- 
dem ser incorporados como elementos 
gráficos na composição de um desenho. 
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UM JOGO Di 



Neste jogo de estratégia empresarial, 
o jogador desempenha o papel de dono 
de uma companhia de mineração. Seu 
dever é cuidar para que o empreendi- 
mento prospere ao máximo. Como du- 
rante o jogo muilas opções lhe são ofe- 
recidas, a sorte da empresa dependerá 
de sua capacidade de tomar decisões. 

Jogos de esiratégia, assim como de 
aventuras, são geralmente escritos em 
BASIC, não havendo necessidade de se 
recorrer a rotinas em código. Como eles 
também não incluem longos textos e co- 
mentários, são compatíveis com micros 
de pouca quantidade de memória. Em- 
bora nosso jogo tenha sido enriquecido 
com rotinas gráficas que ilustram o pro- 
cesso de mineração — o que aumentou 
o espaço de memória utilizado — , o 
programa cabe nos micros de 16K. 

Apresentaremos o programa em duas 
panes, pois ele é bastante longo. Trata- 
remos aqui de sua parte central, mas al- 
gumas das rotinas essenciais para fazê- 
lo funcionar só serão abordadas no pró- 
ximo artigo. 

Depois de digitar esta primeira seção, 
grave o programa e aguarde a publica- 
ção da parte que o completa. Em alguns 
computadores, se o programa for exe- 
cutado neste estágio, a tela será preen- 
chida com diversas informações sobre o 
status do jogo, além de uma série de op- 
ções. Contudo, surgirá também uma 
mensagem de erro, uma vez que o pro- 
grama está incompleto. 



fissional. O jogador será, então, infor- 
mado sobre suas chances de encontrar 
ouro e da provável profundidade e di- 
mensões do veio. A responsabilidade de 
decidir se vale a pena explorar determi- 
nada mina é sua. 

Como o trabalho de escavação e ga- 
rimpagem envolve altas somas, poderá 
ser conveniente investir na pesquisa e de- 
senvolvimento de equipamentos que re- 
duzam os custos da operação. Ou tal- 
vez seja melhor começar logo as esca- 
vações — só o jogador pode decidir. Se 
ele iniciá-las, gráficos coloridos ilustra- 
rão o progresso do trabalho. Caso não 
encontre ouro, precisará resolver se va- 
le a pena continuar a prospecção ou se 
é melhor abandonar a mina e partir pa- 
ra outra. 

No decorrer do jogo, dois outros fa- 
tores influem nos resultados. Uma vez 
encontrado o ouro, pode-se guardá-lo 
em cofre-forte ou vendê-lo no mercado. 
É razoável guardar o metal, se não hou- 
ver necessidade imediata de dinheiro; 
pode ser vantajoso esperar por uma boa 
cotação para vendê-lo — a cotação flu- 
tua durante o jogo. Contudo, armaze- 
nar ouro é arriscado, pois há ladrões por 
toda parte e, quanto maior a quantida- 
de, maior a tentação. 

A segunda parte do programa cuida- 
rá dos detalhes do funcionamento do jo- 
go. Agora, digite a primeira parte. 



Entre no mundo dos grandes riscos 
- e grandes lucros. Você é dono de 
uma empresa de mineração, Terá 
astúcia e talento para tomar decisões 
e coragem para levá-las a cabo? 



OS OBJETIVOS DO JOGO 



Quando o jogo começa, o jogador 
tem um saldo a seu favor — a compa- 
nhia de mineração e 2 milhões em di- 
nheiro. Sua tarefa é investir estes recur- 
sos inteligentemente, na busca do pre- 
cioso metal. O objetivo do jogo é reu- 
nir a maior quantia de dinheiro possí- 
vel em trinta rodadas. O jogo permite 
que uma pessoa jogue sozinha ou que 
duas joguem ao mesmo tempo. 

A cada lance, o jogador se vê diante 
de várias opções. Antes de começar as 
escavações, precisa encontrar um local 
promissor; para isso, deverá destinar 
I 662 a ' na Q 113111 ' 3 a contratação de um geó- 



5 BORDRR 6: PAPER 6: INK 0; 
CLS 

10 PRINT AT 9, 2i "Quantoa ioaa 
dores? (1 ou 2)": LST a3- 
INKEY3 : IF a9-"* THEN GOTO 
10 

20 IF aS<"l" OB aS>"2" THEM 
GOTO 10 

30 LET p-VAL a$: LET nop-p 

40 DIH a(2,6) : DIM CÍ2.5) : 

DI M aS<P,8) : DIM r (2) : LET er 

-10000 

50 LET r(l)-0: LET r(2)-0: 
LET a (1,1) -2000000: LET a(1.2 
J-2000000: LET a (2 . 1) -2000000 
: LET a (2,2) -2000000: LET a(l 
,3)-0: LET a(2.3)-0: LET a(l, 
4)-100000: LET a (2 , 4) -100000 : 

LET a(l,5)-0: LET a(2.5)-0: 
LET a(l,6)-0: LET a(2,6)-0: 
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OBJETIVOS DO JOGO 



UM OU DOIS JOGADORES 



A PRIMEIRA TELA 



SALDOS E CUSTOS 



COMO DAR INFORMAÇÕES 



OFERTA DE OPÇÕES 



ROTINA DOS LADROES DE OURO 
EFEITOS SONOROS 





24 PROGRAMAÇÃO DE JOGOS 



24 




num 

70 FOR n-1 TO p: INPUT "None 
do jogador ";(n);"?". LINE a8 
(n) : NEXT n 
200 FOR n-1 TO 30: FOR P-l TO 

nop 

202 BORDEEI 7: PAPER 7: INK 0: 
CLS 

210 PRINT PAPER 6;n: PRINT 

PAPER li INK 6;AT 0,4;" MIN 

A DE OURO" 

220 PRINT ' TAB 16;aS(l);: IF n 

op-2 THEN PRINT TAB 24;aS<2); 

230 PRINT ' "SALDO TOTAL S" i 

TAB IStaU.Dt: IF nop-2 THEN 

PRINT TAB 24;a(2.1) : 

240 PRINT ' "DINHEIRO S" 1 

TAB 15ta(1.2)i: IF nop-2 THEN 

PRINT TAB 24;a(2,2) ; 

250 PRINT ' "OURO kg" ; TAB 15:a( 

1,3) ti IF nop-2 THEN PRINT 

TAB 24;a(2,3) ; 

260 PRINT '"CUSTO P/CAVARS" ; 

TAB 15;a(l,4)i: IF nop-2 THEN 

PRINT TAB 24;a (2.4) i 

270 PRINT , "No. DE MINAS" ; TAP 

15;a{l,S);: IF nop-2 THEN 

PRINT TAB 24;a(2,5) l 

280 PRINT ' " PROFUNDID . ■* ; TAB 

15ia(l,6);: IF nop-2 THEN 

PRINT TAB 24 ;a (2 ,6) i 

300 PRINT " PAPER 4; INK 0;"C 

otacao do- ouro no «ercado:": 

PRINT "$";er;" por kg de ouro" 

400 PRINT ' PAPER 5;">-";aS<"> 

500 PRINT PAPER 2; INK 7i"l"; 

: PRINT "-Peaquiaa e desenvolv 

isento" 



520 PRINT PAPER 2; INK 7:"3"; 
: PHINT "-Cavar aais 200 ■ " 
530 PRINT PAPER 2; INK 7; "4"; 
: PRINT "-Vender ouro no itrea 
do" 

540 PRINT PAPER 2; INK 7: "5"; 
: PRINT "-PaBoa a vez' 
550 PRINT : PRINT FLASH li 
PAPER 1; INK 6; "Faca sua opcao 

600 LET iS=INKEYS: IF 13="" 
THEN GOTO 600 
610 IF Í3<"1" OR ÍS>"5" THEN 
GOTO 600 

620 GOSUB VAL iS*10GO 
700 IF a(B.2)<0 THEN GOTO 
7000 

710 LET er-er+INT (RND*1000) - 
200 

720 IF INT (RND«1600)-a(«.3KO 

THEN GOSUB 900 

740 LET a(»,l)-a(«.2)+a<«,3)* 

750 PAPER 7: INK 0: BOHDER 7: 
CLS 

790 NEXT ■ 
BOO NEXT n 

810 PAPER 5: BORDER 5: INK 0: 

820 PRINT FLASH 1 ; INK 7; 
PAPER 2iAT 6,10;" FIM DO JOGO" 
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1) 

840 IF nop-2 THEN PRINT ' TAB 
5:"Saldo total de ";a3(2): 
PRINT TAB ll;'S";a(2,l) 
650 PRINT " PAPER 2: INK 6; 
FLASH 1 ; TAB 1; "Qualquer tecla 
para recoiecar" 
860 IF INKEYSO"" THEN GOTO 
660 

870 IF INKEYS- " " THEN GOTO 

870 
B80 RUN 

900 PAPER 2: INK 6: BORDER 2: 

CLS 

905 LET jk-INT (RND*100) +50 : 
IF jk>a(«.3) THEN LET jk-a(», 

3) 

910 PRINT PAPER 6; INK li 
FLASH 1;AT 9,10;" ROUBO" 
920 PRINT : PRINT INK 7:" 
Foraa roubados ";jki"kg de": 
PRINT ' aeu ouro": LET a(n. 
Í)-a(«,3)-jk: LET a(»,l)-a<B.l 
)-(jk*er) 

930 FOR *«1 TO 35: SOUND .05. 
40: SOUND .05.20: NEXT x 
940 BORDER 7: PAPER 7: INK 0: 
CLS : RETURN 



100 UPOKE BASE (6) , 4" 16+4 : VPOKE 
BASE<6)+1. 6*16+6 

110 FOR 1-6 TO 7:VPOKE BASE(6)+ 
I.15*16+6:NEXT 

120 L0CATE 0.5: PRINT "Quantos j 
ogadores (1 ou 2) ?; 
130 AS-INKEYS ■ IP A$<"1" OR AS>" 
7" THEN 130 

140 P-UAL{A31 :NO-P:ER-10000:A10 
.0)-2000000»:A(0.1)-A<0,0> :A(1. 
O)-A(O.O) :A(1.1)-A(0,0) :A(0.3)- 
100000! :A(1.3)-A(0,3) 
ISO FOR N-l TO P: PRINT: PRINT: PR 
INT"No«e do jogador " ;N ; : LINE IN 
PUT AS(N-l) :IF LEN(A3(N-1) ) >8 T 
HEN A3(N-1)-LEFT$(AS(N-1) ,6) 
160 NEXT 

200 FOR N-0 TO 29: FOR M-0 TO NO 

202 FOR 1-0 TO 767:UPOKE BASE ( 5 

) +1 , 0 : NEXT : LOCATE 0.0 

204 FOR 1-0 TO 31:VPOKE BASE(5) 

+I,8:VPOKE BAS£(5)+736+I,8:NEXT 

206 FOR 1-0 TO 24:VPOKE BASEÍ5) 

+I*32.B:VPOKE BASE (5) +31+1*32 , 8 

:NEXT 

210 LOCATE 9.0:PRINT "MINA DE O 
URO" 

220 LOCATE 12.2:PRINT A$(0);:IF 
NO-2 THEN LOCATE 21,2:PRINT AS 
(1) 

230 LOCATE 0.3:PHINT "SALDO TOT 
AL"iTAB(ll) : A(0,0) ; :IF NO-2 THE 
N LOCATE 20.3:PRINT A(1.0) 
240 LOCATE 0.4:PRINT "DINHEIRO" 



;TAB(11) :A(0,1) : : IF tíO-2 THEN L 

OCATE 20,4: PRINT A (1,1) 

250 LOCATE 0,5:PRINT "OURO";TAB 

(11) ;A(0,2) : :IF NO-2 THEN LOCAT 

E 20,5:PRINT A(l,2) 

260 LOCATE 0,6:PRINT "3 P/ CAVA 

R" ; TAB (11) ; A (0 . 3) ; : IF NO-2 THEN 

LOCATE 20.6:PRINT A(l,3) 
270 LOCATE 0,7: PRINT "No DE MIN 
AS";TAB(11) ;A(0,4) ; : IF NO-2 THE 
N LOCATE 20.7:PRINT A(l,4) 
280 LOCATE O.B:PRINT "PROFUNDI/ 
/" iTAB(ll) ;A(0,5) ; :IF NO-2 THEN 

LOCATE 20. í)- PRINT A(l,5) 
300 LOCATE 1,10: PRINT "COTAÇÃO 
DO OURO NO MERCADO" : LOCATE 3,11 
: PRINT ER-, "POR KG DE OURO" 
400 LOCATE 12.13:PRINT AS (M) 
SOO PRINT : PRINT "1-Pesguisa e d 

510 PRINT "2-Levanta»ento geoló 



530 PRINT "4-Vender ouro no ier 

540 PRINT "5-PaBsa a vez 

600 AS-INKEYS:IF AS<"1" OR A3>" 
5" THEN 600 

620 ON VAL(AS) GOSUB 1000.2000, 
3000 . 4000, 5000 
700 IF A(M,1)<0 THEN 7000 
710 ER=ER+1000*INT(RND(1) )-200 
720 IF RND (1600) -A(M, 2X0 GOSUB 
900 

740 A(M.0)-A(M,1)+A(M,2)*ER 

750 CLS 

790 NEXT M . N 

BIO CLS 

820 LOCATE (5,5):PRINT "FIM DE 
JOGO" 

830 LOCATE (0,7): PRINT "SALDO T 
OTAL DE";AS(0) ;TAB(23) ;A(0,0) 
840 IF NO-2 THEN PRINT "SALDO T 
OTAL DE" ; AS ( l ) iTAB (23) ; A (1 , 0) 
850 PRINT : PRINT "QUALQUER TECLA 

PARA RECOMEÇAR" 
860 IF INKEYS""" THEN 860 ELSE 
RUN 

900 CLS 

905 JK=INT(RND(1)*100)+50:IF JK 

>A(M J .2) THEN JK=A(M,2) 

910 PRINT TAB(9);"R O U B O" 

920 PRINT : PRINT " FORAM ROUB 

ADOS" ;JK; "KG" : PRINT "DE SEU OUR 

O':A(W,2)-A(M,2)-JK:A(M,0)-A(M, 

0) -JK*ER 

930 PLAY"T25501CDEFBAGFED" 

940 FOR 1=1 TO 500:NEXT:CLS:RET 

URN 



A(0,0) :A(0.3) - 10000:A(1.3) - 
A(0.3) 

150 FOR N - 1 TO P: PRINT : PR 
INT : PRINT "NOME DO JOGADOR "; 
N ; : INPUT AS (N -1): IF LEN (A 
3 (N - 1) ) > B THEN AS (N - 1) - 

LEFTS (ASCN - 1) ,B) 
160 NEXT 

200 FOR N - 0 TO 29: FOR M-0 

TO NO - 1 
202 HOME 

210 INVERSE : HTAB 12: PRINT " 

MINA' DE OURO " : NORMAL 
220 PRINT : PRINT TAB [ 20);A3 
(0);: IF NO - 2 THEN PRINT TA 

B( 30) ;AS(1) ; 

230 PRINT : PRINT "SALDO TOTAL 
" ; TAB ( 20) ;A(0.0) ; : IF NO - 2 
THEN PRINT TAB ( 30);A(1,0); 
240 PRINT : PRINT "DINHEIRO* : 
TAB { 20);A(0.1);: IF NO - 2 THE 
N PRINT TAB ( 30) ;AU,1) : 
250 PRINT : PRINT "OURO KG" i 
TAB ( 20) |A(0,2) ; : IF NO - 2 TH 
EN PRINT TAB ( 30);A(1.2>; 
260 PBINT : PRINT "CUSTO P/ CA 
VAR 3"; TAB ( 20);AC0,3);: IF N 
0-2 THEN PRINT TAB { 30);A(1 
.3) i 

270 PRINT : PRINT "N.O DE MINA 
S"; TAB ( 20);A(0,4);: IF NO - 2 
THEN PBINT TAB ( 30);A(1,4); 
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20 DIM A(l,5) ,C(1.4) ,A3(1) 

120 HOME : PRINT "QUANTOS JOGA 

DORES (1 OU 2) ?" ; 

130 GET A$: IF AS < "1" OR AS 

> -2" THEN 130 

140 P - VAL (A3) :NO - P:ER - 1 
0000:A(0,0) - 2000000:A(0,1) - 
A(O.O) :A(1.0) - A(0.0) :A(1.1) -. 



Como assegurar bons resultados na 
procura de ouro? 

Quando o programa estiver comple- 
□ , você verá que ele segue as regras 
do comércio — atividade que, entre ou- 
tras coisas, inclui sorte. Por isso mes- 
mo, é difícil dar a receita do sucesso 
e da fortuna. Mas algumas dicas terão 
utilidade. 

Embora os custos de mineração 
passam sei reduzidos graças a pesqui- 
a e desenvolvimento, não é aconse- 
lhável investir grandes somas neste 
n, já que você conta só com trinta 
rodadas para enriquecer. 

Faça escavações somente em minas 
com boa possibilidade de produzir ou- 
a uma pequena profundidade. Não 
fique, porém, eternamente passando a 
vez, pois o jogo pode acabar antes que 
mina ideal apareça. 
Se estocar ouro, você correrá o ris- 
co de ser roubado, mas compare as 
chances de que isso ocorra com a co- 
tação do ouro vigente no mercado — 
tente sempre vender o metal em perío- 
dos de alta. 



um 
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280 PRINT : PBINT "PROFUNDIDAD 
E M"; TAB ( 20);A<0.5);: IF NO 
- 2 THEN PRINT TAB ( 30);A(1. 

5] ; 

300 PRINT : PRINT : PRINT "COT 
ACAO DO OURO :": PRINT ER;" POR 

KG DE OURO" 
400 PRINT ! PRINT TAB ( 14) ; AS 
<H> 

500 PRINT : PRINT "1- PESQUISA 

E DESENVOLVIMENTO* 
510 PRINT "2- LEVANTAMENTO GEO 
LOGICO" 

520 PRINT "3- CAVAR MAIS 200 M 

530 PRINT "4- VENDER OURO NO M 
ERCADO" 

540 PRINT "5- PASSAR A VEZ" 
600 GET AS: IF A3 < "1" OR A3 
> "5" THEN 600 

620 ON VAL (AS) GOSUB 1000.20 
00, 3000 ,4000, 5000 
700 IF A(M.l) < 0 THEN 7000 
710 ER = ER + INT [ RN D (1) * 
1000) - 500 

720 IF INT ( RND tl) * 1600) 
- A(M,2) < 0 THEN GOSUB 900 
740 A(M.O) - A(M,1) + A(M,2) * 
ER 

750 HOME 
790 NEXT M,N 
610 HOME 

820 INVERSE : HTAB 14: PRINT " 

FIM DE JOGO " : NORMAL 
630 VTAB 5: PRINT "SALDO TOTAL 

DE "iAS(O) ;" : "sA(O.O) 
840 IF NO - 2 THEN PRINT : PR 
INT "SALDO TOTAL DE ";ASU):" : 

" ;A(1 .0) 

850 PRINT : PRINT : PRINT "QUA 
LQUER TECLA PARA RECOMEÇAR" 
860 GET AS - RUN 
900 HOME 

905 JK - INT ( RND (1) * 100) 
* 49: IF JK > A(M,2) THEN JK - 
A(M,2) 

910 INVERSE : HTAB 15: PRINT " 

ROUBO": NORMAL 
920 PRINT : PRINT "FORAM ROUBA 
DOS "iJK;" KG DE SEU OUROVACM. 
2) - A(M,2) - JK:A(M,0) - AÍM.O 



) 



ER 



10 PMODE 3.1.CLS 

20 DIM H(23) ,T<0) ,DU> ,BU) .AO 

.5) .C<1. 4) ,AS{1> .RU) 

40 FOR K-0 TO 9 : READ NU3(K):NEX 

T 

50 DATA NR2D4B2U4BR2 . BFEND4BR2 . 
R2D2L2D2R2BU4BR2 , NR2BD2NR2BD2R2 
U4BR2 .D2R2D2U4BR2 , NR2D2R2D2L2BE 
4 , D4R2U2L2BE2BR2 , R2ND4BR2 .NR2D4 
R2U2NL2U2BR2 , NR2D2R2D2U4 BR 2 
60 PCL3 3 

70 DRA«"BM36.23C2L35U6E3R3NU4R5 
- U10E2RE3R3F4D3F4DF2DF2DF3D2" :PA 
L INT UB, 16) ,2 



80 DRAM" BM 2 4 , 9C3G2D6F5R 3E2UH2UH 
UH2UH2BM20 , 1NLDL2GR5D5BH14 . 6RBR 
3RBD4 DBL4UBD3LBR4RBD2LBL3LBD2RB 
R3RBD2LBL3LBD2RBR3RBD2LBL3L" :PA 
INT(26.15) , 3 

90 DRAWBH2 , 21C4UBR4ND3BR4D" : GE 

T(0.0)-(37.23) ,H,0 

100 PCLS ; DRAW BM7 , 0C4L6BD2ERFRE 

RBD2L7DR7DL5GNR3DNR3FNR4DNR4GNH 

3DNR3FNR4DR2GL3FNR6FR3FL4GNRDR5 

DL 3" 

110 CET(0.0)-(7. 2) ,T,G:GET(0. 3) 
- (7,10) , D, G: GET (0,11)- 17,20) ,B, 

O 

120 PRINT 6129, "QUANTOS JOGADOR 
ES íl OU 2) 7"; 

130 AS-INKEY3:IF A$<"1" OH AS>" 
2" THEN 130 

140 P-VAL(AS) :NO-P:ER-10000:A(0 
,0) -2000000: A(0,1) -2000000: AU, 
0)-2000000:AU ,11-2000000: A{0. 3 
) -100000: AU . 3) -100000 
150 FOR N-l TO P: PRINT: PRINT: PR 
INT" NOME DO JOGADOR" ; N ; : LINE IN 
PUT A3(N-1):IF LEN (AS <N-1 ) ) >B T 
HEN A3(N-1)-LEFTS(AS(N-1) ,B) 
160 NEXT 

200 FOR N-0 TO 29: FOR M-0 TO NO 

-1 

202 CLS 

210 PRINT e3."»ina de ouro"; 
220 PRINT TABU5) ;AS(0) ; : IF N0- 
2 THEN PRINT TAB(24);ASU) 
230 PRINT e32 , "SALDO TOTAL " ; TAB 
(14) ;A(0,0) :IF NO-2 THEN PRINT 
055, AU, 0) 

240 PRINT 064 , "DINHEIRO* : TAB (14 
);A(0.1):IF NO-2 THEN PRINT 067 
,A(1. 1) 

250 PRINT «96, "OURO kg";TAB(14) 
;A(0,2):IF NO-2 THEN PRINT 0119 
,A(1.2) 

260 PRINT «128. *$ P/ CAVAR " ; TAB 
(14) ;A(0,3) :IF NO-2 THEN PRINT 
ei51,AU,3) 

270 PRINT #160, "NO. DE MINAS";T 
AB(14) ;A(0,4) :IF NO-2 THEN PRIN 
T 8183, AU, 4) 

280 PRINT «192. "PROFUNDI/Y fi*;T 
ABU4) iA(0,5) :IF NO-2 THEN PRIN 
T «215. AU, 5) 

300 PRINT «224 , "COTAÇÃO DO OURO 
NO MERCADO": PRINT ER;"POfl KG D 
E OURO " 

400 PRINT «330.A3IM) 

500 PRINT *1- PESQUISA E DESENV 

OLVIMENTO 

510 PRINT "2- LEVANTAMNTO GEOLO 
GICO" 

520 PRINT "3- CAVAR MAIS 200 M" 
530 PRINT "4- VENDER OURO NO ME 
RCADO" 

540 PRINT "5- PASSA A VEZ"; 
600 A3-INKEY3:IF A3<"1" OR A3>" 
5" THEN 600 

620 ON VAL(AS) GOSUB 1000.2000, 
3000.4000. 5000 
700 IF A(H,1)<0 THEN 7000 
710 ER=ER+RNDU000) -200 
720 IF RNDU600)-A(M.2KO GOSUB 
900 

740 A(M.0)-A(M.1)+A(H.2)«ER 




750 CLS 

790 NEXT M,N 

810 CLS 

820 PRINT «138,-FIM DE JOGO" 
830 PRINT «197, "SALDO TOTAL DE* 

: AS (0) : PRINT TAB (11) ; A ( 0 , 0 ) 
840 IF NO-2 THEN PRINT TAB (5) ; " 
SALDO TOTAL DE" ; AS U > : PRINT TAB 

(11) ;A(1.0) 

650 PRINT «449. "QUALQUER TECLA 
PARA RECOMEÇAR" 

860 IF INKEYS-" " THEN 860 ELSE 
RUN 

900 CLS 

905 JK-RNDU00)+49:IF JK>A(M,2) 

THEN JK-AÍM.2) 
910 PRINT «10, "R O U B O* 
920 PRINT: PRINT" FORAM ROUB 

ADOS";JK;*KG DE" : PRINT" SEU. 
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OUBO- :MM,2)-A(H,2)-JK:MN,0)- 
A(M.0)-JK"ER 

930 PLAY"T401CDEF8AGFED" 
940 CLS:RETU8N 

Todos esses programas funcionam de 
maneira similar, seguindo a mesma es- 
trutura básica e a mesma numeração. 
Do início até a linha 200, contudo, há 
algumas variações. 



Para começar, a linha 10 pergunta 
qual o número de jogadores, e a linha 
20 verifica se a resposta se encontra no 



intervalo adequado. A linha 30 acerta 
os valores de p c nop de acordo com o 
número escolhido. 

Algumas matrizes são dimensionadas 
na linha 40, juntamente com a cotação 
do ouro no mercado — er. A matriz a 
armazena informações sobre o saldo dos 
jogadores; a matriz c, informações so- 
bre as minas; a matriz a$ contém os no- 
mes dos jogadores e a r é usada para in- 
dicar o começo das escavações na mina 
em questão. A linha 50 estabelece os sal- 
dos e as condições iniciais das minas dos 
dois jogadores. O valor zero é coloca- 
do em r(l) e r(2), indicando que as es- 
cavações não começaram na primeira 
mina. Outros valores são dados a seguir: 



a(l,l) e a(2,l) contêm o saldo de cada 
jogador; a(l,2) e a{2,2), o total em di- 
nheiro que cada jogador possui; a(M) 
e a(2,3) indicam a quantidade de ouro 
de cada um; a(l,4) e a(2,4), os custos de 
mineração; a(l,5) e a(2,5) revelam o nú- 
mero de minas de cada um e a(l,6) e 
a(2,6"), a profundidade das minas. 

A linha 70 permite a entrada do no- 
me dos jogadores. 



A linha 20 dimensiona as matrizes. A I 
linha 90 seleciona a tela de textos de 32 | 
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colunas com fundo amarelo, caracteres 
pretos e bordas azuis. As teclas de fun- 
ção são desligadas. 

A tela de 32 colunas foi escolhida 
porque permite o uso de cores e de blo- 
cos gráficos, tornando o programa mais 
interessante. 

A linha 100 faz com que os oito pri- 
meiros caracteres — códigos 0 a 7 — se 
tornem blocos azuis (veja artigo da pá- 
gina 261). A mesma linha ainda faz com 
que os oito caracteres seguintes — có- 
digos 8 a 15 — se tornem blocos de cor 
vermelha. 

A linha 110 determina que os carac- 
teres numéricos sejam escritos em bran- 
co sobre fundo vermelho. 

Depois desses preparativos iniciais, a 
linha 120 pergunta qual o número de jo- 
gadores. A linha 130 verifica se a res- 
posta obtida é válida — um ou dois jo- 
gadores. 

Em seguida, a linha 140 acerta o va- 
lor das variáveis P, NO — as duas iguais 
ao número de jogadores — e ER — co- 
tação do ouro. Além disso, ela estabe- 
lece os valores iniciais de vários elemen- 
tos da matriz A: A(0,0) e A(0.1), saldo 
total dos jogadores; A(0,1) e A(l,l), 
quantia em dinheiro que cada um pos- 
sui; A(0,2) e A{l, 2), quantidade de ou- 
ro; A(0,3) e A(l,3), custo da mineração. 

As linhas 150 e 160 perguntam o no- 
me dos jogadores. 

O jogo do MSX, como já dissemos, 
utiliza a tela de textos de 32 colunas, 
com cor de fundo amarelo e caracteres 
pretos. Os caracteres numéricos apare- 
cem em branco sobre vermelho, enquan- 
to a tela é mantida com fundo azul. Tu- 
do isso é obtido por meio do comando 
VPOKE, que já usamos outras vezes 
(veja artigo da página 261). 

[BE] 



Na versão para Apple e o TK-2000, 
nosso jogo começa dimensionando al- 
gumas variáveis na linha 20. 

Em seguida, a linha 120 pergunta 
quantas pessoas vão participar e a linha 
130 verifica a validade da resposta. A li- 
nha 140 guarda o número de jogadores 
nas variáveis P e NO, que servirão de 
contadores e sinalizadores em vários 
pontos do programa, permitindo que os 
dados de cada jogador sejam colocados 
no local correto. Essa linha ainda acerta 
o valor da cotação do ouro — ER — , 
bem como de vários elementos da matriz 
A: A(0,0) e A(1,0), saldo total dos joga- 
dores; A(0,1) e A(l,l), total em dinheiro 
ttKL que cada um possui; o par seguinte cor- 
responde à quantidade de ouro e o últi- 



mo, ao custo da escavação nas minas. 

As linhas 150 e 160 perguntam o no- 
me dos jogadores. 

íi 

A linha 10 seleciona o modo PMO- 
DE 3 e a tela é limpa. A linha 20 dimen- 
siona várias matrizes. 

Como parte do jogo acontece na le- 
ia gráfica, em certos momentos c preci- 
so usar DRAW para escrever texto. As 
linhas 40 a 1 10 contêm a rotina para es- 
crever na tela de alta resolução, publi- 
cada em INPUT anteriormente (veja ar- 
tigo da página 232). 

As linhas 120 e 130 perguntam o nú- 
mero de jogadores c verificam se a res- 
posta é válida. A linha 140 acerta os va- 
lores de P e NO de acordo com o nú- 
mero escolhido. Em seguida, alguns dos 
elementos da matriz A têm seus valores 
iniciais estabelecidos, a saber: A(0,0) e 
A(1,0) contêm o saldo total de cada jo- 
gador; o próximo par de elementos con- 
tém os saldos em dinheiro; o seguinte, 
a quantidade de ouro que cada um pos- 
sui e o último corresponde ao custo da 
mineração. 

As linhas 150 e 160 pedem os nomes 
dos jogadores. 

Daí em dianic os programas são bem 
parecidos. Todos eles têm dois laços 
FOR...NEXT que começam na linha 
200 e terminam nas linhas 790 e 800. Es- 
ses laços são responsáveis pela exibição 
do menu e da situação das companhias 
de mineração na tela. 

A variável N (n, no caso do Spec- 
trum) conta o número de rodadas já jo- 
gadas. A variável NO (nop, no Spec- 
trum) garante a oferta de trinta rodadas 
a cada jogador. Observe que, mais 
adiante na listagem, esta mesma variá- 
vel fará com que a situação das compa- 
nhias de mineração seja exibida. 

A linha 202 escolhe as cores da tela 
no Spectrum. Nos demais, ela apenas 
limpa a tela — note que no MSX isto 
é feito por uma sub-rotina que enche a 
tela com o caractere de código 0, cuja 
cor azul foi definida pela linha 110. A 
linha 210 imprime o título: MINA DE 
OURO. A linha 220 imprime o nome 
dos jogadores. O segundo nome só é im- 
presso se a opção para dois jogadores 
foi escolhida no início. 

As linhas 230 a 300 mostram os va- 
lores: SALDO TOTAL, saldo em DI- 
NHEIRO, saldo em OURO, custo para 



CAVAR, N? DE MINAS, PROFUNDI- 
DADE da mina e COTAÇÃO DO OU- 
RO NO MERCADO. Se duas pessoas 
estiverem jogando, os dois valores serão 
impressos no local correspondente. O 
programa faz isso com base nos valores 
das variáveis nop ou NO. 

A linha 400 mostra o nome da pes- 
soa que está jogando no momento. As 
linhas 500 a 540 oferecem as opções de 
Pesquisa e Desenvolvimento, Levanta- 
mento Geológico, Cavar mais 200 me- 
tros, Vender ouro no mercado ou Pas- 
sar a vez. No Spectrum, a linha 550 so- 
licita ao jogador que Taça sua opção. 
Nos demais micros não há esta linha. 

As linhas 600 a 620 usam INKEYS ou 
GET para obter a resposta do jogador. 
Além disso, verificam a validade da res- 
posta e chamam a sub-rotina correspon- 
dente à escolha feita. 

A linha 700 verifica se o saldo total 
caiu abaixo de zero, terminando o pro- 
grama, se for o caso, por meio de uma 
sub-rotina de finalização. A linha 710 
faz com que a cotação do ouro flutue 
ao acaso; assim, o jogador deverá ter o 
cuidado de vender o metal nas épocas 
de "alta". 

A linha 720 compara um número 
aleatório com a quantidade de ouro do 
jogador, para decidir se haverá um rou- 
bo — observe que as chances de roubo 
aumentam com a quantidade de ouro 
armazenada. A rotina que cuida do rou- 
bo fica nas linhas 900 a 940. A linha 905 
decide quanto ouro vai ser roubado, e 
a linha 920 informa que esta quantida- 
de foi roubada. 

A linha 740 calcula o saldo total, adi- 
cionando o saldo em dinheiro ao valor 
do ouro armazenado, calculado com ba- 
se na cotação atual. 

A linha 350 restabelece as cores da te- 
la e a limpa, antes que o NEXT envie 
o programa de volta para a linha 200, 
para mais uma rodada. 

As linhas 810 a 840 contêm a rotina 
de finalização do jogo, usada quando o 
saldo de um dos jogadores cai abaixo de 
zero. Ela mostra na tela as condições fi- 
nais das companhias de mineração e in- 
forma: FIM DE JOGO. 

Finalmente, as linhas 850 a 880 per- 
mitem uma nova partida. 

Na próxima seção, adicionaremos vá- 
rias sub-rotinas que farão com que o jo- 
go funcione. Haverá rotinas para redu- 
zir os custos de mineração por meio de 
pesquisa e desenvolvimento, para fazer 
o levantamento geológico, escavar o so- 
lo e vender o ouro no mercado. Além 
disso, traremos os dados necessários pa- 
ra a elaboração dos gráficos que ilus- 
tram as minas e mostram o progresso 
das escavações. 
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OS CARACTERES DE 



CONTROLE DO CURSOR 



" FIGURAS MAIS COMPLEXAS 



ANIMAÇ ÃO DE FIGURAS 



COMPLEXAS 



Usando gráficos de baixa resolução, 
podemos criar figuras semelhantes a 
sprites. Você aprenderá a armazená-las 
em uma única variável, mesmo que 
ocupem várias linhas na tela. 



ractere da linha de cima (o 132), faça-o 
descer uma linha e recuar sete posições 
(número de byies da linha de cima do 
gráfico), Coloque, eniào: 
105 DATA 26.24,24.24,24.24,24. 



A forma mais avançada de produção 
de figuras animadas cm BASIC, nos mi- 
cros da linha TRS-80. consiste na con- . 
catenação de vários caracteres gráficos 
e seu armazenamento em uma única va- 
riável alfanumérica. 

Esse método funciona muito bem, 
mesmo quando a figura ocupa mais de 
uma linha na tela. Mas, para que pos- 
samos continuar tratando a figura co- 
mo uma entidade única (por exemplo, 
para empregar a variável que a armaze- 
na dentro de um PRINT@), precisare- 
mos incluir na sua definição caracteres 
de controle do cursor. 

Já mencionamos, brevemente, que 
certos caracteres situados na faixa do 
código ASCII que vai de 0 a 31 servem 
para o controle de funções do vídeo, 
quando são utilizados com um PRINT 
CHRS. Por exemplo, PRINT CHR$(23) 
dobra a largura dos caracteres na tela 
(32 colunas). 

Quatro desses caracteres nos interes- 
sam na geração de figuras com a técni- 
ca que aqui examinaremos. São os ca- 
racteres de controle do cursor: 

24 recua o cursor uma posição na 
horizontal 

25 avança o cursor uma posição 
na horizontal 

26 desce o cursor uma posição 

27 sobe o cursor uma posição 
Suponhamos que você queira dese- 
nhar na tela um pequeno disco voador, 
formado por duas linhas. Os códigos da 
linha de cima serão: 

100 DATA 174. 1B7. 187. 187,167, 
1B7.132 

e os da linha de baixo: 
110 DATA 128.143,143,143.143. 
143 

Para concatenar os códigos em uma 
única figura, proceda assim: quando o 
cursor terminar de traçar o último ca- 



Depois, acione as linhas anteriores ao 
programa que damos a seguir e execute- 
o para ver o resultado. 

10 D5*"" 

20 FOR 1-1 TO 21 : BEAD N 
30 D3=D3+CHR3(N) :NEXT I 
40 CLS:PRINT « 288, DS; 

A figura aparecerá instantaneamen- 
te na tela, com um único PRINT! 



COMPACTANDO A DEFINIÇÃO 



Como a definição da figura inclui 
muitos códigos idênticos, é possível dar- 
Ihe uma forma mais compacta, recor- 
rendo à função STRINC.S e evitando o 
laço FOR...NEXT e as linhas DATA. 
Digite NEW e entre este programa: 

10 D3 = CHR5(174)-t-STRINCS 
(5,187)+CHR3(132j+CHRS(26) + 
STHINGS (7 . 24J+CHR3 (128) + 
STRING$(5,143) 

20 CLS:PRINT 8256, D3: 



FIGURAS MAIS COMPLEXAS 



O método dc concatenação de códi- 
gos gráficos em uma variável alfanumé- 
rica tem, evidentemente, suas limita- 
ções. Se a figura ocupar várias linhas, 
por exemplo, haverá uma excessiva uti- 
lização da memória, já que precisamos 
de um conjunto de caracteres de contro- 
le entre cada linha. 

A limitação mais séria, entretanto, 
está na impossibilidade de se criar uma 
figura com um número de bytes supe- 
rior a 255, pois este é o comprimento 
máximo de uma cadeia de caracteres no 
BASIC do TRS-80. A melhor alternati- 
va será, então, repartir a figura em vá- 
rios blocos e usar mais de um PRINT@ 
para colocá-la inteira na tela. Ao con- 
trário do que parece, tal procedimento 
não reduz a velocidade de animação grá- 
fica e os resultados, em geral, são seme- 



lhantes aos obtidos com a técnica de mo- 
vimentação do cursor. 

Outra técnica muito útil quando se 
tem figuras grandes e complexas é a cha- 
mada tríade de posição, comprimento, 
caractere. Suponhamos que você quei- 
ra desenhar um trenzinho, fazendo o 
pistão da roda se movimentar e nuvens 
de fumaça escaparem da chaminé. O 
mais adequado será desenhar primeiro 
a locomotiva completa, usando a técni- 
ca da tríade e, depois, animar as partes 
que interessam, substituindo sucessiva- 
mente duas figuras (por exemplo, o bra- 
ço do pistão em duas posições). 

A tríade consiste em uma sequência 
de três números, expressa em uma linha 
DATA de definição da figura. O primei- 
ro número determina a posição @ on- 
de começa a cadeia de caracteres: o se- 
gundo define a quantidade de caracte- 
res existentes na cadeia; o terceiro indi- 
ca o código gráfico dos elementos iguais 
da cadeia: 

100 FOR 1=1 TO 32 :READ N1.N2.N3 
110 PRINT « N1,8TRING3{N2.N3) i 
120 NEXT I 



Agora que você já sabe como criar fi- 
guras de características semelhantes às 
dos spriles para os microcomputadores 
da linha TRS-80, será fácil fazer anima- 
ção gráfica com eles. É claro que essas 
figuras não possuem uma propriedade 
fundamental dos sprites autêniicos (co- 
mo os da linha MSX): a priorização de 
imagens. Explicando melhor, cada spri- 
te recebe um número, que indica ao 
computador se ele vai obstruir ou ser 
obstruído por outro sprite que ocupar 
o mesmo lugar na tela. 

De qualquer maneira, é possível elabo- 
rar programas de animação gráfica re- 
lativamente sofisticados para o TRS-80. 
Um fator importante na animação é o 
tempo que leva o computador para tra- 
çar um bloco gráfico, definido confor- 
me as técnicas apresentadas nesta série. 
Se a execução do desenho for muito de- 
morada — como no caso de blocos grá- 
ficos grandes ou formados por vários 
PRINT @ separados — . a animação 
gráfica não sairá perfeita. 
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Na tentativa de construir um mode- 
lo para o mundo que nos cerca, a mate- 
mática aplicada e outros ramos da ciên- 
cia fazem uso de um grande número de 
equações. Estas resultam do exame de 
dados gerados por observações e expe- 
rimentos. A partir desse exame, calcula- 
se uma equação que explica a relação en- 
contrada de maneira que satisfaça os da- 
dos obtidos. 

Tais equações relacionam-se à 
variada gama de fenómenos físicos e 
biológicos — desde o crescimento de 
uma planta até a trajetória de um come- 
ta no espaço. Esse tipo de informação 
tem diversos usos, sobretudo porque as 
equações possibilitam prever como as 
coisas se comportarão em determinadas 
circunstâncias. 

O significado das equações mais 
complicadas pode não ser claro ã pri- 
meira vista. Algumas delas só são 
preensíveis para os que estão envol 
vidos num campo específico de pes- 
quisa. Muitas, porém, descrevem 
fenómenos que fazem parte da 
experiência de qualquer pessoa. 
Já vimos um exemplo no pro- 
grama que usa uma fórmula 
para estudar o comporta- 
mento de um objeto em queda 
(veja artigo da página 434). 

Mas, sejam as equações 
complicadas ou não, o re- r 
sultado dos cálculos consis- 
te simplesmente num nú- j 
mero — para o tempo ou I 
qualquer outra coisa — , I 
que é mais um modelo pa- . 
ra o mundo real. Além da 
utilidade já mencionada, es- 
sas equações têm outro em- 
prego: elas podem ser progra- 
madas no seu micro para pro- 
duzir uma interessante simula- 
ção da realidade. Nesse caso, a 
equação é utilizada para controlar 
a apresentação de tela. Assim, n< 
exemplo anterior, poderíamos criar uma 
imagem para mostrar como se compor- 
ta um objeto em queda livre. 

É possível empregar qualquer equa- 
ção de movimento para imitar na tela a 
movimentação real de um objeto. Essa 
I idéia está na base de muitos programas 
I e de curiosas animações. 



A matemática fornece vários modelos 
para o mundo real. Utilizando os 
em seus programas, você pode produzir 
efeitos muito interessantes. Aqui, 
simulamos a trajetória de uma bola. 



A melhor maneira de compreender 
como isso funciona é trabalhar com um 
exemplo prático — ou seja, tomar uma 
série de equações que podem ser encon- 
tradas em qualquer livro de física e 
transformá-las em belas simulações na 
tela. Como exemplo, vamos começar 
com algo fácil de simular: a trajetória 
de uma bola numa mesa de bilhar. 



Se você bater numa bola com um ta- 
co (ou lhe der um chute), ela se moverá 



em linha reta até encontrar algum obs- 
táculo. Se houver outra força agindo so- 
bre ela — ventos laterais ou gravidade, 
digamos — , a trajetória e a velocidade 
serão modificadas. Em uma boa mesa 
de bilhar, pode-se desconsiderar a ação 
de ventos, restando apenas uma força 
com que se preocupar: o efeito da fric- 
ção ou atrito com a mesa, que reduzirá 
gradualmente a velocidade da bola. 
Mas, quanto? Ai entra a primeira de 
nossas equações. 

Grosso modo, quanto maior a for- 
ça que atingir a bola no momento da ta- 
cada, mais longe ela irá. Existe uma 




IHIIIIIIIIII! 



O MODELO DA BOLA 



CÁLCULO DAS COORDENADAS 



COMO FAZER A BOLA R OLAR 
UMA MIRA MÓVEL 



COMO A EQUA Ç ÃO FUNCIONA 
TACADAS MAIS FORTES 



RAÍZES QUADRADAS 



COMO DESACELERAR 



COMO CALCULAR 



A VELOCIDADE DA BOLA 



equação que calcula a distância a ser 
percorrida por um objeto, dada a força 
inicial e alguns outros elementos, como 
o eleito do atrito. Essa equação tem va- 
riadas aplicações em programação. Pa- 
ra vê-la funcionando, digite e execute es- 
te programa: 



"3) Bola d 
"4) Boi 



■ pesa de 



P«Cfl 



pua opcao" 



10 CLS 

20 PRINT -1) Bola 
/ grava longa" 



ola de golfe / 



40 PRINT 
a Lua" 
50 PRINT 
bilhar" 
60 INPUT 
pt 

70 IF opt<l OR opt>4 THEN 
GOTO 60 

BO IF opt-1 THEN LET fg-4 
90 IF opt-2 THEN LET fg-1.4 
95 IF opt-3 THEN LET Eg-.l 
100 IF opt-4 THEN LET Cg-, 7 

110 CLS 

115 PRINT "A velocidade pode a 
er de 1 a 15 Metros por pegund 




120 INPUT "Qual 3 velocidade 1 
nicial <»/«)-, v 
125 IF v<l OR v>15 THEN GOTO 
120 

160 LET di»t-(v*v)/(2»fg) 
170 CLS 

210 PRINT AT 2.4;"Sua bola ale 

220 PRINT AT 7 , 8 ; diat : "»etros" 
250 PRINT AT 18, li FLASH l;"Qu 
alquer tecla para continuar" 
260 PAUSE 0 
270 GOTO 10 



DQ 



10 CLS 

20 PRINT «96," 1 ) BOLA DE PUTEBO 
L / GRAMA LONGA" 

30 PRINT «160." 2)BOLA DE FUTEB 
OL / GRAMA CURTA" 
40 PRINT «224," 3) BOLA DI GOLFE 
NA LUA" 

50 PRINT C2B8," 4)BOLA EH MESA 
DE BILHAR" 

60 PRINT: PRINT* QUAL SUA OPCAO 
?" 

70 K9-INKEYS:IF KS<"1" OR KS>"4 

" TH EM 70 

BO OP-vAL(KS) 

90 IF OP-l THEN FQ-4 

100 IF OP-2 THEN FG-1.4 

110 IF OP-3 THEN PG-.l 

120 IF OP-4 THEN FG- . 7 

130 CLS 

140 PRINT* A VELOCIDADE PODE SE 
R DE 1 A 15 METROS POR SEGUNDO" 
150 PRINT : INPUT* QUAL A VELOCID 
ADE INICIAL QUE VOCÊ DESEJA D 
AR m/Bi": UE 

160 IF VE<1 OR VE>15 THEN 130 
170 DI-(vE*VS)/(2'FG) 
ISO CLS 

190 PRINT-SUA BOLA ALCANÇARIA", 
DI i "METROS" 

200 PRINT «449. "QUALQUER TECLA 
PARA RECOMEÇAR" 
210 IF INKEYS-"" THEN 210 
220 GOTO 10 

Para rodar o programa no TRS-80, 
modifique os números utilizados nas 
instruções PRINT® para o dobro dos 
que estão na listagem. 



fi/i 



10 CLS:COLOR 15,4.4: DEFSNG D 
20 LO CATE 5,5:PRINT*1) Bola de 
futebol e» arama longa' 
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30 LO CATE 5,7:PRINT"2) Bola de 
golfe en arama curta" 
40 LO CATE 5,9:PRINT"3) Bola de 
golfe na lua" 

50 LOCATE 5.11:PRINT"4) Bola eu 

tesa de bilhar" 
60 LOCATE 7,18:PRINT"Escolha su 
a opç3o: "i 

70 KS-INKEYS:IF KS<"1" OR KS>"4 

" THEN 70 

60 OP-VAL(KS) 

90 IF OP-1 THEN FG-4 

100 IF 0P-2 THEN FG-1.4 

110 IF 0P = 3 THEN FG- . 1 

120 IF OP-4 THEN FG- . 7 



130 CLS 

140 PRINT: PRINT" A velocidade 
em Metros por segundo pode ser 

de 1 a 15." 
150 PRINT i INPUT" Qual velocida 
de inicial <en ■/s>";VE 
160 IF VE<1 OR VE>15 THEN 130 
170 DI=(VE-VE)/<2*FG) 
180 CLS 

190 PRINT : PRINT* Sua bola perc 
orreu " ;DI ; "■etros" 
200 LOCATE 0,12:PRINT"Preasione 
qualquer tecla para recomeçar " 
210 IF INKEY3""" THEN 210 
220 GOTO 10 



10 HOME 

20 HTAB 5: VTAB 5: PRINT " 1 ) B 

OLA DE FUTEBOL EM GRAMA LONGA" 

30 HTAB 5: VTAB 7: PRINT *2) B 

OLA DE GOLFE EM GRAMA CURTA" 

40 HTAB 5: VTAB 9: PRINT "3) B 

OLA DE GOLFE NA LUA* 

50 HTAB 5: VTAB 11: PRINT "4) 

BOLA EM MESA DE BILHAR" 

60 HTAB B: VT>T 15: PRINT "ESC 

OLHA SUA OPCAO " ; 

70 GET KS: IF KS < "1" OR K5 > 



IIIIIIIIIHHH 



■■■■■lllllllll! 



altos, porque o atrito e muno pequeno 
em relação ao da grama. 

Os valores do programa para o atri- 
to e a gravidade são apenas aproxima- 
dos, não exatos. Porém, dão uma idéia 
razoável de como uma equação desse ti- 
po pode ser usada dentro de um progra- 
ma para prever a distância percorrida 
por um objeto sob diversas circunstân- 
cias. Mas ainda não pudemos visualizar 
o objeto em movimento. 




A equação apresentada calcula a dis- 
tância percorrida por um objeto, mas 
assume que não há nada no caminho de- 
le. A opção da bola de bilhar, no pro- 
grama dado, fornece um bom exemplo: 
o resultado pode ser uma distância de 
10 metros. Mas mesas de bilhar não têm 
esse tamanho: a bola rebateria nas bor- 
das da mesa. 

Ao contrário do comportamento im- 
previsível de uma bola de futebol sobre 
a grama, uma bola de bilhar reage de 
maneira muito regular quando bate con- 
tra a borda da mesa (a não ser que te- 
nha tomado um efeito giratório). Ela re- 
bate espalhando o ângulo de incidência 
(o ângulo com que a bola atinge a bor- 
da). Observando a figura da página 673, 
você entenderá melhor o que ocorre. A 
bola saiu do ponto a e moveu-se pela re- 
la tracejada até parar no ponto b. Co- 
mo você pode ver, os ângulos formados 
pela linha da trajetória da bola e uma 
reta perpendicular à borda da mesa são 
simétricos. 

Mais uma vez, a matemática aplica- 
da fornece uma equação para demons- 
trar este princípio. Com isso, podemos 
fazer um programa que simule a traje- 
tória da bola na mesa rebatendo em uma 
ou mais bordas. 

O quadro da última página deste ar- 
tigo mostra as equações que calculam as 
posições da bola após bater contra qual- 
quer uma das bordas da mesa. Embora 
pareça complicado, seu computador faz 
os cálculos muito rapidamente. 



10 BORDBR 4: PAPER 4: INK 0: 

CLS 



Os ângulos formados pela trajetória 

da bola de bilhar e uma rela perpendicular 

à borda da mesa são simétricos. 

120 LET aS-INKEY9: IF aS-"" 
THEN OOTO 120 
130 IF INKEY$«"a" AND cy>12 
THEN LET ny-cy-2: GOTO 190 
140 IF INKEYS-"<T AND cy<122 
THEN LET ny-cy+2: GOTO 190 
150 IF INKEYS="p" AND cx<236 
THEN LET nx-CX+2: GOTO 190 
160 IF INKEY3-"o - AMD cx>20 
THEN LET nx-cx-2: GOTO 190 
170 IF INKEY3-CHR3 32 THEN 
GOSUB 500: GOTO 300 
190 PL0T OVER l;cx-4.cy: DRAW 

OVER 1:8.0: PLOT OVER l;cx, 
cy-4: DRAW OVER 1;0,B 
200 LET cy-ny: LET cx-nx 
210 GOTO 110 

300 IF 1NKEYS-"" THEN GOTO 

300 
305 CLS 

310 PRINT AT 2, 5i "ALCANCE-" i 
INT (p*p«100/(lB»lB*.4)>/100 
320 PBINT AT 5,5; "VELOCIDADE I 
NICIAL--;INT (AB9 <p*100/18) ) / 
100 

330 PRINT AT 10,8; "Outra vei ? 
<a/n)" 

340 LET «9-1NXEY3: IF a3<>"a" 
AND aSO"n" THEN GOTO 340 
350 IF aS-"et- THEN CLS : GOTO 
90 

360 PAPER 7: CLS : STOP 

500 IF cx-bx AND cy-by THEN 

LET p-0: RETURN 

510 LET P-O 

515 PRINT AT 0,0:" 



"4" THEN 70 
BO OP « VAL <K3) 
90 IF OP - 1 THEN FG = 4 
100 IF 0P - 2 THEN FG - 1.4 
110 IF OP - 3 THEN FG - . 1 
120 IF OP - 4 THEN FG ■ . 7 
130 HOME 

140 PRINT : PRINT " A VELOCID 
ADE EM METROS POR SEGUNDO PO-DE 

SER DE 1 fc 15." 
150 PRINT : INPUT " QUAL A VE 
LOCIDADE INICIAL (EM M/S) " ; VE 
160 IF VE < 1 OR VE > 15 THEN 
130 

170 DI = <VE * VE) / 12 * FG) 
180 HOME 

190 PRINT : PRINT " SUA BOLA 
PERCORREU ";DIi" METROS" 
200 VTAB 12: PRINT "PRESSIONE 
QUALQUER TECLA PARA RECOMEÇAR" : 

210 GET KS 
220 GOTO 10 

O programa começa perguntando a 
respeito das condições em que se encon- 
tra nossa bola hipotética. Em seguida, 
calcula a distância que ela percorreria, 
para qualquer velocidade inicial que vo- 
cê escolher. Vários fatores — como atri- 
to, massa e gravidade — são levados em 
conta. 

A equação usada é a seguinte: 

Distância = —zzr — 
2*fg 

O v corresponde à velocidade inicial 
e fg ao valor que engloba a gravidade 
e o atrito. Obviamente, o valor de fg é 
diferente para cada uma das opções do 
programa. 



OS RESULTADOS 



A equação é solucionada na linha 160 
do programa do Spectrum ou 170 do 
dos outros micros. Você pode ver que, 
embora na equação haja uma potencia- 
ção, não há sinal dessa operação (T) na 
linha referida. Ocorre que os computa- 
dores calculam mais rapidamente somas 
e multiplicações do que potências. As- 
sim, quando o número está elevado ao 
quadrado (nosso caso), é melhor 
multiplicá-lo por ele mesmo (v*v) do 
que elevá-lo à segunda potência (v T 2). 

A opção 3 — bola de golfe na Lua 
— fornece resultados muito maiores que 
as demais porque o seu valor para fg é 
bem menor que o das outras opções, 
uma vez que a gravidade na Lua corres- 
ponde a somente um sexto da gravida- 
de na Terra. 

A última opção — a da bola na me- 
sa de bilhar, com a qual trabalharemos 
a seguir — também oferece resultados 



60 LET bX-lZB: LET by/O: LfcT 

CX-100: LET CY-112: LET nx- 

100: LET ny-112 

90 FOR n-6 TO 20: PRINT 

PAPER 7:AT n,Z:" 

"j NEXT n 
100 CIRCLE OVER l;bx.by.4 
110 PLOT OVER l;cx-4,cy: DRAW 

OVER 1 : 8 . 0 : PLOT OVER 1 1 cx , 
CY-4: DRAW OVER 1:0,8 



520 LET p-p+2: IF p-256 THEN 

GOTO 510 

530 PLOT p-1,166: DRAW 0,7: 
PLOT P.16B: DRAW 0,7 
540 IF INKEYS-CHR3 32 THEN 
GOTO 520 

550 CIRCLE OVER l;bx,by.« 

560 LET dx-cx-bx: LET dy-cy-by M 

570 LET v-p/18: LET oq-SQF (dx ■ 
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*dx+dy«dy) 

590 LET t-1 

600 PLOT bx-.5,by+.5 

610 LET vx-v«dx/sq: LET vy-v* 

dy/aq 

620 LET bx-bx+vx*t-SGN vx*.l*t 
•t: LET by-by+vy*t-SON vy*.l*t 
*t 

630 LET v-v-.l 

640 IF ABS v<.l THEN GOTO 700 
6S0 IF bx<15 THEN LET dx— dx : 
LET bx-30-bx 

660 IF bx>239 THEN LET dx— dx 

: LET bx-478-bx 

670 IF by<8 THEN LET dy--dy: 




Como variar a velocidade de simulação 
do movimento? 

Em primeiro lugar, é necessário es- 
tabelecer a distinção entre velocidade 
simulada de deslocamento da bota (ou 
de um corpo qualquer}, medida em 
cm/s ou outra unidade de velocidade, 
e velocidade real de deslocamento da 
imagem da bola na tela. 

A velocidade real com que a bola se 
deslocará na tela depende de muitos fa- 
:ores. Um deles é o tempo que o im 
pretarJor BASIC leva para resolver 
das as equações matemáticas que 
gem o modelo cinemático. Esse t€ 
po varia conforme o computador e a 
eficiência do programa. Um micro da 
linha MSX, por exemplo, é bem mais 
rápido para resolver equações do que 
um ZX-81 . Este divide o tempo total de 
execução entre UCP e manutenção da 
tela, o que retarda o cálculo, pois tor- 
na necessário o uso de SLOW para que 
a trajetória da bola seja exibida na tela. 

A eficiência do programa também é 
importante. Um número excessivo de 
substituições nas equações retarda a 
solução. Podemos, assim, aumentar a 
eficiência, usando alguns truques, co- 
mo a inclusão de poucas equações ou 
:olocação de várias delas em uma 
única linha de comando. 

É importante, ainda, considerar que 
incremento de distância nas direções 
X e Y IDX e DY) afeta o número de pon- 

. de trajetória calculados por se 
do. Quanto menores esses valores, 

is fiel será a simulação e mais 
cisos serão os resultados dos cálculos 
Infelizmente, a velocidade diminuirá 
Usar valores muito altos de DX e DY. 
por outro lado. é perigoso, pois a s 
lação pode ficar pouco realista. 



LET by-16-by 

680 IF by>127 THEN LET dy— dy 
: LET by-254-by 
690 GOTO 600 

710 IF bx<19 THEN LET bx-20 
720 IF bx<235 THEN LET bx-235 
730 IF by<12 THEN LET by-12 
740 IF by>123 THEN LET by-123 
750 CIRCLE bX,by,4: RETURN 



D 



10 PMODE 3,1:PCLS:DIH B(2),BL(2 
) .C{0) 

30 DRAVBM5 . 0C3FRFD6GLGHL2HU6E" 
:PAIMT(5.5) ,3 

40 DRAW" BM20 , 0C2D2NLR2DL3FD" 

50 GKT(0,0> - (9, 10) ,B.G 

60 OET(IS.O)- (23.5) ,C.G 

70 PCLS 4:SCBEEN 1,0 

BO LINE (18 , 58) - (230 , 1 70) . PRESET 

,BF 

90 BX-123:BY-110:CX-125:CY-112: 
NX-125:NY-U2 

100 PUT(BX.BTÍ)- (BX+9.BY+10) ,B.O 
R 

110 PUT(CX.CY)- (CX+5.CY+5) .C.OH 
120 NX-CX:NY-CY 

130 IF PEEK(341)-247 THEN NY-NY 

-2: GOTO 190 

140 IF PEEK(342)-247 THEN NY-NY 
+2 : GOTO 190 

150 IF PÍEK(343)-247 THEN NX-NX 

- 2 : GOTO 190 

160 IF PEEK(344)-247 THEN NX-NX 
+2: GOTO 190 

170 IF PEEK(345)-247 GO 8 UB 500: 
GOTO 220 
180 GOTO 100 

190 IF NX<18 OR NX>225 OR NY<58 

OR NY>165 THEN 120 
200 PUT(CX,CY)-(CX+5.CY+5) ,BL,P 
3 ET 

210 CX-NX : CY-NY : GOTO 100 

220 POT(BX.BY) - (BX+9 . BY*10) ,B,0 

RrPUT(CX.CY)- (CX+5.CY+5) ,C,OR 

230 A3-INKEY3 

240 IF INKEY5-" THEN 240 

250 CLS:PRINT Í33 , "ALCANCE-" ; IN 

T[P«P*100/(1B«18*.4) )/100 

260 PRINT 397 . "VELOCIDADE INICJ 

AL-* ; INT (ABS (P" 100/16) )/100 

270 PRINT «225, "QUER RECOMEÇAR 

(S/N) 7" 

280 A$-INKEY3:IF A$<>"3" AND AS 
<>"N" THEN 280 

290 IF A3--3- THEN SCREEN 1.0:G 
OTO 100 
300 CL8 : END 

500 IF CX-BX+2 AND CY-BY+2 THEN 

RETURN 
510 P-l 

520 P-255 AMD <P+2):POKE 345.25 
5 

530 LINE (P,0)-(P+2,6) . PSET. BF : L 
INE(P+4,0)- (255,6) , PRESET. BF 
540 SOUND P.1:IF PEEK {345) -247 
THEN 520 

550 LINE (18 , 58) - (230 , 170) , PRESE 
T.BF 

560 DX-CX-BX-2:DY-CY-3-BY 

570 V-P/16:SQ-SQR(DX*DX+DY*DY) 



580 BX-BX+4:BY-BY+5:T-1 

600 PSETÍBX+.5.BY+.5.3) 

610 yX-y*DX/SQ:VY-V*DY/SQ 

620 BX-BX+VX*T-SGN(VX)*.1*T*T:B 

Y-BY+VY*T-SGN (VY) * . 1*T*T 

630 V-y-.l:IF ABSÍVK.l THEN 70 

0 

650 IF BX<18 THEN DX--DX : BX-36- 
BX ! SOUND 5,1 

660 IF BX>230 THEN DX--DX : BX-46 
0 - BX : SOUND 5,1 

670 IF BY<58 THEN DY--DY : BY-116 
-BY: SOUND 5,1 

680 IF BY>170 THEN DY--DX : BY-34 

0-BY: SOUND 5,1 

690 GOTO 600 

700 BX-BX-4:BY-BY-5 

710 IF BX<18 THEN BX-18 

720 IF BX>221 THEN BX-221 

730 IF BY<58 THEN BY-58 

740 IF BY>160 THEN BY-160 

750 RETURN 



10 CLS:COLOR 15.15.15: SCREEN 2. 

e 

15 BX=123:BY-100:CX-123:CY-100: 
NX=CX-NY~CY 

20 RESTORE : FOR 1-1 TO B 

30 BEAD A:S13-SIS+CHR3(A) :NEXT 

40 FOR 1-1 TO B 

50 READ B:S23-S23 + CHRS(B) :NEXT 

60 SPRITES (0) -SIS 

70 SPRTTE3 O ) =S2S 

80 L1NE<18.38)-(230,170) .12.BF 

100 PUTSPRITE0. (BX.BY) ,8 

110 PUTSPRITE1 . (CX. CY) . 15 

120 KS'INKEY$:IF KS-""THEN 120 

130 IF KS-CHRSI28) THEN NX'NX+2 

:GOT0 190 

140 TF KS-CHRS ( 29) THEN NX-NX-2 

:GOTO 190 

ISO IF KS=CHR3(30) THEN NY-NY- 2 

:GOTO 190 

160 IF KS-CHR$(31> THEN NY-NY+2 
:GOTO L90 

170 IF KS-CHRS (32) THEN GOSUB 5 
00 : GOTO 220 
180 GOTO 120 

190 IF NXO80R NX>225 OR NY<)8 
OR NY>165 THEN NX-CX : NY-CY :GOTO 
120 

200 CX-NX:CY=NY:GOTO 100 

220 KS-INKEY$:IF K9= ""THEN220 

230 COLOR 15,4,4:SCREEN0:LOCATE 

5,5:PRINT"Diatância percorrida 
: - : INT (P*P»100/ (18» 18* . 4) ) 7100 
240 LOCATE 5 , 8 : PRINT*Ve locidade 

inicial : INT (ABS (P* 100/18) íl 
100 

250 LOCATE 5 , 1 1 : PRINT"Outra vei 
? (S/N) " 

260 KS-INKEYS:IF KS<>*S" AND KS 
<>"N" THEN 260 

270 IF K5-"S" THEN COLOR1.5 . 1 5 , 1 
5:SCREEN 2.0:COTO 20 ELSE CLS: 
END 

500 IF CX-BX AND CY=BY THEN RET 
URN 

510 P=l 

520 P-255AND(P+2) 

^10 LINE(P.0)-{P+2,6) .6,BF:LINE 



GRAMAÇÀOB 
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540 

D 

560 DX=CX-BXDY-CYBY 

570 V=P/ia:SQ-SOR(DX*DX+DY"DY) 

560 T-l 

600 PSET (BX»4 . 5 . BY + 5 . 5) . 15 

605 PIITSPRTTEO. (BX.BY) .8 

610 VX=V*DX/SC:VY=V*DY/SQ 

620 BX-BX+VX"T-SGN (VX) * . 1*T*T:B 

I-BY+VY"T-8GN (VY) * . 1*T"T 

630 V-V-.1:IF ABS (V)< 1THEN700 

6S0 IFBX<18THENDX— DX:BX-42-BX 

660 IFBX>222THENDX— DX:BX-444-B 



690 GOTO 600 
700 RETURN 

1000 DATA 0,28,62,1Z7,127.127.6 
2.28 

1010 DATA 0,0,8.6.62,8.8.0 



60 NEXT : POKE 232,00: POKE 23 1 

3.03 24 

80 8X - 1Z3:BY - 110:CX - BX : CY Z? 
- BY : NX - CX:NY - CY : P 



P8IHT "HAIS UMA VE 
1 AND 



10 HOME : RGR : HCOLOR- 1 : 

OT 0.0: CALL 62454 

30 FOR I - 1 TO 65 

40 READ A 

50 POKE 767 + I.A 



HCOLOR" 0: FOR I ° 30 TO 15 
0: HPLOT 30,1 TO 250,1: NEXT : 
HCOLOR- 3 

100 SCALE- Li ROT- 0: DRAW 2 A 

T CX + 4 , CY + 4 

110 DRAW 1 AT BX.BY 

120 GET AS 

130 IF AS - "K" THEN NX - NX + 

2: GOTO 190 
140 IF AS - "J" THEN NX « NX - 

2: GOTO 190 
150 IF AS - "I" THEN NY - NY - 

2: GOTO 190 
160 IF AS - "M n THEN NY - NY + 

2: GOTO 190 
170 IF AS - CHRS (32) THEN G 
OSUB 500 : GOTO 220 
160 GOTO 120 

3 90 IF NX < 30 OR NX > 250 OR 
NY < 30 OR NY > 150 THEN NX - C 
X:NY - CY: GOTO 120 
200 GOSUB 750 

210 CX - NX:CY - NY : GOTO 100 
220 VTAB 21: PRINT "DISTANCIA 
PERCORRIDA: "; INT (P * P * 100 

/ (16 » 18 « .4) ) / 100 
230 PRINT "VELOCIDADE INICIAL: 

"; INT ( ABS (P * 100 / 18) ) / 



250 GET AS. IF AS < 

AS < > "H" THEN 250 
260 IF AS - "S" THEN HOME : G 
OTO 90 

270 TEXT : HOME : END 

500 IF CX - BX AND CY - BY THE 

N RE TU RN 

510 K - 2: HCOLOR- K 

520 P - P + K : IF P - 25S THEN 

K - - 2: HCOLOR" 1 

525 IF P - 1 THEN 510 

530 HPLOT P - 1,0 TO P - l.B: 

HPLOT P.O TO P.8 

540 GET AS: IF AS - CHRS (32) 

THEN 520 
560 DX = CX - BX:DY - CY - BY 
570 V - P / 18:SQ - SQR (DX • 
DX + DY • DY) 
580 T-l 

600 DRAW 2 AT CX + 4.CY + 4: D 
RAW 1 AT BX , BY 

610 VX - V * DX / SQ:VY - V • D 
Y / SQ 

615 HPLOT BX + 4 - { 3CN (VX) 
* 6) ,BY + 4 - ( SGN (VY) ■ 6) 
620 MX - BX + VX * T - SGN (VX 
) * . 1 * 'f * T:MY - BY + VY * T 

- SGN (VY) * .1 • T • T: 
630 V - V - .1: IF ABS (V) < . I 
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1 THEN 700 

650 IF MX < 30 THEN DX = - DX 
:HX = 64 - MX 

660 IF MX > 240 THEN DX - - D 
X:MX = 480 - MX 

670 IF MY < 30 THEN DY - - DY 
:MY - 64 - MY 

680 IF MY > 140 THEN DY ™ - D 
Y : MY ■ 2B0 - MY 

690 GOSUB 750 :8X - MX : BY - MY ! 
GOTO 600 
700 RETURN 

750 HCOLOR= 0; DRAW 1 AT BX . BY 
: DRAW 2 AT CX + 4 , CY + 4: HCOL 
OR- 3: RETURN 

1000 DATA 2.0.6.0,45,0,9.45,4 
5.21.63,63,63.23,45.45,45,45,62 
,63,63.63,55.45,45,45.45,62,63, 
63 ,63, 55, 45 .45 .45 .45 , 30 .63 .63. 6 
3,14,45,45,150,0 

1010 DATA 36,36,55,54.62,63,5 
5.45.45,45,45,37,63.191.50,54,3 
9, 36.4.0 

Para o TK-2000, faça as seguintes 
modificações no programa anterior: 

10 HOME : HGR ! HCOLOR- 1 
15 FOR I - 1 TO 160: HPLOT 1.1 
TO 279,1: NEXT 

O programa desenha tim retângulo 
no meio da tela: esta é a área (ou a me- 
sa) na qual o objeto pode se mover. 



UMA MIRA MÓVEL 



No meio do retângulo há uma bola 
e, também, um cursor que pode estar es- 
condido atrás dela. No Spectrum, pres- 
sione a tecla Q para movê-lo para cima, 
A para baixo, O para a esquerda e P pa- 
ra a direita; no TRS-Color e no MSX, 
use as setas para a movimentação; no 
Apple e no TK-2000, tecle I para cima, 
M para baixo, J para a esquerda e K pa- 
ra a direita. O cursor é representado por 
uma cruz, que se move por toda a área 
disponível para indicar a direção de mo- 
vimento da bola. Quando tiver posicio- 
nando o cursor no lugar desejado, pres- 
sione a barra de espaços (ou a tecla 
SPACE, no Spectrum). 



Uma linha horizontal surgirá no to- 
po da tela, aumentando à medida que 
se mantém a barra de espaços apertada. 
O tamanho da linha mostra a força com 
que a bola será impulsionada: quanto 
maior a linha, maior a força. 

Assim que se solta a barra de espa- 
ços, o computador limpa o retângulo e 
desenha uma série de pontos que mos- 
iram a trajetória da bola. Os pontos fi- 
cam mais próximos quando a bola per- 
de velocidade. No Apple, para colocar 
a bola em movimento, é necessário pres- 
sionar uma tecla qualquer após ler de- 
finido a força. 

Tente variar a posição do cursor e 
usar diferentes velocidades na bola, pa- 
ra verificar o efeito. 



COMO FUNCIONA 



Aqui. os princípios da reflexão estão 
muito claros. Toda vez que a bola bate 
contra uma borda, ela rebate no mesmo 
ângulo com que chegou. Isso acontece 
em qualquer lado da mesa. 

O programa começa com a iniciali- 
zação de algumas variáveis e com a es- 
colha do modo gráfico adequado e das 
cores. O do TRS-Color também dimen- 
siona três veiores, define dois UDG (Ca- 
racteres Definidos pelo Usuário) e os co- 
loca nos vetores (um para a bola, um pa- 
ra a cruz e outro em branco). Nos pro- 
gramas do Apple e do MSX, usam-se 
duas formas predefinidas, uma para a 
bola e outra para a cruz. No MSX, isto 
é feito com Sprites, que são muito fá- 
ceis de definir e têm a vantagem de não 
apagar outros desenhos da tela que es- 
tejam em plano diferente. No Apple, 
utiliza-se uma tabela de formas. Não é 
tarefa simples montar uma delas sem o 
auxilio de um editor, mas o efeito final 
compensa. Para animar a figura, será 
preciso ter alguns cuidados (como apa- 
gar o desenho anterior). 

As variáveis definidas são BX, BY 
(coordenadas X e V para a bola); CX, 



CY (coordenadas para a cruz) e NX e 
NY (novas coordenadas para a cruz). 
NX e NY são as variáveis usadas para 
mover a cruz pela tela. 

Depois desses procedimentos iniciais, 
um retângulo é desenhado na tela e a ro- 
tina INKEYS ou GET, que lhe permite 
mover o cursor, entra em açâo. A roti- 
na do TRS-Color usa PEEK nas posi- 
ções de teclado, para possibilitar a au- 
to-repetiçâo das teclas. 

Além de verificar a direção em que 
o cursor se move, a rotina checa tam- 
bém se alguma tecla está sendo pressio- 
nada. Caso haja pressão sobre a barra 
de espaços, o computador vai para a 
sub-rotina 500, que verifica a posição do 
cursor: se ele está sobre a bola, a força 
é imediatamente zerada e o computador 
retorna da sub-rotina. O TRS-Color não 
precisa especificar P (a variável para for- 
ça) como 0, já que seu BASIC assume 
este valor para qualquer variável, a não 
ser que se determine algum outro. 

Todo esse procedimento tem a fina- 
lidade de evitar a ocorrência de erros, 
pois, quando o cursor está sobre a bo- 
la, o computador não sabe em qual di- 
reção deve movê-la. 

Se o cursor está numa posição váli- 
da, o fator força é definido como 0 (no 
Spectrum) ou 1 (nos outros micros). Is- 
so ocorre no momento em que a barra 
horizontal é apagada. 



TACADAS MAIS FORTES 



A variável P é incrementada (tem seu 
valor aumentado) de 2, cada vez que o 
computador detecta uma pressão na 
barra de espaços. Quando atinge o va- 
lor 255, P volta a ser 0 — e a linha hori- 
zontal, que cresce eom P, é novamente 
apagada. O computador permanece nes- 
se círculo vicioso até que a barra de es- 
paços se libere. No Apple, em vez da 
força zerar ao atingir o máximo, ela vai 
diminuindo aos poucos. 



PROGRAMAÇÃO B 
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Assim que a condição da linha 540 
deixa de ser verdadeira — ou seja, quan- 
do a barra de espaços é liberada — o 
computador continua a execução do 
programa que, neste ponto, varia um 
pouco de uma máquina para outra. O 
Spectrum e o TRS-Color apagam a bo- 
la e traçam sua trajetória. O MSX e o 
Apple mostram a bola em movimento, 
deixando um rastro em sua trajetória. 
Mais adiante, explicaremos como fun- 
ciona esta parte do programa. 

Ao terminar os cálculos e o desenho 
do caminho da bola, o computador re- 
torna para a linha 170. Em seguida, vai 
para a linha 300, no Spectrum, ou 220 
nos outros micros. 

O TRS-Color coloca a bola em sua 
nova posição e a cruz no mesmo lugar 
onde ela estava. As declarações OR que 
aparecem no fim de cada PUT evitam 
que a bola ou a cruz apaguem alguma 
coisa (pontos) da tela. 

O computador espera que uma tecla 
seja pressionada para, então, apagar a 
tela e mostrar a velocidade inicial da bo- 
la e a distância percorrida. Em seguida, 
oferece mais uma tentativa. O Apple, 
novamente, apresenta uma diferença: a 
tela não é apagada, pois as informações 
são mostradas na janela de texto (últi- 
mas quatro linhas) da tela de alta re- 
solução. 

Como mostra a figura da página 653, 
para prever a direção que um objeto to- 
mará após bater numa borda, basta es- 
tudar o ângulo com que atingiu a pare- 
de. Infelizmente, os computadores não 
dispõem de nenhum recurso para medir 
ângulos direiamente, precisando recor- 
rer a uma equação. 



CÁLCULO DAS COORDENADAS 



Cada um dos programas define va- 
riáveis para as posições da bola e da cruz 
(há, de fato, dois conjuntos de coorde- 
nadas para a cruz, mas apenas um é usa- 
do aqui). O computador necessita de um 



outro conjunto — que contém a diferen- 
ça entre as posições da cruz e da bola. 
De posse desses dados, pode calcular a 
direção da bola. 

As variáveis que indicam a diferença 
entre as posições são DX e DY, calcu- 
ladas na linha 560. 

O programa utiliza muitas outras va- 
riáveis para os cálculos. O valor de V, 
variável usada para a velocidade inicial, 
é uma proporção da força que foi esco- 
lhida para impulsionar a bola (o valor 
exato desta proporção varia um pouco 
de um micro para outro, em razão de 
diferenças da tela). 



A variável SQ iguala-sc á raiz quadra- 
da de (DX*DX + DY*DY). Esta é, na 
realidade, a distância entre a cruz e a bo- 
la, distância que é calculada por meio 
do teorema de Pitágoras, que estabele- 
ce que, para qualquer triângulo retán- 
gulo, o quadrado da hipotenusa (como 
é denominado o lado maior do triângu- 
lo) é igual à soma dos quadrados dos 
catetos (nome que recebem os outros 
dois lados). 

A variável T corresponde ao intervalo 
de tempo usado nas equações. Se seu va- 
lor for maior, o programa Funcionará 
mais rapidamente, porém, menos pon- 
tos serão traçados: como a razão entre 
o tempo e a distância fica menor, o nú- 
mero de pontos também diminui. Assim 
que se determina o intervalo de tempo, 
o computador começa a traçar os pon- 
tos da trajetória. 

Em seguida, o programa utiliza mais 
duas variáveis para os cálculos. São os 
valores para a velocidade, nos eixos X 
e Y (ou horizontal e vertical). Em ou- 
tras palavras, VX contém a velocidade 
com que a bola se desloca horizontal- 
mente e VY, a velocidade de seu deslo- 
camento vertical. As duas variáveis po- 
dem contar valores negativos: nesse ca- 
so, a bola se desloca da direita para a 




UTILIZAÇÃO DE MODELOS 
DINÂMICOS 

Para quem não gosta muito de ma- 
temática ou física, pode parecet que os 
programas deste artigo não têm mui- 
tas aplicações práticas. Na verdade, es- 
tas são numerosíssimas. 

Qualquer pessoa que tenha a aspi- 
ração de se tornar um programador 
competente — sobretudo nas áreas de 
jogos e programas educativos — pre- 
cisa conhecer bem o mecanismo de si- 
mulação de modelos dinâmicos. 

Veja, abaixo, alguns exemplos do 
que você pode fazer usando como ba- 
se os programas deste artigo: 

• um programa que simule um jogo de 
bilhar. Com o jovstick ou o teclado, o 
jogador orienta o ângulo e a força de 
batida de um taco. 

• um jogo de fliperama. 

• um programa educativo que mostre 
como as moléculas se deslocam em um 
recipiente, colidindo continuamente 
umas com as outras. Quanto maior a 
densidade da matéria (por exemplo, 
densidade de gás), maior o número de 
colisões. Colisões geram calor; assim, 
a temperatura do gás pode ser estima- 
da a partir de sua densidade ou pres- 
são (esta é uma das leis fundamentais 
da física). 

• um programa educativo para de- 
monstrar o efeito de diferentes coefi- 
cientes de atrito, ou diferentes valores 
da força de gravidade sobre a movi- 
mentação livre de uma bola. 



esquerda (para VX) ou de baixo para ci- 
ma (para VY). 

O valor dessas duas variáveis é cal- 
culado, como se pode verificar na linha 
610, multiplicando-se a velocidade (V) 
pela variável DX (ou DY) e dividindo-se 
o resultado pela distância entre o cen- 
tro da bola e o centro da cruz (variável 
SQ). 
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Jlxc-xb) 1 + [yc-ybl* 



3 



bola e do cursor elevada ao quadrado, 
somada á diferença das coordenadas 
Y da bola e do cursor elevada ao 
quadrado. 

As duas equações seguintes calcu- 
lam as novas coordenadas X e Y. Veja: 



A nova posição da bola é calculada 
adicionando-se um número à antiga 
coordenada X e Y. Para calcular o nú- 
mero a ser adicionado, multiplica-se a 
velocidade no eixo X ou Y pelo tempo 
e, então, subtrai-se uma pequena fra- 
çâo de T ao quadrado, para levar em 
conta a desaceleração. 

A velocidade é diminuída de uma pe- 
quena quantidade (O.ll e, antes de se 
reiniciar o loop, marca-se a nova posi- 
ção da bola. 



Como calcular a velocidade da bola 
O programa recorre a várias equa- 
ções para calcular a nova posição da 
bola e sua velocidade. As equações do 
diagrama separam a velocidade em 
suas componentes, com a projeçào nos 
eixos Xe Y.O computador resolve es- 
sas duas equações para cada posição 
da trajetória da bola, porém, sob uma 
forma um pouco diferente da que foi 
apresentada aqui. As constantes 
(Xc-Xbl eiyc-Xbl são substituídos 
no programa por DX e DY. Com elas. 
o computador calcula então a nova ve- 
locidade a cada ponto, levando em con- 
sideração a desaceleração. 

Como mostra a fórmula, ele multi- 
plica a diferença entre as coordenadas 
X e Y da bola e do cursor pela veloci- 
dade real. e divide o resultado pela li- 
nha de baixo da razão: a raiz quadrada 
da diferença entre as coordenadas X da 



A NOVA POSIÇÃO DA BOLA 



Neste ponto, o seu micro já dispõe de 
todos os valores necessários para calcu- 
lar a nova posição da bola. A linha 620 
faz esse cálculo para os novos valores de 
BX e BY. 

O cálculo para cada uma das coor- 
denadas é o seguinte: 
BX - BX+VX"T-3MG(VX)*.1«T«T 

Embora pareça complicado, não é. A 
fórmula adiciona um valor a BX (ou 
BV) para encontrar a nova coordenada. 
O número pode ser negativo, dependen- 
do da direção em que a bola se deslo- 
que. Em vários pontos desta parte do 
programa para o Apple, você irá encon- 
trar as variáveis MX e MV em lugar das 
variáveis BX e BV, porque o computa- 
dor precisa das coordenadas antigas da 
bola para poder apagá-la, antes de 
desenhá-las em sua nova posição. 

O primeiro passo é adicionar a BX à 
distância que a bola percorre. Esta dis- 
tância é avaliada em dois estágios. Ini- 
cialmente, multiplica-se a velocidade pe- 
lo intervalo de tempo. Lembre-se de que 
a velocidade nada mais é do que a dis- 
tância percorrida dividida pelo tempo 
gasto. Assim, para calcular a distância, 
basta multiplicar a velocidade pelo 
tempo. 

Infelizmente, o programa precisa fa- 
zer um ajuste, pois as velocidades dadas 
pelas variáveis VX e VY não são iguais 



ã velocidade real da bola em movimen- 
to — cada uma delas corresponde à ve- 
locidade de deslocamento em um eixo 
(horizontal ou vertical). Isso explica o 
estranho cálculo no fim da fórmula, en- 
volvendo o sinal de VX e uma fração de 
T ao quadrado. 

A função SGN fornece o resultado 1 , 
-I ou 0, conforme o argumento (núme- 
ro dentro dos parênteses) seja positivo, 
negativo ou zero. Ela é usada aqui para 
que se possa, empregando a mesma fór- 
mula, subtrair o valor .1*T*T do termo 
anterior, no caso da velocidade no eixo 
ser negativa, ou somá-lo, no caso da ve- 
locidade ser positiva. 

O resultado após cálculos desta linha 
corresponde à nova coordenada (para o 
eixo X ou Y) da bola. O cálculo é feito 
para os dois eixos. 



COMO DESACELERAR 



O programa diminui a velocidade de 
0. 1 e checa se ela é menor que 0. 1 . Em 
caso afirmativo, o micro vai para o fim 
da rotina, que é explicado abaixo. Em 
caso negativo, quatro linhas são usadas 
para verificar se alguma das bordas foi 
atingida no caminho para a nova posi- 
ção (utilizam-se quatro IF...THEN pa- 
ra checar se as novas coordenadas estão 
caindo fora dos limites da mesa). Se a 
bola bate contra uma das bordas, o va- 
lor da variável DX (ou então DY, con- 
forme a borda atingida tenha sido a su- 



perior ou a inferior) è igualado a menos 
DX. 

Os valores de BX e BV também são 
alterados, de modo a colocar a bola na 
posição correia. Os números subtraídos 
das coordenadas antigas são o dobro 
dos limites da mesa. Assim, a maior 
coordenada da mesa no Spectrum é 127, 
o que significa que, toda vez que a bola 
encontra a borda superior, BX fica 
254-BX (254 c o dobro de 127). 

Depois das checagens, o computador 
calcula o próximo ponto. O fim da ro- 
tina, alcançado quando a velocidade se 
torna menor que 0. 1 , verifica se a bola 
não vai ser desenhada sobre a borda, an- 
tes de desenhá-la na tela. 

Algumas das coordenadas usadas 
nesta verificação são diferentes daque- 
las usadas na anterior, porque o que vai 
ser desenhado é uma bola e não um pon- 
to — e, é claro, a bola ocupa muito mais 
espaço. Assim, as coordenadas necessi- 
tam de algum ajuste. 



SUGESTÕES 



Você pode dar vários usos ao progra- 
ma aqui apresentado. Uma ideia é 
transformá-lo em um jogo de snooker. 
Se esta for sua opção, bastará acrescen- 
tar algumas caçapas, para que as bolas 
caiam dentro, e uma rotina de contagem 
de pontos. Outra possibilidade é apro- 
veitar esse programa para um jogo de 
squash, ou algo do tipo, 
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UMASSEMBIEI 



MODIFICAÇÕES QUE DEVEM SER 
FEITAS NO PROGRAMA DOMSX 
CARACTERÍSTICAS 



DOS PROGRAMAS ASS EMBLY 
FUNCIONAMENTO DOASSEMBLER 



Com algumas modificações, o programa 
Assembler que apresentamos 
anteriormente para o MSX servirá 
também para os usuários do TRS-80. 
Veja aqui as adaptações necessárias. 



Traduzir mnemónicos para código de 
máquina certamente é uma tarefa bas- 
tante cansativa. E, além de trabalhoso, 
colocar os códigos usando o monilor de 
seu TRS-80 pode dar origem a muitos 
erros — fatais, quando se trata de lin- 
guagem de máquina. 

Neste artigo, você verá como utilizar 
o computador para fazer esse serviço. 
Com algumas modificações, o progra- 
ma que publicamos anteriormente para 
o MSX servirá também para o TRS 
Ele se destina a sistemas com 48K de me 
mõria, sendo que as funções de grava 
ção e leitura dos programas em lingua 
gem Assembly só funcionam em siste 
mas com disquetes. As outras funções 
do Assembler funcionarão normalmente 
em sistemas com fita cassete. 

Como o programa foi escrito em BA- 
SIC, ele é um tanto lento, levando alguns 
minutos para montar um programa lon- 
go. Contudo, funciona muito bem. 

Digite o Assembler para o MSX apre- 
sentado no artigo da página 401, com 
as seguintes modificações: 



5000 CLS:PRINT«468,"Um instante 
. por £avor":CLEAR 500:DIM KS U 
10) ,K(110) ,K(110) :HS""012345678 
9ABCDEF" :GS-"0123456789abcdef " 
5200 CLS:PRINTe86,"ASSEMBLER":P 
BINT : PRINTTAB (16) ' (c) carregar 
do dlBCO":PRINT:PRINTTAB(16)"< 
9) gravar no disco" : PRINT : PRIN 
TTAB(16)"(e) editar linha":PRI 
NT i PRINTTAB (16) " (m) montar " : PR 
INT : PRINTTAB (16) " (a ) apagar li 
nha* : PRINT : PRINTTAB (16) " { 1 ) li 
■tar* 

5210 AS-INKEYS:IFAS-""THEN5210 
5220 JJ«INSTR("cgemal",A3) 
5230 IFJJ-0THENPRINT"<"AS"> ?7? 
•:FORJ=lTO500:NEXT:G0TO5200 
5240 CLS:ONJJGOSUB10420, 10450,1 



5260 AS"INKEYS:IFAS-"*THEN5260 

5270 GOTO 5200 

10420 lNPUT"Nome do arquivo ";A 
R3 

10430 CLS:PRINTe46S. "Carregando 



programa fonte 
10440 OPEN-I- .1 .AHS; INPUTÍl ,N:F 
0RJ=1T0N:INPUT*1.T3(J) : NEXT : CLO 
SEI : RETUHN 

10450 INPUT"Nome do arquivo " ;A 
RS 

10460 CL3- PRINT6466. "Gravando p 
rograma fonte" 

10470 OPEN"0".l,AAS:PRlNT*l,N:F 
0RJ-1T0N:PRINTH,CHRS(34) ;TS(J) 
;CHRS(34) : NEXT : CLOSE1 ! RETURN 
10490 PRlNT"Qual o nuaero da li 
nha (múltiplo de 10) " ; 
10500 INPUTK;CLS 

10510 K2-K/10 ■ IFK2>NTHENK2=N+1 ■ 

N-N+l :TS (K2) -" * : PRINT8960 . " " 

10520 IFK2<.1THENK2=.1 

10530 IFK2-INT(K2)THEN10550 

10540 K2=INT(K2)+l:FOR K3-NTOK2 

-1STEP-1 :TS(K3+1)-TS(K3) : NEXT : N 

=N+1:T3(K2)-"" 

10550 P1-16326:P0-P1 

10560 PRINTe896,K:TAB(6)T3(K2)+ 

STRING$(20,32) ;P9-P0+LEN(TS(K2) 

) 

10570 IFPKP0THENP1-P0 

10580 IFP1>P9THENP1-P1-1 

i0590 FOR I— 1 TO l:POKE Pl+I . 3 

2- (1-0) *99 :NEXT I 

10600 P7-0:AS-INKEX$:IFA$-""THE 

N10600 

10610 IFAS-CHRS(13)THEN10700 
10615 IFAS-CHRS (27 ) THENRETURN 
10620 IFAS-CHRS(9)THENP1-P1+1:G 
OTO10580 

10630 IFAS-CHRS(8)THENP1-P1-1:G 
0TO10570 

10640 IFAS-CHRS(10)THENAS-"":GO 
TO10670 

10650 IFAS-CHRS(91)THENA$-" "+M 
IDS(TS(K2) .Pl-PO+1,1) :P7— l:GOT 
010670 

10660 IFAS<" "THEN10600 

10670 IFPl-P0+l>LEN(TS(K2))THEN 

TS(K2)-LEFT3(T3(K2) ,P1-P0)+AS:G 

OT010690 

10680 TS(K2)=LEFTS(TS(K2) .P1-P0 



) *A$+RIGHT$ (TS (K2) , LEN (T$ (K2) ) - 
P1+P0-1) 

10690 P1-P1-(LEN(AS)>0)+P7:GOTO 
10560 

10700 PRINTe64."":K-K+10;G0TO 1 
0510 

10710 IFN-0THENCLB i PR INT" Nada a 

apagar" : RETURN 
10720 CLS:PRINT"Qual o numero d 
a linha (múltiplo de 10) "; 
10730 1NPUTK:K2-K/10 
10740 IFK2>N0RK2<10RK2OINT(K2) 
THENPRINT" Esta linha nao existe 
": RETURN 

10750 K-K2;FORK3-K2TON:TS(K3)-T 
3(K3+1) :NEXT:N-N-l:PRINTei90.K« 
10;" "|TS(K) ■ RETUHN 
10760 IFN"0THEN PR INT "Nada a lis 
tar" : RETURN 

10770 PRINT"Quais oa nuieroa da 
primeira e da ultima linha (mu 
ltiplos de 10) "i 

10780 INPUTK.K2:K-INT(K) : K2-INT 

(K2) :K1-K/10:K2-K2/10 

10790 IFK2>NTHENK2-N 

10800 IFKK1THENK1-1 

1OB10 IFK2<K1ANDK2'NTHENRETURN 

10820 IFK2<KlTHENCLS : PR INT "Nume 

ron de linha inval idos" :GOTO 10 

770 

10830 CLSrPRINT#192, :FORK3-KlTO 
K2:PRINTK3*10" "T$(K3):NEXT 
10840 RETURN 

Algumas das linhas do programa — 
a 5450 e a 5750, por exemplo — são 
muito longas e podem dar problemas no 
momento de digitação. Para evitar que 
isso ocorra, digite as linhas exatamente 
como estão impressas, sem incluir espa- 
ços entre os comandos. Se mesmo assim 
o computador não aceitar uma linha de- 
vido ao seu tamanho, aperte ENTES, fa- 
zendo o começo da linha ir para a me- 
mória. Em seguida, edite a linha usan- 
do o comando X da edição. 

Observe que nas linhas 5030, 5050, 
5390 e 5500 encontram-se quatro carac- 
teres em branco entre aspas; nas linhas 
5660 e 5770, três. 

Antes de montar o programa, prote- 
ja o topo da memória do computador 
para ali colocar os códigos. Faça-o lo- 
go que ligar a máquina — ou ativar o 
BASIC— .respondendo adcquadamen- I 
te à pergunta "Memória usada?". 




UTILIZAÇÃO DAS ROTINAS DA ROM 
NO SEU PROGRAMA EM ASSEMBLER 

O Assembler é mais elementar do 
que o BASIC e outras linguagens de 
programação de alto nível. No entan- 
to, é muito difícil utilizá-lo, mesmo pa- 
ra a programação de tarefas simples, 
pois ele exige que todas as operações 
da UCP, da memória, e de entrada/sal- 
da sejam especificadas da maneira 
mais minuciosa possível. 

Mas existe um recurso capaz de ali- 
viar esse cansativo trabalho: chamar as 
rotinas prontas que existem na memó- 
ria ROM do computador. 

Os micros da linha TRS-80 dispõem 
de um sistema operacional elementar 
e de um interpretador BASIC, ambos 
gravados na memória ROM. Esses pro- 
gramas contêm centenas de rotinas de 
operação do computador, que podem 
ser chamadas pelo comando JSR (des- 
vio para sub-rotinal, seguido do ende- 
reço onde elas começam, 

Em geral, cada rotina necessita de 
um ou mais argumentos de entrada, e 
devolve um ou mais argumentos de saí- 
da. Os registros de intercambio de da- 
dos variam, mas comumente são os 
pares de registros internos do Z-80, co- 
mo o HL e outros. Para utilizar as roti- 
nas da ROM, você precisará, portanto, 
de um "mapa da mina". Existem vá- 
rios livros que fornecem todos os en- 
dereços e argumentos. 



COMO USAR 0 PROGRAMA 



Ao executar o Assembler, um menu 
será exibido na tela. Para digitar um 
programa em Assembly tecle "e". No 
TRS-80, é necessário pressionar ao mes- 
mo tempo as teclas SHIFT e @ (arro- 
ba) para usar as letras minúsculas. O 
computador perguntará, então, o núme- 
ro da linha. Cada instrução deve ficar 
em uma linha numerada, como aconte- 
ce também no BASIC. Os números das 
linhas precisam sempre ser múltiplos de 
10 e apenas um mnemónico Assembly 
com seus respectivos operandos deve ser 
introduzido em cada uma delas. 

A primeira linha de um programa em 
Assembly especifica a origem ou ende- 
reço inicial do programa em código. Is- 
to è feito pelo comando org, de modo 




O que é um Disassembler? 

Como o próprio nome indica, o Di- 
sassembler executa uma função opos- 
ta ao Assembler — ou seja, enquanto 
o Assembler é um programa que traduz 
códigos mnemónicos (simbólicos) em 
código de máquina (números binários, 
diretamente executáveis pela UCP). o 
Disassembler reconstitui o programa 
em linguagem Assembly. 

Como funciona um programa Disas- 
sembler? Da mesma maneira que no 
programa Assembler listado neste ar- 
tigo, a base do processo de tradução 
é uma tabela. Só que o processo de 
desmontagem (disassembler] é mais 
complexo do que o de montagem, já 
que diversas instruções elementares do 
microprocessador Z-80 requerem dois 
ou mais bytes para serem totalmente 
armazenadas (ou seja, código de ope- 
ração, mais operandos ou argumen- 
tos]. Como o significado de um deter- 
minado byte na memória é diferente 
conforme o ponto da instrução em que 
ele se encontra, a ordem de leitura do 
programa em código de máquina é mui- 
to importante para o Disassembler. 
Uma única falha de interpretação de 
um byte invalidará toda a desmonta- 
gem até o final do programa. 

O Disassembler não é um programa 
fácil de ser desenvolvido, principalmen- 
te em BASIC- Mas existem diversos 
programas Disassembler comercial- 
mente disponíveis para o TRS-80. 



que a primeira linha de seu programa fi- 
cará mais ou menos assim: 

10 org -10000 

Se os mnemónicos não forem escritos 
em letras minúsculas e os números não 
estiverem todos situados entre -32768 
e 32767, haverá erro na execução do 
Assembler. 

Os mnemónicos empregados seguem 
o padrão Z-80, com exceção de ret. Usa- 
do sozinho, este comando é aceito nor- 
malmente. Porém, nos casos de retor- 
no condicional — rei nz, por exemplo 
— devemos usar ris em seu lugar. 

Números hexadecimais precisam ser 
precedidos do sinal $; números binários, 
do sinal %. Números que não tenham 
sinal na frente serão interpretados co- 
mo decimais. 

Qualquer palavra que não correspon- 
da a um mnemónico será interpretada 
como um rótulo. Evite palavras pareci- 
das ou números. 

Programas Assembly devem terminar 
com end, comando que indica o final da 
listagem. 

Para editar uma linha — antes de 
apertar ENTER — utilizam-se as setas 
do teclado: "direita" e "esquerda" mo- 
vem o cursor ao longo da linha; "para 
baixo" é usada para inserir e "para ci- 
ma", para apagar caracteres. A edição 
das linhas é bem lenta. Muitas vezes, os 
caracteres digitados demoram a apare- 
cer no vídeo. 

Para sair do modo de edição, pres- 
sione simultaneamente as teclas SHIFT 
e "seta para cima". Elas devem substi- 
tuir o ENTER, pois, se o utilizarmos de- 
pois que tivermos digitado a última li- 
nha, uma linha em branco será incorpo- 
rada à listagem. 

De volta ao menu, pressione "1", pa- 
ra obter uma listagem do programa em 
Assembly na leia. 

Se houve algum erro durante a intro- 
dução do programa, volte ao menu e 
pressione "e"| em seguida, forneça o 
número da linha que deseja mudar. 

Se quiser inserir uma linha entre duas 
já existentes, digitc-a usando um núme- 
ro intermediário, no modo de edição. 
Quando listar o programa, verá que ele 
foi renumerado e que a nova linha ocu- 
pa o lugar certo. Porém, apenas uma li- 
nha pode ser introduzida dessa maneira 
de cada vez. 

Para apagar uma linha, volte ao me- 
nu, tecle "a" e forneça o número da li- 
nha que quer eliminar. 

Quando estiver satisfeito com o pro- 
grama Assembly (programu-fonte), vol- 
te ao menu e tecle "m" para que ele se- 
ja montado na memória. Ao mesmo 



tempo, o computador fornecerá uma lis 
tagem dos códigos hexadecimais equiva 
lentes: o programa-objeto. 

Uma vez montado o programa, o en- 
dereço final da rotina em código apare- 
cerá na tela. Se for detectado algum er- 
ro durante a montagem, volte ao menu 
e edite a linha correspondente, repetin- 
do, então, a montagem. 

A opção "g" do menu grava o 
programa-fonte — os mnemónicos, por- 
tanto — em disco. A opção "c" faz a 
operação inversa. 

Para gravar em fita cassete o progra- 
ma que acaba de ser montado, você de- 
ve teclar RESET. Contudo, não pressio- 
ne por muito tempo, nem mais de uma 
vez, sob pena de perder o programa- 
objeto e entrar no monitor de linguagem 
de máquina do TRS-80. Nos sistemas 
sem disquete não há como gravar o 
programa-fonte em Assembly. 

Para executar o programa em códi- 
go, use as instruções DEF USR e A = 
USR(0) (veja artigo da pág. 88). 
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Figura da mitologia grega, o rei Midas 
recebeu de Dioniso {deus do vinho) 
o poder de transformar em ouro tudo o 
que tocava. Em nosso jogo, porém, 
as coisas não serão assim tão fáceis. 



A primeira parte deste jogo apresen- 
tou opções como "Pesquisa e Desenvol- 
vimento", "Levantamento Geológico", 
"Cavar mais 200 m", "Vender Ouro no 
Mercado" e "Passar a Vez". As sub- 
rotinas que se seguem completam o pro- 
grama, particularizando cada opção. 

A opção "Pesquisa e Desenvolvimen- 
to" é obtida por meio da tecla 1; "Le- 
vantamento Geológico" é a opção 2; 
"Cavar mais 200 m", a opção 3; "Ven- 
der Ouro no Mercado", a opção 4. A 
quinta opção cuida de "Passar a Vez", 
de forma que nenhuma rotina especial 
é necessária. As opções 1, 2 e 4 intro- 
duzem um elemento de acaso em seu re- 
sultado, tentando, assim, imitar a rea- 
lidade do trabalho de mineração. 



PESQUISA E DESENVOLVIMENTO 




1000 BORDER 6: PAPER 6: INK 0: 

1010 PRINT PAPER 1; IKK 6;AT 3 
,4;" PESQUISA E DESENVOLVIMENTO 
" ; AT 4,6i"(para reduzir os cus 

ÍOS)" 

1020 PRINT AT 7.4;"Quanto prete 
nde investir? (3)': INPUT rd 
1050 LET a{su4)-a(»,4)-INT (rd* 

.05)-l 

1060 IF aí», 4X0 THEN LET a(», 
4)-0 

10B0 LET a{».2)-a(».2)-rd: LET 

*(a,l)-a(a,l>-rd 
1100 PRINT AT 13.3;"Os custos d 
e mineração foram" ; TAB 3; "reduz 
idoa eu $";INT (rd*.05)+l;" por 

200 di- 
IUO FOR z-1 TO 300: NEXT z 
1120 RE TU RN 

fm 

1000 COSUB 1500 

1010 LOCATE 1.0: PRINT 'Pesquisa 
e Desenvolvimento* : LOCATE 1,1: 



PRINT " (para reduzir oa custos 
) " 

1020 LOCATE 0.3:PRINT "Quanto P 

retende": INPUT "investir "iRD 

1030 IF RDOO THEN 1000 

1050 A<M,3)-A(M.3)-INT(RD/20)-l 

1060 IF A(M,3)<0 THEN A(M.3)-0 

1080 A(M,1)-A<M.1)-RD:A(M.0)-A< 

M.0Í-RD 

1100 PRINT:PRINT "Os custos de 
■ineraçSo f oras" : PRINT "reduzi d 
os ea S";INT(RD/20)+l;"por 200 

1110 FOR Z-1 TO 2000:NEXT 
1120 RETURN 

I]@ 

1000 HOME 

1010 VTAB 1: HTAB 5: INVERSE : 



■ 


ADICIONE AS ROTINAS 


QUE FALTAVAM 


■ 


LEVANTAMENTO GEOLÓGICO 


■ 


ESCAVAÇÕES 


■ 


GRÁFICOS ILUSTRATIVOS 



PRINT " PESQUISA E DESENVOLVI» 
ENTO NORMAL : PRINT : PRIHT 

TAB ( 10) "P/REDUZIR OS CUSTOS" 
1020 PRINT : PRINT : INPUT 'QU 
ANTO PRETENDE INVESTIR " ; RD 
1030 IP RO < 0 THEN 1000 
1050 A<M,3) - A<M,3) - INT (RD 

/ 20) - 1 
1060 IF A(M,3) < 0 THEN A(M,3) 

- 0 

ÍOSO A(M.l) - AÍM.li - RD:A(M,0 
) - A(H.O) - RD 

1100 PRINT : PRINT "OS CUSTOS 
DE MINERAÇÃO FORAM REDUZIDOS": 
PRINT "EM S"i INT (RD / 20) + 1 

POR 200 M" 
1110 FOR Z - 1 TO 2000: NEXT 2 
1120 RETURN 61 
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1000 CL8 

1010 PRINT t2,'pMqulfl* « danen 
volvlMnto' :PBIHT «34,' (PUA RE 
DUZIR OS CUSTOS) * 

1020 PRINT :INPUT"QUAKTO PRETEND 

I INVESTIS " i RD 

1030 IF RIXO TH EM 1000 

1050 A{M.3)-A(M,3)-INT(RD/20)-l 

1060 XF A(K,3)<0 TH EH A<H,3>-0 

1080 A(H,1)-A(H.1)-RD:A(N.0)-A( 

H.0)-RD 

1100 PRINT #257 , "08 CUSTOS DE H 
IMERACAO FORAM REDUZIDOS EM 
•iIHT(RD/20)+l;'POR 200 M" 
1110 FOR 2-1 TO 2000:NEXT 
1120 RETURN 

No programa do Spectrum, a linha 
1000, além de limpar a tela, muda suas 
cores. Nos demais computadores, as co- 
res da tela permanecem as mesmas após 
a limpeza do vídeo. 

Alinha lOlOcoloca um rótulo no al- 
to da tela, antes que a linha 1020 per- 
gunte ao Jogador quanto dinheiro será 
investido em pesquisa e desenvolvimen- 
to (RD, ou rd 'no Spectrum, contém a 
quantia escolhida). 

A linha 1050 diminui o custo de mi- 
neração de acordo com a quantia inves- 
tida no processo de pesquisa. A linha 
1060 assegura que o custo de produção 
não se torne negativo. A linha 1080 acer- 
ta o saldo total e a quantia do jogador, 
de acordo com o que foi gasto em "Pes- 
quisa e Desenvolvimento". 

A linha 1100 informa qual foi a redu- 
ção de custos por 200 m de escavação. A 
linha 1110 contém um laço FOR...NEXT 
que provoca uma pequena demora antes 
que a sub-rotina lermine. 



LEVANTAMENTO GEOLÓGICO 




2000 PAPER 4: BORDER 4: INK 0: 

2030 LET r(»)-0: LET c(»,l)-INT 
<RND*90)+10: LET c<».2)-INT {( 
RND«5)+2>*200: LET c(m.3)-INT ( 
RND*200)+1: LET 11-INT { HND" 3 ) - 

X 

2050 LET c(B.4)=c(*,2>+ll"200 
2070 LET c(».5)-0: LET kk-INT ( 
RND*100): 1F kk<C<«,l) THEN LE 
T c(«,5)-l 

2080 PRINT PAPER 6; IKK 0;AT 2 
,5i" LEVANTAMENTO GEOLÓGICO 
PRINT AT 5 , 5 ; "Probabil idade de" 
: PRINT AT 6 . 5 ; "encontrar ouro: 
";c(«,l) ;"*": PBINT AT 
8,5; "Provável profundidade: ";c 
(a,2)i"a"i PRINT AT 10,5;"Prova 
vel quantidade : ";c(n f 3);"kg" 
2100 LET l-INT (RND"1 50000) : LE 
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T a<«,2)-a(«,2)-z: LET a(»,l)-a 
<»,l>-z 

2110 PRINT FLASH 1 ; AT 12,0;"De 
se ia começar a escavar (a/n) ?" 
2120 LET r3-INKEYS: IF r$-"" TH 
EN GOTO 2120 

2130 IF rS-"s" THEN LET a(m.6) 
-0: LET r(«)=l: GOTO 3000 
2500 RETURN 



2000 GOSU8 1500 

2030 R(M)-0:C(M,0)-INT(RND(1)*9 

0) +10:C(M,l)-INT(BNDU) «5+2) "20 
O:C(M,2)-INT(BND(l)*2O0+l) :LL-I 
NT<RNDU)*3)-1 

2050 C(M,3)«C(M.1)+LL«200 
2070 C(M,4)-0:KK-INT(BND(1)"100 
):IF KK<C{M.0) THEN C(M,4)-1 
2060 LOCATE 3,0:PRINT "Levanta» 
ento Geol<Jgieo*:PBINT;PBINT "Pr 
obabl 1 idade de" : PBINT "encontra 
r ouro: " ;C(M,0) 

2090 PBINT : PRINT "Provável *: PRI 
NT "profundidade r " ;C(M, 1) :P 
RINT : PBINT "Provável " : PBINT "g,u 
antldade:";C{M.2) i"ko" 
2100 Z-INT(150000!*RND(1)) :A<M, 

1) -A(M.1)-Z;A(M,0)-A(M,0)-Z 
2110 PRINT • PRINT "Deaeja coaeça 
r aa": PBINT "eacavaçoen (S/N) ? 

2120 R$-INKEY$:IF R30*S" AND B 
$<>"N" THEN 2120 

2130 IF BS-"S" THEN AÍH,5)-0:B( 
M)-l:GOTO 3000 
2500 RETUBN 



ai 



2000 HOME 

2030 B (M ) - 0:C(M.O) - INT ( B 
ND (1) » 90) + 10:C(M,1) - 200 
* INT ( RND (1) * 5 + 1):C(M,2 
) - INT ( BND (1) « 200 + 1) :L 
L - INT í BND <1) * 3) - 1 
20S0 C(M,3) - C(M.l) + LL * 200 
2070 C(M, 4) - 0:KK - INT ( BND 
(1) * 100): IF KK < C(M,0) THE 
N C(M.4) - 1 

2080 VTAB 1: HTAB 7: INVERSE : 
PRINT " LEVANTAMENTO GEOLÓGICO 
": NORMAL : PBINT : PRINT ! PR 
INT "PROBABILIDADE DE* : PRINT " 
ENCONTRAR OURO: " iC (M,0) ( * t* 
2090 PRINT ! PRINT " PROVÁVEL P 
ROFUNDIDADE: ";C(M,D;" M* : PRI 
NT : PRINT "PROVÁVEL QUANTIDADE 
: "iCíM.Zíl" KG" 

2100 Z - INT ( RND (1) * 15000 
0):A(M.l) - A(M,1) - Z:A(M,0) - 

A(M,0) - Z 
2110 PRINT [ PRINT "DESEJA COM 
ECAR AS ESCAVAÇÕES (S/N) ?" 
2120 GET R3 

2130 IF RS - "S" THEN A<M,5) - 

0:B(M) - lU GOTO 3000 
2500 RETURN 
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2030 B(M)-0:C<N,0)-RND(90)«-9:C( 

H,l)-(RMD(5)+l)«2O0:C(H.2)-RMD( 

200) :LL-BND(3)-2 

2050 C(H.3)-C(M,1)+LL«200 

2070 C(M,4)-0:KK-RND(100)-1:IF 

KK<C(H.O) TH EH C|M,4>-1 

2080 PRINT «5, "LEVANTAMENTO OEO 

LOOICO VPRINT # 129. -RROBABIL .D 

E ENCONTRAR OURO* ; C (M . 0 I i " t" : PB 

INT «193, "PROVÁVEL PROFUNDIDADE 

";C<N.D ;"H" :PRINT 9257, "PROVA 
VIL QUANTIDADE " íC (H. 2) i "KG" 
2100 Z-RND(150000)-1:A(M.1)-A<H 
.1)-Z:A(M,0)-A(M,0)-Z 
2110 PRINT «353, "DESEJA COMEÇAR 

AS ESCAVAÇÕES 7 " 
2120 RS-INKEYS:IF R3<>"S" AND R 
SO"N" THEH 2120 

2130 ir RS-"S" TBEN A(M,5)-0:R( 
M)-1'OOTO 3000 
2500 RETURN 

Todas as máquinas limpam a tela na 
linha 2000. O Spectrum também muda 
as cores da tela. A linha 2030 faz com 
que o valor de R(M) — r(m), no caso do 
Spectrum — seja zero, para indicar que 
as escavações ainda não começaram. Es- 
sa linha também calcula as possibilida- 
des de encontrar ouro, além da quanti- 
dade de metal e da profundidade pro- 
vável do veio. LL (ou II) é um número 
aleatório entre -lei que será usado na 
próxima linha para determinar a pro- 
fundidade real da mina (lembre-se de 
que o valor em C(M,2) é apenas a pro- 
fundidade provável). 

A linha 2050 faz com que C(M,4) as- 
suma um valor igual a C (M,2) (mais ou 
menos 200 m, ou seja, 200 vezes LL). 
A seguir, a linha 2070 decide se a mina 
vai ou não ter ouro. Se não houver ne- 
nhum ouro, C(M,5) se tornará zero. KK 
é outro número aleatório, entre 0 e 99. 
Ele é comparado com as chances de se 
encontrar ouro — se for menor do que 
estas, C{M,5) se tornará 1 para indicar 
que há ouro na mina. ' 

A linha 2080 (2090 no Apple, no 
TK-2000 e no MSX) dá ao proprietário 
o resultado do levantamento geológico. 
Os números informam as chances de se 
encontrar ouro, onde e em que quanti- 
dade. Mas a existência ou não do metal 
na mina depende de uma série de fato- 
res aleatórios. Dessa forma, o jogador 
deve ser muito criterioso ao fazer seus 
investimentos. 

Agora, as más noticias: o relatório é 
pago e seu custo, imprevisível. Em to- 
do caso, a conta fica no máximo em 
$150000 (valor de Z escolhido na linha 
2100). O custo do relatório é então sub- 
traído das posses do jogador, e essa de- 
dução aparece no saldo total. 

A seguir é oferecida a opção de ini- 
ciar a escavação — a linha 21 10 pergun- 
ta: "DESEJA COMEÇAR AS ESCA- 



VAÇÕES (S/N)?" Se a resposta for 
sim, o programa prosseguirá na sub- 
rotina de escavação da linha 3000. 



A ESCAVAÇÃO 



3000 BORDE R 6: PAPER 6: INK 1: 
CLS 

3010 IF r(«)-0 THEN PRINT FLA 

SH 1;AT 9,6i"A »ina nao foi abe 

rta!*: FOR 2-1 TO 10: SOUND .3, 

-10: NEXT z: RETURN 

3020 BORDES 5: INK 0: PAPER 4: 

CLS 

3022 PRINT PAPER 5 ; TAB .14; CHRS 
147;CHRS 148;CHRS 149;TAB 14:C 
HRS 150:CHRS 151;CHRS 152:CHRS 
153iTAB 13:CHRS 154;CHR$ 155:CH 
R$ 156;CHRS 157;CHRS 158;TAB 31 
; CHHS 32 

3025 FOR z-1 TO 32: PRINT CHR$ 
144; : NEXT z 

3060 PRINT AT 4,0;: FOR z-100 T 
O 1400 STEP 100: PRINT TAB 4-LE 
N STRS HZ: NEXT z 
3090 LET a{B,2)-a<B,2)-a<B,4) : 
LET a(B.l)-a(m,l)-a(m,4) : LET a 
(B,6)-a(»,6)+200: PAUSE 30 
3100 PRINT AT 3, 15; CHRS 146: FO 
R f-4 TO (a<»,6)/100)*3: PRINT 
AT f,15:CHR$ 145: FOR w-1 TO 10 
: SOUND .01,-20: NEXT w. NEXT E 
3120 IF a(n,6)-c<B,4) AND c(m,5 
)-l THEN GOTO 3500 
3130 PRINT FLASH 1; PAPER 5; AT 
6,6i" Nada de ouro ainda!": IF 
a(m,6)-c(B,2)+200 THEN PRINT 
FLASH li PAPER 1: INK 6 ; AT 1B, 
0;" Nao ha ouro nesta nina. 

Va cavar e» outro luoar.": 
FOR z-1 TO 10: SOUND .5,-20: N 
EXT z: LET a(ii,6)-0: LET r (d) -0 
3140 PAUSE 150 
3 3 00 RETURN 

3500 PRINT PAPER 6; INK 2; FLA 
SH 1;AT E.12;"0 U R O": FOR z — 
20 TO 50: SOUND .017,z: NEXT z: 

PAUSE 75 
3550 LET a(si,5)-a(a,5) + l: LET a 
(a,3)-a(n.3)+c(n,3) : LET a(B,l) 
-a(«,l) + (a(a.3)*er) : L ET a ( m , 6 ) 
-0: LET r(m)-0: GOTO 3300 

Kti 

3000 CLS:GOSUB 1510 
3010 IF R(M)-0 THEN PRINT : PRINT 
: PRINT "A sina não foi aberta ! 
" : PLAY "T25506V15AF" :FOR 2-1 TO 

3000: RETURN 
3020 LOCATE 14,3:PRINT CHRS (195 
) ;CHRS(196) ;CHRS(197) : LOCATE 14 
,4:PRINT CHRSU98) ;CHRS(199) ;CH 
RS(200) ;CHR3(201) 
3022 LOCATE 13,5:PRINT CHRS ( 202 
) ;CHRS(203) ;CHR3(204) ;CHRS(205) 
; CHRS (206) : LOCATE 31,5:PRINT CH 
R3C32) 

3025 LOCATE 0,6:FOR Z-0 TO 29:P 
RINT CHRS(192) ; : NEXT 



3060 LOCATE 0,7: FOR Z-100 TO 14 
00 STEP 100:PRINT TAB (5-LEN (STR 
3(Z))) ;Z:NEXT Z 

3090 A(M.l)=A(M,l)-A(M f 3) :A(M,0 
)-A(M,0)-A(M,4) :A(M,5)-A(M,5)+2 
00 

3100 LOCATE 15.3:PRINT CHRS (194 
):FOR F-4 TO (A (M , 5) /100) +5 : L0C 
ATE 15,F:PRINT CHRS (193) : PLAY"T 
25501S12M1V15A64" :NEXT F 
3120 IF A(M.5)-C(M,3) AND CCM.4 
)-l THEN 3500 

3130 LOCATE 4.0:PRINT " NADA DE 
OURO AINDA!":IF A (M, 5) -C (M, 1 ) ♦ 
200 THEN LOCATE 0,21:PRINT "Não 

há ouro nesta Bina" : PRINT "Vá 
cavar em outro lugar" : PLAY'T255 
O3CDEFG":A(M,5)-0:fl(M)-0 
3140 FOR Z-1 TO 1500:NEXT 
3300 RETURN 

3500 LOCATE 10,0: PRINT " O U R 
O* 

3510 FOR Z-1 TO 10:PLAY"T25503C 
A" :NEXT 

3550 A(M.4)-A(M,4)+1:A(M,2)-A(M 
,2)+C(M,2) :A<M,0)-A(M,0)+(A{M,2 
)*ER) :A(M,5)-0:R(M)-0:GOTO 3140 

QEGD 

3000 HOME 

3010 IF R(M) - 0 TBEN VTAB 1: 
PRINT "A MINA NAO FOI ABERTA ! 

": CALL - 198: FOR Z - 1 TO 10 
00: NEXT : RETURN 
3020 HGR : HCOLOR- 3: HPLOT 0, 
50 TO 279,50 

3030 HPLOT 125.45 TO 130.45 TO 
130.40 TO 125,40 TO 125,45: HP 
LOT 145,45 TO 150,45 TO 150,40 
TO 145.40 TO 145,45: HPLOT 135. 
50 TO 135,40 TO 140,40 TO 140.5 
0 

3040 HPLOT 120,50 TO 120,40 TO 

130,30 TO 135,30 TO 135,25 TO 
140,25 TO 140.30 TO 150,30 TO 1 
50,5 TO 175.5 TO 175,35 TO 185, 
45 TO 185,50 TO 210.50 TO 175.5 
3050 HCOLOR- 6: FOR I - 58 TO 
151 STEP 8: HPLOT 0,1 TO 100,1: 
NEXT 

3090 A(M.l) - A(M.l) - A(M,3):A 
CN,0) - A(M,0) - A(M,4) :A(M,5) 

- A(M,5) + 200 

3100 HCOLOR- 5: FOR I - 5 TO ( 
A(M,5) * 8 / 100) + 50: HPLOT 1 
55 + 4 * RND (1),I TO 170 - 4 
« RND (1) ,I:X - PEEK ( - 1633 
6) : NEXT 

3120 IF A(M,5) • CÍM.3) AND C( 
M,4) - 1 THEN 3500 
3130 VTAB 22: HTAB 1: PRINT "N 
ADA DE OURO AINDA !": IF A(M.5) 
- C(M.l) + 200 THEN PRINT "NA 
O HA OURO NESTA MINA" : PRINT "V 
A CAVAR EM OUTRO LUGAR" : A (M, 5} 

- 0:R(M) - 0 

3140 FOR Z-1 TO 1500: NEXT 
3300 HGR : HOME : TEXT : RETUR 
N 

3500 HOME : VTAB 22: HTAB 15: 
PRINT "OURO !!!!": CALL - 1 
98 
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3550 A(M,4) - A(M,4) * 1:A{H,Z) 
- A (M , 2 ) + C(M.2) :A(M,0) - A (H 
,0) + A(M,2) • ER:A(M,5) - A (M, 
5} - 0:R(H) - 0: GOTO 3140 

Q 

3000 CLS 

3010 IF R(M)-0 THEN PRIHT «66. " 
A MINA NAO FOI ABERTA! " ; : FOR Z- 
1 TO 10-SOUND 120.1:NEXT'RETURN 
3015 IF A<H,5)>0 THEN LIHE(140, 
40)-(157,191) ,PRESET,BF:OOTO 30 
90 

3020 PCLS:SCREEN 1,0: COLOR 3 : LI 

HE ( 0 . 0 ) - (255,31) , P3ET , BF 

3022 PUT ( 1 31 ,8)-(168,31) , H . PSET 

3025 FOR Z-0 TO 31 : PUT (Z*B , 32) - 

(Z*B+7 , 34) , T , PSET : NEXT 

3060 FOR Z-100 TO 1400 3TEP 100 

:Z$-8TRS<2)+"-":DRAW"C4SSBH"+ST 

RS (49-8"LEN (ZS) ) +* . "+STRS (32+10 

•Z/100) :GOSUB 9000: NEXT 

3090 SCREEN 1 . 0 : A(M. 1) -A (M. 1) -A 

(M.3) :A(M,0)-A(H,0)-A(M,4) :A(M, 

5)-A(H, 51+200 

3100 PUT U45,32)-U52.39) ,D.PS 
ET : FOR F-4 TO (A (M, 5) /100) +3 : PU 
T(145,F*10)-(152.F*10+9) ,B,PSET 
: PLAY*T5001BDBDEBDBDE " : NEXT 
3120 IF A (H, 5) -C (M, 3) AND C(M.4 
)-l THEN 3500 
3125 FOR Z-l TO 1000:NEXT 
3130 PRINT «40, -NADA DE OURO AI 
HDA! ";:IF A{H. 5) -C (H, 1) +200 T 
HEN PRINT «128. "NAO HA OURO NES 
TA MINA. VA CAVAR EM OUTRO LUGA 
R ";:PLAÍ"T50O3CDEFG":A(M,5}-0: 
R{N)-0 

3140 FOR Z-l TO 2500:NEXT 
3300 RETURN 

3500 F-40+A(M,5)/10:COLOR 2 r LIN 
E 1140. F)- (157, F+5) , PSET . BF 
3510 FOR Z-l TO 10 : PLAY"T502CA" 
:PUT(140,F)-(157,F+5) ,H,NOT:NEX 
T 

3520 FOR Z-l TO 2000:NEXT 
3550 A(H,4)-A(M,4)+1:A(H,2)-A<M 
,2)+C(M,2) :A(M,0)-A(M,0)+(A(M.2 
)«ER) :A(M,5)-0:R(M)-0:GOTO 3300 

Essa rotina ê chamada de dois pon- 
tos diferentes do programa. A opção de 
cavar é oferecida após o levantamento 
geológico; mas ela também pode ser fei- 
ta a partir do menu, aprofundando a 
mina em 200 m — opção 3. 

Como de cosiume, a primeira linha 
limpa a tela (no Spectrum e no MSX, 
as cores mudam). A linha 3010 verifica 
se já foi feito um levantamento geoló- 
gico. As linhas 3020 a 3090 cuidam dos 
gráficos que representam a mina. A li- 
nha 3100 ilustra o processo de escava- 
ção, ao mesmo tempo que produz al- 
guns efeitos sonoros. 

A linha 3 120 verifica se as escavações 
atingiram o nível provável do filão e se 
existe ouro na mina (é possível que se 
tenha cavado mais de 1000 metros ape- 



nas para descobrir que não há nenhum 
metal). Se for achado ouro, o progra- 
ma vai para a linha 3500, que dá as boas 
novas ao dono da mina, junto com al- 
guns efeitos sonoros (menos no Apple 
e TK-2000). A linha 3550 ajusta as pos- 
ses do jogador conforme a quantidade 
de ouro descoberta. 

Se não houver ouro na mina, o pro- 
grama continuará na linha 3130. Se a es- 
cavação ultrapassar o nível em que se es- 
perava achar o metal (200 m), o joga- 
dor será informado de sua inexistência. 
Se o buraco ainda não chegou a essa 
profundidade, o jogador será informa- 
do: "NADA DE OURO AINDA!" 



VENDA 0 OURO 




4000 PAPER 6: INK 1: BORDER 6: 

4020 PRINT INVERSE 1 ; AT 2,4;" 
CAIXA ECONÓMICA FEDERAL " [AT 4, 
5; "Agencia de Serra Pelada - : PR 
INT AT 8,1 i" Cotação do ouro: " 
;er;" por kg" ;AT 14 , 3 ; "QuantoB 
guilos vai vender?': INPUT nte 
4070 IF nte>a(»,3) THEN PRINT 
FLASH 1;AT lB.4;"Voce nao tem 
tanto ouro!" 
4080 LET nte=INT nte 
4090 IF nte>a(m,3) OR nte<0 THE 
N GOTO 4020 

4095 PRINT AT 16,0:CHRS 3Z;TAB 
31;CHRS 32 

4100 LET a(M,3)-a(m,3)-nte: LET 
a(ni.2)-a(«,2) + (nte*er) : LET a ( 
a,l)-a<w.l)+(nte«er) 
4130 PRINT PAPER 5:AT ló.lmte 
l"kg vendidos por $";nte"er: PA 
USE 170: RETURN 
5000 RETURN 

4000 GOSUB 1500 

4010 LOCATE Z , 0 : PRINT " CAIXA E 
CONOMICA FEDERAL" : LOCATE Z.1:PR 
INT" Agencia de Serra Pelada" 
4020 PRINT : PRINT "Cotação do ou 
ro:*:PRINT ER; "por kg de ouro"; 
PRINT: INPUT "Quantoa kg vai ven 
der" ;NT 

4080 NT- INT (NT) 

4090 IF NT>A(M,2) OR NT<0 THEN 
4000 

4100 A(M,2)-A(M,2)-NT:A(M.1)-A( 
M.l)+NT*ER:A(H.0)-A(M,O)-NT«ER 
4130 PRINT : PRINT NT;"kg vendido 
a por";NT*ER:FOR Z-l TO Z0O0:NE 
XT 

5000 RETURN 
4000 HOME 

4010 VTAB 1: HTAB 6: INVERSE : 
PRINT " CAIXA ECONÓMICA FEDERA 
L ": VTAB 2: HTAB 6: PRINT " AG 



ENCIA DE SERRA PELADA " : NORMAL 



4020 PRINT : PRINT "COTAÇÃO DO 
OURO:": PRINT ER;" POR KG DE O 

URO" : PRINT : INPUT "QUANTOS KG 
VAI VENDER ? ";NT 

4080 NT - INT (NT) 

4090 IF NT > A(M.Z) OR NT < 0 

THEN 4000 

4100 A<M,2) - A(M,2) - NT:A(M,1 
) - A(M,1) + NT * ER:A(M,0) - A 
(M,0) + NT * ER 

4130 PRINT r PRINT NT," KG VEN 
DIDOS POR " ; NT * ER: FOR Z-l 
TO 1000: NEXT : RETURN 
5000 RETURN 

D 

4000 CLS 

40ZO PRINT «4, "CAIXA ECONÓMICA 
FEDERAL" : PRINT «136, "COTAÇÃO DO 
OURO ": PRINT «197, "1 KG DE OUR 
0-" ;ER;PRINT «228 ," QUANTOS KG V 
AI VENDER" ;: INPUT NT 
40B0 NT- INT (NT) 

4090 IF NT>A(M,2) OR NT<0 THEN 
4020 

4100 A(M.Z)-A(M.2)-NT;A(M,1)-A( 
M.1)+(NT*ER) :A(M,0)-A(M,0)+(NT* 
ER) 

4130 PRINT «44B,NT;"KG VENDIDOS 
POR " ; NT* ER : FOR Z-l TO 1000:NE 
XT : RETURN 
5000 RETURN 

A linha 4000 limpa a tela, como de 
costume. A linha 4020 coloca um rótu- 
lo no vídeo, imprime a cotação do ouro 
no mercado e pergunta quantos quilos 
serão vendidos. A linha 4070 verifica se 
o jogador tem realmente a quantidade 
de metal que pretende vender. A linha 
4080 certifica-se de que essa quantida- 
de é um número inteiro. 

Se o jogador tentar vender mais do 
que tem, ou quiser comercializar uma 
quantidade negativa de ouro, a linha 
4090 enviará o programa de volta ao ini- 
cio da sub-rotina. A linha 4100 ajusta 
as posses do jogador de acordo com o 
ouro vendido. 

Finalmente, a sub-rotina informa ao 
jogador, por intermédio da linha 4130, 
a quantia que ele recebeu pela venda do 
ouro. A linha 5000 apresenta a opção de 
passar a vez. 



RETOQUES FINAIS 




1 FOR n-USR "a" TO USR "o"+7 
: READ a. POKE n,a: NEXT n 
7000 PAPER 5: INK 0: BORDER 5: 

CLS 

7010 PRINT AT Z.4;"JORNAL DE SE 

RRA PELADA" ; AT 4 , 3 ; "Falências 

e Concordatas" 6Bi 
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V 



V 



7020 PRINT AT 10,0;" Faliu ho 
je a empresa da mine-racao "ia5 
(■)!" Ltda,": PRINT "graças a m 
a administração de seupropr ieta 

7025 PRINT FLASH 1 ;AT 20,1;" Q 

ualquer ter la para recomeçar " 

7030 PAUSE 0: RUN 5 

8000 DATA 255,85.170,0,0,0,0,0, 

62,28.56,126,28,62,120,28 

B010 DATA 255.255,62,126,127.60 

. 124 ,126. 0,0, 0,0, 1,1, 1,1 

8020 DATA 7,29.49.45,255.255.91 

,126. 128.96,48,80, 152. 140.252.1 

H 

8030 DATA 1.1,1,49,49,49,49,255 
. 122.197.62.95, 15 3,255, 153.126 
8040 DATA 209,177,224.128.128,1 
28,128,12B,0,0,128.12B,64,32,32 

,16 

8050 DATA 1,3,7,7,4,4.7,7,255,2 
55. 255,255. 149,149.159,159 
8060 DATA 24.126,153,255,126,15 
3,126,219,128,192,224,240,248,1 
68,248,255 

6070 DATA 16,8,8,4,14,31,31,255 

ff/i 

10 R-RND(-TIME) 

70 SCREEN l:COLOR 1,10.4:KEY OF 
F 

80 FOR 1=0 TO 119 
90 READ A:VP0KE BASE (7) +192*8+1 
, ANEXT 
— 7000 GOSUB 1500 

|G 7010 LOCATE 2.0;PRINT" JORNAL D 



E SERRA PELADA " : LOCATE 3 , 4 : PRI 
NT" FALfiNCIAS E CONCORDATAS" 
7020 PRINT : PR1HT "Faliu hoje a 
empresa de": PBINT "mineração "; 
AS(M);" Ltda . " : PRINT "graças à 
má administração" : PRINT "de seu 

703Q P LOCATE 0,19:PRINT "QUAIQUE 
R TECLA PARA RECOMEÇAR" 
7040 IF INKEYS-"" THEN 7040 ELS 
E RUN 

8000 DATA 255.85,170,0.0,0,0,0, 

62,2B,56, 126. 28.62. 120,28 

B010 DATA 255,255,62,126,127,60 

,124,126,0,0.0,0,1,1.1,1 

B020 DATA 7,29.49.45.255,255,91 

,126,128,96,48,80,152,140,252,1 

38 

B030 DATA 1,1,1,49,49,49,49,255 
,122,187,62,95.153,255,153,126 
8040 DATA 209,177,224,128,128,1 
28, 12B,126.0,0,12B, 128,64,32,32 
,16 

8050 DATA 1.3,7,7,4,4,7,7,255,2 
55,255, 255. 149, 149, 1 59, 159 
8060 DATA 24.126,153,255,126,15 
3,126,219, 128, 192,224, 240. 24B.1 
68. 24B, 255 

8070 DATA 16.8.8.4.14,31,31,255 
7000 HOME 

7010 VTAB 1: HTAB 7; INVERSE r 
PRINT " JORNAL DE SERRA PELADA 
" : NORMAL : VTAB 3 : HTAB 7 : PR 

INT "FALÊNCIAS E CONCORDATAS" 



7020 PRINT ; PRINT "FALIU HOJE 
A EMPRESA DE MINERAÇÃO": PRINT 
A$(M)i" LTDA. GRAÇAS A MA ADMI 

NISTRACAO": PRINT "DE SEU PROPR 

I ETÁRIO" 

7030 PRINT ! PRINT "QUALQUER T 
ECLA PARA JOGAR NOVAMENTE" 
7040 GET RS: RUN 

U 

7000 CLS 

7010 PRINT «76. AS (M) : PRINT «166 
, "ACABA DC FALIR! " : PRINT «449, 
"QUALQUER TECLA PARA RECOMEÇAR" 
7020 IF INKEYS-"" THEN 7020 ELS 
E RUN 

9000 FOR K-l TO LEN(ZS) 

9010 BS-MIDS(2S,K,lt 

9020 IF BS>-'0" AND BS<-"9" THE 

N DRAW NUS<VAL(BS>> :GOTO 9050 

9030 IF BS-"-"THEN DRAW "BF2R4" 

9050 NEXT 

9060 RETURN 

As linhas 7000 a 7030 abrigam uma 
rotina para iniciar uma nova partida. 

No Spectrum e no MSX. as linhas 
8000 a 8070 contêm os dados para os 
blocos gráficos que desenham a mina e 
o processo de perfuração. No MSX, é 
usada a tela de textos de 32 colunas. Os 
padrões são guardados na tabela de pa- 
drões — BASE(7). No TRS-Color. as li- 
nhas 9000 a 9060 desenham o buraco, 
no lado esquerdo da mina. 
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ARQUIVOS EM DISQUETE 



A maior restrição para arquivos em 
Tua cassete é que eles só podem ser li- 
dos e gravados de forma serial; assim, 
eles funcionam na prática como um ar- 
quivo sequencial. Felizmente, para as 
aplicações mais simples, isso não chega 
a ser um grande problema. 

Os arquivos seriais são usados com 
muita frequência, não somente em sis- 
temas que funcionam apenas com fitas 
cassete, como também naqueles que em- 
pregam métodos versáteis de armazena- 
mento em disquete. 

Por outro lado, a maneira com que 
se lêem dados cm disco permite que se 
utilize um outro tipo de arquivo: o ar- 
quivo de acesso randômico (também 
chamado de arquivo de acesso direto ou 
arquivo relativo). Os sistemas que tra- 
balham com disco empregam ainda ou- 
tros tipos de arquivo. Mas estes ou não 
são usados por micros domésticos ou 
são específicos de um determinado sis- 
tema operacional de disco. 

Todo disquete conta com um certo 
número de blocos, onde são armazena- 
das as informações. Esses blocos se pa- 
recem com células de um favo de mel: 
ligadas entre si, mas claramente separa- 
das, Os blocos são identificados por 
coordenadas: trilhas e setores. Isto per- 
mite que eles possam ser acessados di- 
retamente e em qualquer ordem por um 
determinado programa. 

Cada bloco pode ser lido, corrigido, 
regravado, sem que os outros sofram in- 
terferências. Desse modo, o processa- 
mento da informação se dá muito rapi- 
damente e o tamanho do arquivo é li- 
mitado apenas pela capacidade de arma- 
zenamento do disco em uso. 



ARQUIVOS NO FORMATO ASCII 



Quando a informação arquivada é in- 
dependente de programas e encontra-se 



armazenada separadamente, a quantida- 
de de arquivos pode ser quase infinita. 
Com um programa editor de textos, por 
exemplo, tem-se arquivos separados pa- 
ra cartas padrão, artigos, avisos etc. 

Uma das maiores vantagens de se tra- 
balhar com um sistema de arquivos se- 
parados é que vários programas podem 
usar a mesma fonte de dados e não ne- 
cessariamente do mesmo computador. 
Uma planilha de cálculo pode acessar 
arquivos de outros programas e um ban- 
co de dados padrão pode ser usado pa- 
ra armazenar informações destinadas a 
qualquer tipo de aplicação. 

Isso pode ser feito por meio de arqui- 
vos sequenciais escritos na liguagem 
padrão do código ASCII (para maio- 
res esclarecimentos, veja o artigo Tra- 
balhe com a Código ASCI/, à página 
361 ). A maioria dos computadores (mes- 
mo aqueles que usam um código um 
pouco diferente do ASCII) permite que 
se opere com esses arquivos. 

Neste caso, tudo que é gravado, in- 
cluindo comandos e variáveis, é trans- 
formado em sequências de caracteres do 
código ASCII. Um programa acaba se 
transformando num arquivo de texto. 

Uma vez gravada, a informação 
toma-se, pelo menos em teoria, acessí- 
vel a outros computadores que possam 
ser ligados ao seu. Quando se usa um 
arquivo no formato ASCII, pode-se 
chamá-lo por intermédio de um editor 
de textos. Assim, todas as facilidades 
oferecidas pelo editor podem ser utili- 
zadas para escrever o seu programa. E, 
quando estiver pronto, ele será grava- 
do como um arquivo de texto. 

Note que a "transponabilidade" de 
um arquivo no formato ASCII de uma 
para outras máquinas pode ser impedi- 
da se nele forem colocados caracteres de 
controle. Esses códigos são habitual- 
mente usados pelo editor para contro- 
lar a impressora. E, como tais caracte- 
res não são padronizados, provavelmen- 



te causarão problemas quando trans; 
ridos para outra máquina. Dessa fom 
um programa deve ser gerado semi 
com a opção "nâo-documemaçâo" 
"nào-formatação" (isto é, sem mar< 
de avanço de linha, parágrafo, negri 
e outras, encontradas nos arquivos 
texto a serem impressos como carta 



ARQUIVOS DE DADOS 



Qualquer programa que utilize um 
banco de dados — como um gerencia- 
dor de arquivos de dados, uma planilha 
de cálculo, ou os pacotes de contabili- 
dade — funciona manipulando infor- 
mações já fornecidas ao sistema. Ao se 
trabalhar com um programa desse tipo, 
seria extremamente cansativo ter que di- 
gitar toda a informação sempre que um 
aplicativo (como um programa de mala 
direta) fosse usado. 

A solução para esse problema consis- 
te em armazenar a informação separa- 
damente do programa, como um arqui- 
vo de dados. Tal procedimento aumen- 
ta muito a capacidade de programa e di- 
minui as exigências de memória do com- 
putador, visto que um sistema de arma- 
zenamento funciona como uma memó- 
ria virtual, ficando na memória do com- 
putador apenas os dados em uso no 
momento. 

O menor componente de um sistema 
de arquivamento — computadorizado 
ou não — é, de fato, a entrada. Várias 
entradas compõem um registro. Cada 
registro é dividido em campos. Cada 
campo tem um título ou rótulo, que per- 
manece inalterado para todos os regis- 
tros daquele arquivo. Esse rótulo serve 
para identificar o tipo de dado que o 
campo contém. Pode-se ver este tipo de 
estrutura em operação no programa 
apresentado no artigo Organize as suas 
Coieções (/), à página 68. 

Consideremos um arquivo simples de 
fichas. Ele é formado pelo conjunto 
completo das fichas, que são relaciona- 




das por algum ponto comum (a lista dos 
sócios de um clube, por exemplo). Um 
registro é, neste caso. uma ficha usada 
para identificar apenas um membro do 
clube. Os campos são cada parte da in- 
formação comida na ficha — nome, en- 
dereço, telefone etc. 

Em um sistema que funcione com pa- 
pel, 0 arquivo pode ser transportado em 
um fichário, em pastas, caixas etc. Es- 
ses veículos, habitualmente chamados 
de arquivo, na realidade não passam de 
iim modo físico de conter (e, às vezes, 
transportar) a informação. 

Um sistema computadorizado fun- 
ciona de modo bem diferente. A não ser 
que todos os dados esteiam armazena- 
dos num só disco ou fita, não se estabe- 
lece aí a mesma relação "física" existen- 
te entre os pedaços de papel e seu invó- 
lucro. Em algumas aplicações, os dados 
ficam completamente separados, e po- 
dem ocupar discos ou fitas diferentes. 
Em outras, os dados são pane integran- 
te do programa e não devem ser consi- 
derados um conjunto separado. 

Arquivos separados podem, com fre- 
quência, ser usados por programas que 
não são responsáveis por sua criação. 



Assim, uma informação que foi traba-JJ 
lhada e armazenada por uma planilha: 
de cálculo pode ser acessada por um edi- 
tor de textos. Repare que a palavra è {, 
acessada e não transferida — ou seja, 
o programa lê e usa a informação sem 
removê-la. Num sistema manual, a 
transferência constitui a única forma de 
passar informação de um arquivo para 
outro sem copiá-la. 



NOMES DE ARQUIVOS 



O que não muda, no entanto, é a ne- 
cessidade de se dar um nome a um ar- 
quivo. Seria difícil, se não impossivel, 
acessar alguma informação num siste- 
ma computadorizado sem um nome 
com que o programa pudesse identifi- 
car rapidamente o conjunto de dados. 

Para que um arquivo computadori- 
zado seja adequadamente acessado por 
um programa, é preciso que seu nome 
seja escolhido com cuidado. Se não hou- 
ver nomes, os dados armazenados em fi- 
ta podem ser lidos na forma "carregar 
o próximo arquivo". Mas qualquer ro- 
tina de busca necessita de um nome pa- 
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ra identificar os dados requeridos. 

Em fita cassete pode-se ter mais de 
um arquivo com a mesma denominação, 
ou mesmo arquivos sem nenhum nome. 
Mas esses procedimentos geram graves 
problemas. Se você instruir o computa- 
dor para ler a última versão de um ar- 
quivo que tem o mesmo nome da cópia 
anterior, ele não poderá decidir que ver- 
são deve ler e ficará com a primeira que 
aparecer. A solução é dar a cada cópia 
um nome adequado e único. 

Quando se usa um sistema de disco, 
o procedimento para a escolha de nomes 
é o mesmo. Nesse sistema, porém, é per- 
feitamente possível gravar um arquivo 
no lugar de outro (apagando este últi- 
mo), caso o mesmo nome tenha sido da- 
do aos dois. Alguns sistemas operacio- 
nais de disco impedem que isso aconte- 
ça, mas, geralmente, deve-se proteger o 
arquivo de um apagamento acidental — 
"travando-o" , como se diz no jargão da 
informática. 

Ao escolher o nome, certifique-se de 
que não está ultrapassando o tamanho 
máximo permitido por cada micro. Em 
fita, o espaço para o nome de um arqui- 
vo não vai além de dez caracteres no 
Spectrum. oito no TRS-Color e seis no 
MSX. O Apple não usa nome para ar- 
quivos em fita. Em sistemas de disco, o 
tamanho varia bastante. 

Convém ressaltar que o nome de 
qualquer arquivo computadorizado de- 
ve ser de fácil memorização. Além dis- 
so, ele precisa traduzir claramente seu 
conteúdo. Uma lista de todos os seus ar- 
quivos também ajudará bastante. 

Os processos de transferência de da- 
dos através de um mecanismo de arma- 
zenamento são descritos pelas palavras 
gravar e ler (write e read, em inglês). Ca- 



da computador tem um conjunto dife- 
rente de comandos para essas duas ope- 
rações, mas, de um modo geral, as roti- 
nas são muito parecidas. 

Normalmente, o programa principal 
é o primeiro a ser carregado na memó- 
ria do computador — ele pode ser, por 
exemplo, um editor de textos ou um ge- 
renciador de banco de dados. 

Se o programa precisar de dados que 
não estão nele próprio, estes devem ser 
carregados de um arquivo de dados ou 
do teclado, manualmente. A partir daí, 
os dados serão corrigidos, alterados e 
trabalhados. Eles não poderão ser mo- 
dificados enquanto permanecerem no 
disco ou na fita. 

Em alguns arquivos, toda a informa- 
ção tem que ser colocada na memória, 
mesmo que apenas uma pequena porção 
dela vá ser trabalhada. Este é o caso do 
Spectrum com um Microdrive. Em ou- 
tros casos, pode-se ler apenas os dados 
que serão modificados. Por fim, a in- 
formação é gravada em um mecanismo 
externo de armazenamento (disquete ou 
fita cassete), ou enviada a outro meca- 
nismo, como uma impressora. 

Analisemos agora, mais detalhada- 
mente, os estágios de gravação e leitu- 
ra. Primeiro, deve ser dada ao compu- 
tador uma instrução para abrir um ca- 
nal de comunicação, de modo que ele 
saiba que a informação transitará por 
aquele ponto. Outras informações po- 
dem ser fornecidas a partir do coman- 
do de abertura do canal de comunica- 
ção, para especificar, por exemplo, que 
tipo de periférico está sendo acessado. 
Geralmente o periférico será um grava- 
dor cassete ou uma unidade de disquete. 

Aberto o canal, são usados coman- 
dos para enviar ou gravar a informação. 



no periférico escolhido. Inicialmente, os 
comandos são empregados para receber 
e não para enviar dados. Em qualquer 
dos casos, uma área de memória será 
utilizada para armazenamento temporá- 
rio de informações (buffer). 

Quando o acesso à informação ter- 
mina, é preciso fechar o canal de comu- 
nicação. Assim, toda informação que 
estiver no meio do trajeto (ou eventual- 
mente parada no buffer) será forçada a 
terminar o percurso. Para encerrar, o 
computador marca o fim do arquivo — 
end of file (eof), em inglês. 

Até ser reaberto, o arquivo não trans- 
mitirá nem receberá nenhuma outra in- 
formação. Isso não impede a manipu- 
lação de arquivos por outros canais 
eventualmente abertos (sempre que o 
sistema seja capaz de trabalhar ao mes- 
mo tempo com vários canais). 

As instruções para executar essas ta- 
refas variam conforme o micro. Veja- 
mos cada uma delas. As instruções SA- 
VE e LOAD (e variantes) que se aplicam 
a programas não serão abordadas. 

Em cada um dos exemplos, a letra N 
se refere ao número do arquivo que é 
usado por muitos dos comandos; X (ou 
X$) é a informação transmitida. 



Se você usa um gravador cassete pa- 
ra armazenar dados, está limitado a gra- 
var programas, bytes e matrizes. Arqui- 
vos de dados podem ser manipulados 
com um Microdrive adequadamente ins- 
talado (esse dispositivo não é fabricado 
no Brasil). Os comandos de entrada e 
saída são os seguintes: 
OPENt 
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utilizado com a finalidade de preparar 
o sistema para a transferência de in- 
formação. 

Em sua forma padrão, esse coman- 
do fica assim: 

0PEN#N;"m";l:"NOME DE ARQUIVO" 
onde a expressão NOME DE ARQUI- 
VO pode ser uma variável previamente 
definida. Os dados, por sua vez, são 
transmitidos pelo canal de número N, 
sendo m o canal do Microdrive. 
PRINT* 

usado na forma PRINT #N;X (ou X$) 
com o objetivo de enviar a informação 
a ser gravada para o buffer de dados. 

INPUTi 

utilizado na forma INPUT#N;X (ou 
XS) para ler dados do buffer de dados. 
Estes são lidos até que surja um CR (car- 
riage reiurn). 
CL05EI 

fecha um canal de comunicação previa- 
mente aberto. Seu formato é CLOSE#N. 



Existem vários comandos para abrir 
linhas de comunicação, principalmente 
em um gravador cassete. Já as unidades 
de disco são acessadas por comandos 
que variam de acordo com o sistema 
operacional de disco em uso. 

OPEN 

abre um canal de comunicação para um 
periférico específico. Para gravar dados 
em fita, esse comando toma a seguinte 
forma: 

OPEN "O". #-1, "NOME DE ARQUIVO" 





onde apenas NOME DE ARQUIVO é 

uma variável definida pelo programa do 
usuário. O número -I indica o gravador 
cassete. Se quisermos abrir um arquivo 
para leitura, devemos usar o comando 
na seguinte forma: 

OPEN "I",*-l,"NOME DE ARQUIVO" 



lê um cordão de um arquivo. A instru- 
ção EOF(-l) (eof significa fim de arqui- 
vo) pode ser usada para evitar erros (im- 
pede que se tente ler dados além da mar- 
cação de fim de arquivo). 

PRINTt 

envia informações para o periférico es- 
pecificado pelo número N. O comando 
toma esta forma: 

PRINTtN.XS 
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onde o caractere N é - 1 para o gravador 
cassete e-2 para a impressora. 
Já o cornando 
CLOSE# 

fecha o canal de comunicação com o pe- 
riférico. É usado na forma: 
CLOSEtN 

onde N é geralmente - 1. 

m 

O MSX pode ser conectado tanto a 
um gravador cassete como a um contro- 
lador de discos para armazenamento de 
programas e dados. Abordaremos aqui 
os comandos referentes à manipulação 
de arquivos de dados em fita: 
OPEN 

utilizado para abrir um canal de comu- 
nicação com vários periféricos, que po- 
dem ser: gravador cassete, tela de tex- 
to, tela de gráfico, impressora, aciona- 
dor de discos. Num arquivo em fita, o 
comando toma esta forma: 

OPEN "CAS : NOME ARQUIVO" 
FOR INPUT AS (N 

para se ler dados de um determinado ar- 
quivo usando o canal N (onde N pode 
ser 1, 2 etc). Para gravação de dados, 
substitui-se 1NPUT por OUTPUT. 
PRINTI 

serve para enviar dados a um periféri- 
co. Toma a forma 
PRINT*N.X (ou XS) 

Quando se usa mais de uma variável 
na mesma instrução PRINT # , é neces- 
sário que sejam tomados alguns cuida- 
dos. Se forem variáveis numéricas, não 
há problema, pois o BASIC se encarre- 
gará de separá-las. No entanto, expres- 
sões alfanuméricas devem ser separadas 
explicitamente por virgulas: 
PRINTtl.AS;",";B3 

Esse comando pode ser combinado 
com a instrução USING para determi- 
nar o formato do dado. 

INPUTI 

lê dados de um determinado periférico. 
Toma a forma 

INPUT#N.X (ou XS) 

No caso de variáveis numéricas, um 
espaço, uma virgula, um retorno de car- 
ro (CR) ou um avanço de linha (LF) in- 
dicam o fim do número. 

Para variáveis alfanuméricas, serão 
reconhecidos os marcadores acima (com 
exceção do espaço). 



LINE INPUT» 

é usado para fazer a leitura de variáveis 
alfanuméricas de um periférico. A dife- 
rença dessa instrução em relação ao co- 
mando anterior é que apenas o retorno 
de carro (CR) marca o fim do cordão 
que está sendo lido. 
EOF (N) 

indica se o final do arquivo foi encon- 
trado. É habitualmente usado para evi- 
tar que se tente ler dados inexistentes no 
arquivo. O valor - 1 retorna quando o 
marcador de fim de arquivo é encontra- 
do. Esse comando é mais utilizado na 
forma 

IF EOF(l) THEN instrução 
onde instrução provoca geralmente o fe- 
chamento do arquivo. 

CLOSE 

serve para fechar o canal de comunica- 
ção de número N. Força o envio dos da- 
dos remanescentes no buffer de dados 
para o periférico ligado a esse canal. To- 
ma a forma 
CLOSEttN 

O Apple e o TK-2000 são extrema- 
mente limitados em sua capacidade de 
manipular arquivos em fita. Como no 
Spectrum, apenas programas e matrizes 
podem ser gravados em fita. A seguir, 
descreveremos alguns comandos e as- 
pectos mais importantes da manipula- 
ção de arquivos pelo sistema operacio- 
nal DOS #3.3 do Apple. 

Inicialmente, convém chamar a aten- 
ção para um fato essencial, que já cus- 
tou muitas horas de trabalho a mais de 
um programador: todos os comandos 
do sistema operacional devem ser pre- 
cedidos de um caractere especial — 
CTRL-D. Esse caractere deve estar sem- 
pre na primeira posição da linha. Desse 
modo, se antes de um comando houver 
um PRINT seguido de um ponto e vír- 
gula, que deixe o cursor numa posição 
que não seja a primeira da linha, o co- 
mando não será reconhecido como do 
DOS. Igualmente 'importantes são as 
formas de colocar o CTRL-D na linha 
do comando. A mais segura consiste em 
definir uma variável que contenha esse 
caractere e colocá-la na linha de coman- 
do. Outra maneira é simplesmente acio- 
nar CCTRL-D (ou seja, pressionar a te- 
cla CTRL simultaneamente com a tecla 
D) logo após ter aberto as aspas exigi- 
das pelos comandos do DOS. 

Nos exemplos a seguir, recorreremos 
ao primeiro método, usando a variável 



DS (frequente entre os programadores do 
Apple). Ela é definida por meio do có- 
digo ASCII de CTRL-D: 
D3 = CHR3 (4) 

Vejamos alguns comandos: 

OPEN 

abre um canal de comunicação entre a 
CPU e uma unidade de disco, assumin- 
do a seguinte forma: 

PRINT DS;"OPEN NOME ARQUIVO". 
Dd, Ss, Vv 

onde NOME ARQUIVO pode ser repre- 
sentado por uma variável alfanumérica 
e ter até trinta caracteres. A letra D é 
seguida do número do drive acessado 
(1 ou 2). A letra S é acompanhada do 
número do soquete (ou slot) no qual a 
placa que controla as unidades de dis- 
co está instalada (esse número é, em ge- 
ral, 6). E V é seguido do número do vo- 
lume do disquete, que é definido no mo- 
mento de sua formatação. Esses três úl- 
timos parâmetros são opcionais e inde- 
pendentes: a presença de um não impli- 
ca o uso dos demais. 

READ 

é empregado para habilitar um arquivo 
em disco para a leitura de dados e toma 
a seguinte forma: 

PRINT DS , "READ NOME ARQUIVO" 

A seguir, digita-se o comando IN- 
PUT para ler os dados desejados do ar- 
quivo em uso. O comando PRINT DS, 
por sua vez, encerra a leitura de infor- 
mações do arquivo de dados (D$ deve 
conter o caractere CTRL-D). 

WRITE 

envia e grava os dados em um arquivo 
em disco. Ele é usado na forma 

PRINT DS i "WRITE NOME ARQUIVO" 

Ele deve ser acompanhado de vários 
comandos PRINT para o envio dos da- 
dos. No caso de variáveis alfanuméricas, 
elas devem ser separadas por um CR (re- 
torno de carro) para serem lidas indivi- 
dualmente mais tarde: 

PRINT AS;CHRS(13) ;BS 
CLOSE 

fecha o canal de comunicação estabele- 
cido. Ele é usado na forma 
PRINT DS, "CLOSE NOME ARQUIVO" 
,Dd, Se, Vv 

Como no comando OPEN, os três úl- 
timos parâmetros são opcionais. Neste 
caso, NOME ARQUIVO pode ser omi- 
tido, provocando o fechamento de to- 
dos os arquivos abertos no momento. 
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FIROGRAMACÃ© DE 



■ 


OBJETOS MÚLTIPLOS 




VAmt A rcHortL 1 IVA 


■ 


COMO DESENHAR UM GLOBO 


■ 


CONTORNE 0 OBJETO 


■ 


DESENHE UM TORO 




Agora que você já conhece os segredos 

da perspectiva, pode reunir 

vários problemas e rotinas e desenhar 

as mais diversas figuras 

flutuando no espaço interestelar. 



Até aqui trabalhamos apenas com 
formas retangulares, quadrados e círcu- 



los concêntricos. Ao avançar um pou- 
co mais em nosso estudo, entretanto, 
aprendemos a combinar (por meio de 
várias transformações) uma série de gra- 
des numa vista em perspectiva de um 
cubo. Este artigo ensina como pequenas 
mudanças no programa desenvolvido 
até este ponto pode nos tornar capazes 
de desenhar uma grande variedade de 
imagens tipo wireframe. 

Começaremos com um desenho de fi- 



guras múltiplas. Se você já testou o pri- 
meiro programa do artigo Programação 
de Gráficos em 3-D (J), deve ter nota- 
do as alterações da imagem em perspec- 
tiva quando a distância do observador 
em relação ao objeto (D) é pequena, e 
o pouco efeito de perspectiva quando es- 
sa distância, ao contrário, é muito gran- 
de. Esse programa será desenvolvido 
agora de maneira a mostrar quatro I 
cubos e não apenas um. 
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MULTIPLICIDADE DE OBJETOS 



Os usuários que gravaram em fita ou 
disco os programas dos artigos prece- 
dentes desta série estão livres de boa par- 
te do trabalho de digitação. Os que não 
fizeram isso terão que inserir não só o 
programa do artigo anterior (que se ini- 
cia na página 641) como também a ro- 
tina que desenha círculos, apresentada 
no primeiro artigo desta série (página 
581). 

O programa é constituído de blocos 
e rotinas, o que facilita a sua modifica- 
ção para representar ao mesmo tempo 
quatro imagens em vez de uma. 

Desse modo, se quiséssemos desenhar 
um conjunto de quatro cubos, por 
exemplo, precisaríamos especificar suas 
posições na tela e chamar quatro vezes 
a Rotina do Cubo. A posição estaria 
melhor especificada na rotina que trans- 
forma as coordenadas. 

Passemos da teoria à prática. Para 
começar, modifique essa parte do pro- 
grama como mostramos a seguir (mas 
não rode o programa por enquanto): 



8500 XI = Tl * X + T4 * 1 

+ xo 

8510 Yl - T2 * X + T5 * 1 
+ YO 

8520 Zl - T3 * X + T6 * 1 

+ zo 

ma 

8500 X1»T1«X+T4*Y+T7*X0 
8510 Yl-T2*X+T5*Y+T8*YO 
8520 Zl-T3*X+T6*Y+T9+ZO 



8500 LET X1-T1"X+T4"Y+T7+X0 
8510 LET Yl-T2"X+T5*Y+T8+YO 
B520 LET Zl-T3"X+T6*Y+T9+ZO 



As variáveis XO, YO e ZO no final 
dessas três linhas especificam um equi- 
valente, em cada uma das três coorde- 
nadas, para determinar a separação dos 
quatro cubos. São atribuídos vaiores a 
essas variáveis antes de os cubos serem 
desenhados. 

Agora digite essa outra seção de pro- 
grama e rode-a para ver qual é o efeito 
do equivalente: 

mi 

1520 GOSUB 1000 

1530 XO - PP:Y0 - - PP:Z0 - 0 

120 L - 20:PP - 20:N = 2 

150 GOSUB 1500 

1500 XO - - PP-.YO • - PP:Z0 ■ 




Globos, elipses, cubos, estações orbitais: as possibilidades 
criadas pelo programa do toro e pela rotina da grade são 
praticamente ilimitadas. Observe a deformação na perspectiva 
m pontos de fuga muito pró;" — 
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1540 GOSUB 1000 

1550 XO - PP:Y0 - PP:Z0 - 0 

1560 GOSUB 1000 

1570 XO - - PP:Y0 - PP:Z0 ' 

1580 GOSUB 1000 

1590 RETURN 



120 L-10:PP-20:N-2 

150 GOSUB 1500 

1500 XO— PP:YO— PP:Z0-0 

1520 GOSUB 1000 

1530 XO-PP:YO— PP:ZO-0 

1540 GOSUB 1000 

1550 XO-PP: YO-PP: ZO-0 

1S60 GOSUB 1000 

1570 XO--PP: YO-PP:ZO-0 

1S80 GOSUB 1000 

1590 RETURN 



A versão para o MSX é a mesma do 
TRS-Color, exceto pela linha: 
120 L=?0:PP-20:N=2 



120 LET L-20: LET PP-20: LET N 
-1 

150 GOSUB 1500 
1500 LET XO — PP: LET ¥ O— PP : LE 
T ZO-0 

1520 GOSUB 1000 

1530 LET XO-PP: LET YO--PP: LET 

ZO-0 
1540 GOSUB 1000 

1550 LET XO-PP: LET YO-PP : LET 
ZO-0 



1560 GOSUB 100O 

1570 LET XO— PP: LET YO-PP: LET 

ZO-0 
1580 GOSUB 1000 
1590 RETURN 

A linha 120 comem a variável PP, 
que transfere o valor para o equivalen- 
te na linha 1500. 

A linha 150 chama uma rotina para 
desenhar quatro cubos. A sub-rotina es- 
pecifica uma posição, como na linha 
1530, por exemplo, e chama a rotina do 
cubo na linha seguinte, desenhando as- 
sim os quatro cubos. 

Ao rodarmos o programa, teremos 
que fornecer alguns dados. O programa 
pedirá primeiro pelo valor de D (distân- 
cia do plano de projeção). O valor 1000 
será suficiente para começarmos. O pro- 
grama então pedirá para que forneça- 
mos a posição do observador (X, Y e Z). 
Experimente os valores que sugerimos 
a seguir e note como as imagens se dis- 
torcem quando D é pequeno (mas não 
quando ele é grande). Tente usar seus 
próprios valores também, incluindo mi- 
lhares para D e números negativos ou 
para X, Y, e Z: 




AÇÀO BASIC 
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900 
20000 



1000 



o o 

-250 200 
3000 10000 



A grande variedade de vistas possí- 
veis com este programa nos permite fa- 
zer vários experimentos, mas não deve- 
mos nos limitar a modificar apenas os 
valores da posição do observador. A li- 
nha 120 contém variáveis responsáveis 
pelo comprimento dos lados do cubo L, 
pela separação destes (PP) e pelo núme- 
ro de quadrados na grade (N): três va- 
riáveis que podem ser alteradas antes de 
se rodar o programa. 



Embora curto, o programa que aca- 
bamos de inserir é capaz de desenhar 
imagens complexas, pois pode chamar 
qualquer uma das muitas rotinas conti- 
das na listagem. Uma dessas rotinas po- 
deria ser aquela que desenha círculos 
concêntricos (linhas 6000 a 6160), apre- 
sentada no artigo Programação de Grá- 
ficos em 3-D(l), à página 581. Caso ela 
não esteja em seu programa, digite-a no- 
vamente e grave-a em disco ou fita pa- 
ra eventual uso futuro. 

Em seguida, modificaremos o pro- 
grama para que ele chame a rotina do 
circulo, em vez de chamar as rotinas da 
grade, do lado ou do cubo. Apague a 
Unha 120 e acrescente estas linhas: 



[SEI 



GOSUB 6000 



150 H - 20:0 - 18: GOSUB 2000 
2000 T7 - 0:T8 - 0:T9 - 0 
2010 T4 - 0rT5 - 0:T6 - 1 
2040 KA - 2 * PI / N 
2050 KB - 0 

2060 FOR KC - 1 TO INT (N / 



2070 Tl - COS 1KB) :T2 
KB) :T3 - 0 
2080 XS - 0:Y5 
2090 KB = KB + KA 
2100 NEXT KC 
2110 Tl - 1:T2 - 0:T3 
2120 T4 - 0:T5 - 1:T6 
2130 KA - KA / 2 
2140 KB - 0:BB - R 
2150 FOB KC - 1 TO N 
2160 T7 - 0:TB - 0:T9 
OS (KB) 

2170 XS - 0:YS - 0:B 
N (KB) : GOSUB 6000 
2180 KB - KB + KA 
2190 NEXT KC 
2200 RETURN 



ma 




2010 T4-0;T5-0;T6-1 
2040 KA-2*PI/N 
2050 KB-0 

2060 FOR KC-1 TO INT (N/2) 

2070 Tl-COS(KB) :TZ-SIN(KB) :T3-0 

20B0 XS-0 : ¥3-0 : GOSUB 6000 

2090 KB-KB+KA 

2100 NEXT KC 

2110 Tl-l:T2-0:T3-0 

2120 T4-0:T5-l:T6-0 

2130 KA- KA/ 2 

2140 KB-0 : BR-B 

2150 FOR KC-1 TO N 

2160 T7-0:T8-0:T9-RB*CO8(KB) 

2170 XS-0:YS-0:R-RR*SIN[KB) :GOS 

UB 6000 

2180 KB-KB+KA 

2190 NEXT KC 

2200 RETURN 



100 LET XO-0 
-0 

150 LET R-20 

2000 
2000 LET T7-0 
-0 

2010 LET T4-0 



LET YO-0 
LET N-18 
LET T8-0 
LET T5-0 



LET T9 
LET T6 



2040 LET KA-2*PI/N 

2050 LET KB-0 

2060 FOR K-l TO INT (N/2) 

2070 LET Tl-COS KB: LET T2-SIN 

KB: LET T3-0 

2080 LET XS-0: LET YS-0 : GOSUB 
6000 

2090 LET KB-KB+KA 
2100 NEXT K 

2110 LET 11-1: LET T2-0: LET T3 
-0 

2120 LET T4-0: LET T5-1: LET T6 
-0 

2130 LET KA -KA/ 2 

2140 LET KB-0: LET BB-R 

2150 FOR K-l TO N 

2160 LET T7-0: LET T8-0: LET T9 

-RR*COS KB 

2170 LET XS-0: LET YS-0: LET R- 
RR*SIN KB: GOSUB 6000 
2180 LET KB-KB+KA 
2190 NEXT K 
2200 RETURN 

Ao rodar o programa, devemos for- 
necer valores para D, bem como para a 
posição do observador. Com esses va- 
lores, a linha 150 chama a rotina que 
acabamos de inserir e desenha um glo- 
bo. Este é obtido por intermédio do de- 




senho de uma série de elipses (ou círcu- 
los, dependendo da posição do observa- 
dor). Tais elipses formam as linhas de 
longitude (que ligam os pólos do globo) 
e as de latitude, que correm paralelas à 
linha do equador. 

O raio do globo é especificado em R, 
na linha 150, e o número de linhas de 
latitude e longitude, em N; este deve ser 
um valor par e maior do que 2. As li- 
nhas 2000 a 2050 ajustam as variáveis 
para posicionar o globo e para usá-las 
com contadores. O laço entre 2060 e 
2100 desenha as linhas de longitude, e 
o que fica entre 2150 e 2190 traça as li- 
nhas de latitude. 

O eixo do globo corta os pólos e sua 
direção é determinada pelas variáveis 
cujos valores definimos no começo do 
programa. Para verificar como os pó- 
los do globo são posicionados em rela- 
ção aos eixos da tela, estabeleça zero pa- 
ra duas das coordenadas da posição do 
observador (0. 0, 200, por exemplo). De- 
pois, defina valores positivos ou nega- 
tivos para as três coordenadas e veja co- 
mo os pólos se movimentam em relação 
aos eixos. 



O globo é uma das formas mais sim- 
ples; para desenhá-lo, recorremos a uma 
série de elipses, mas o mesmo progra- 
ma contém todos os elementos necessá- 
rios para o desenho de uma forma mais 
exótica — um toro (ou argola). Para 
realizá-lo, precisamos apenas de peque- 
nas modificações na rotina do globo, co- 
mo mostra a listagem a seguir: 



GE GD 



150 El - 10:N = 18 : RT = 20:NZ ■ 
1B: G0SUB 2000 

2040 KA - 2 * Pt / N2;NC - N2 
2045 IF RT - 0 THEN NC = IN' 



nua 



150 R-10:N-18:RT-20:N2-18:GOSUB 

2000 

2040 KA-2*PI/N2:NON2 

2045 IF RT-0 THEN NC-INTCNC/2) 

2060 FOR KOI TO NC 

2080 XS-RT:YS-0:GOSUB 6000 

2130 KA-2*PI/N 

2135 IF RT-0 THEN KA- KA/ 2 




Há alguma forma de se acelerar o 
desenho da estação espacial? 

O modo mais grosseiro de se acele- 
rar o programa consiste em reduzir o 
número de etapas nas rotinas principais 
— a rotina do circulo na estação espa- 
cial e a da grade nos cubos. Contudo, 
esse método reduz a suavidade das 
elipses e altera a estrutura do desenho. 
Uma alternativa melhor seria diminuir 
o número de acessos a essas rotinas. 

Se quisermos, por exemplo, diminuir 
o número de segmentos que cortam o 
tubo de um toro. devemos reduzir os 
valares de R, N, RT e N2 na rotina do 
toro que começa na linha 2000. É ne- 
cessário também que as rotinas mais 
usadas estejam no começo do progra- 
ma e que se usem variáveis em vez de 
números, sempre que possível, O uso 
indiscriminado de comandos GOTO 
também desacelera a execução de um 
programa. 

Talvez a maneira mais fácif de ace- 
lerar esse programa seja omitir o dese- 
nho dos tubos que ligam o toro ao glo- 
bo; faremos isso com um simples des- 
vio IGOTOI no programa. 



150 LET R=10: LET N-18: LET RT 
-20: LET N2-18: G0SUB 2000 
2040 LET KA-2*PI/N2: LET NC-N2 
2045 IF RT=0 THEN LET NC=INT ( 

NC/2) 

2060 FOR K-l TO NC 
2080 LET X9-RT: LET YS-0: GOSUB 
6000 

2130 LET KA-2*PI/N 
2135 IF RT-0 THEN LET KA-KA/2 
2170 LET XS-0: LET YS-0: LET R- 
RT+RR*3IN KB LET N-N2 : GOSUB 
6000 

Rode o programa e defina valores pa- 
ra D e para a posição do observador 
(1000, 200, 200, 200, por exemplo). Des- 
ta vez. R contém o raio interno do tu- 
bo, e o número de anéis é determinado 
por N. Esses anéis são equivalentes às 
linhas de longitude no globo. RT espe- 
cifica a distância entre a origem e o tu- 
bo, e N2 determina o número de linhas I 
que formam o tubo, o que equivale às I 
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COMO MELHORAR A NITIDEZ 

Quando a imagem dos quatro cubos 
é pequena — como acontece sempre 
que os valores para a posição do ob- 
servador (X, Y e Z) são bem maiores 
que o da distância de observação D — 
torna-se difícil perceber o que se pas- 
sa durante a execução do desenho. 
Pode-se melhorar a nitidez inserindo de- 
clarações GOTO em locais apropriados 
ao longo do programa lerttre as linhas 
1 000 e 1 1 70). A mais simples dessas 
declarações seria GOTO 1220. inseri- 
da na linha 1 125 (linha nova) do pro- 
grama dos quatro cubos. 



linhas de latitude no globo. O valor de 
RT deve ser maior que o de R, mas a 
rotina funcionará bem mesmo se isso 
não acontecer. Altere o valor dessas va- 
riáveis e observe o efeito obtido. Se RT 
for zero e N igual a N2, o toro se trans- 
formará numa esfera, como aquela da 
rotina do globo. 



COMO COMBINAR IMAGENS 



Não seria difícil substituir a rotina do 
cubo que desenha quatro imagens jun- 
tas na tela pela do globo ou do toro. Do 
mesmo modo, também seria simples 
chamar qualquer combinação das três 
rotinas e desenhar, por exemplo: cubos 
dentro de um globo ou de uma argola 
ou mesmo um sistema em que uma ar- 
gola contenha um globo que, por sua 
vez, contenha um cubo. Poderíamos 
ainda usar declarações GOTO em cer- 
tas linhas para suprimir os dois últimos 
lados, tornando assim menos confuso o 
desenho. Digite essas linhas e rode o 
programa para ver surgir uma imponen- 
te estação espacial. 

150 GOSUB 3000 

3000 R - 6:N - 12:BT - 40:N2 - 

24: GOSUB 2000 

3030 FOB F - 1 TO 6 

3040 A - (F + .25) * PI / 3:L1 

- 10:L2 - 34:N1 - 12:B - 2:N2 - 
8: GOSUB 3500 

3050 NEXT 

3060 B - 10:K ■ 12:BT - 0:N2 - 

12: GOSUB 2000 

3070 BETUBN 

3500 SA - SIN (A) 

3530 CA - COS (A) 

3540 Tl - - SA:T2 - CA:T3 - 0 

3550 T4 - 0:T5 - 0:T6 - 1 

3560 EA - (L2 - LI) / NI 

3570 EB - LI 

3580 FOB EC - 0 TO NI 

3590 T7 - EB * CA: TB - EB « SA: 

T9 - 0 

3600 XS - Q:YS - 0:N - N2 : GOSU 
8 6000 

3610 EB - EB + EA 
3620 NEXT 

3630 Tl - CA:T2 - SA:T3 - 0 

3640 FOB EC - 1 TO N2 

3650 EA - EC * PI / B 

3660 T7 - H * SA * COS <EA):T8 

- - B * CA * COS (EA) :T9 - B 

* SIN (EA) 
3670 XS - L1:YS - 0:XE = L2;YE 

- 0: GOSUB 9500 
36B0 NEXT 
3690 BETUBN 

Q 

150 GOSUB 3000 

3000 R-6:N-12:RT-40:N2-24:QOSUB 



2000 

3030 FOB F-l TO 6 
3040 A-(F+.25)"PI/3:Ll-10:L2-34 
:N1-12:R-2:N2-8:G0SUB 3500 
3050 NEXT 

3060 R-10:N-12:RT-0:N2-12:GOSUB 

2000 
3070 BETUBN 
3500 SA-SIN(A) 
3530 CA-COS(A) 
3540 Tl— SA:T2-CA:T3-0 
3550 T4-0:T5-0:T6-1 
3560 EA-(L2-L1)/H1 
3570 EB-L1 
3580 FOR EC-0 TO NI 
3590 T7-EB*CA:T8-EB*SA:T9-0 
3600 XS-0:Y3-0:N-N2:GOSUB 6000 
3610 EB-EB+EA 
3620 NEXT 

3630 Tl-CA:T2-SA:T3-0 
3640 FOB EC-1 TO N2 
3650 EA-EC*PI/B 

3660 T7-R*SA*COS<EA) :T8— R"CA*C 

03 (EA) :T9-R*SIN(EA) 

3670 XS-L1:Y8-0:XE-L2:YE-0:GOSU 

B 9500 

3680 NEXT 

3690 RETURN 

150 GOSUB 3000 

3000 R=6:N=12:RT-40:N2=24:GOSUB 
2000 

3030 FOR F-l TO 6 
3040 A=(F+.25)«PI/3:L1-10:L2»34 
:N1-12:R-2:N2-8:G0SUB 3500 
3050 NEXT 

3060 B-10:N-12:BT-0:N2-12:GOSUB 

2000 
3070 BETUBN 
3500 SA-SIN(A) 
3530 CA"COS(A) 
3540 T1--SA:T2-CA:T3=0 
3550 T4=0:T5-0 :T6-1 
3560 KA-ÍL2-LD/N1 
3570 EB-L1 
3580 FOR EC-0 TO NI 
3590 T7-EB*CA:T6-EB*SA:T9=0 
3600 XS=0:YS-0:N=N2:GOSUB 6000 
3610 EB-EB+EA 
3620 NEXT 

3630 Tl-CA:T2-SA:T3-0 
3640 FOB EC-1 TO N2 
3650 EA-EC«PI/8 

3660 T7=R*SA*COS(EA> :T8— R*CA"C 

OS (EA) :T9-fi*SIN(EA) 

3670 XS-L1:YS-0:XE-L2:YE-0:GOSU 

B 9500 

3680 NEXT 

3690 BETUBN 




150 GOSUB 3000 
3000 LET R-6: LET N-24: LET RT- 
40: LET N2-24: GOSUB 2000 
3030 FOR F-l TO 6 
3040 LET A-(F+.25)»PI/3: LET LI 
-10: LET L2-34: LET Nl-12: LET 
R-2: LET N2-8 : GOSUB 3500 
3050 NEXT F 

3060 LET B-10: LET N-12: LET RT 



-0: LET N2-12: GOSUB 2000 
3070 RETURN 
3500 LET SA-SIN A 
3530 LET CA-C0S A 
3540 LET Tl — SA: LET T2-CA: LET 
T3-0 

3550 LET T4-0: LET T5-0: LET T6 
-1 

3560 LET EA- (L2-LD/N1 

3570 LET EB=L1 

35SO FOR E-0 TO NI 

3590 LET T7=EB«CA: LET TB=EB*SA 

: LET T9-0 

3600 LET XS=0: LET YS-0: LET N» 
N2: GOSUB 6000 
3610 LET EB-EB+EA 
3620 NEXT E 

3630 LET Tl-CA: LET T2-SA: LET 
T3-0 

3640 FOR E-l TO N2 
3650 LET EA-E*PI/8 
3660 LET T7-R*SA*COS EA: LET T8 
— H*CA«COS EA: LET T9=R*5IN EA 
3670 LET XS-L1: LET YS-0: LET X 
E-L2: LET YE-0: GOSUB 9500 
3660 NEXT E 
3690 BETUBN 

A extensão de experimentos possíveis 
com o programa de toro é ilimitada. 
Tente alguns números pequenos para D 
(de 100 a 500, digamos), juntamente 
com diversos valores para X, Y e Z; vo- 
cê obterá, assim, diferentes perspectivas 
(especialmente porque os segmentos do 
toro que estiverem muito próximos se- 
rão omitidos). Tente também valores 
grandes para D e observe o que aconte- 
ce com a distorção. 

Agora, como simples desafio, pode- 
ríamos dar um toque final ao programa, 
adicionando cor ao fundo, por exemplo. 
Deixaremos por conta de sua criativida- 
de incluir estrelas e planetas ao redor da 
estação. 



UM DESAFIO PARA DOIS 
MONTAGEM DA TELA 
AS REGRAS DO JOGO 
OS VALORES DAS L ETRAS 
ESTRATÉGIA 



I 



26 PROGRAMAÇÃO DC JOGOS 26 



ADIVINHAÇÃO 




Este jogo de adivinhação de palavras 
agrada a todas as idades, pode ter o 
nível de dificuldade que se queira e é 
muito versátil. Inspirado no "jogo da 
forca", destína-se a dois jogadores. 



o tradicional "jogo da forca" e ião edu- 
cativo quanto ele. Pode ser jogado da 
mesma maneira, esiabelecendo-se um 
assunto, o número de letras das palavras 
ou outro critério que se desejar. 




nos usuais têm um valor bai.xo. A frase 
a ser adivinhada aparece como uma se- 
quência de asteriscos. 

No rodapé da tela encontram-sc as 
instruções e, também, um espaço para 
os comandos e palpites. 



O jogador tem três opções dc joga- 
da: comprar letras (ou espaço), adivi- 
nhar uma letra em determinada posição, 
ou adivinhar a frase ioda. 

No inicio da jogada, uma boa opção 
é comprar um espaço — se suspeitar que 
a frase tem mais de uma palavra, é cla- 
ro. Vogais são caras, mas aparecem com 
frequência. As letras mais baratas apa- 
recem muito menos e você corre o risco 
de não esclarecer nada com tias. Sem- 
pre é mais fácil chegar à frase correia 
quando sc tem algumas consoantes — 
portanto, não se preocupe demais com 
as vogais. 

Quando a frase começar a tomar for- 
ma, provavelmente você quererá adivi- 
nhar uma letra em determinada posição. 
Tendo uma palavra como S^U, por 
exemplo, a letra O será um bom palpi- 
te. É nesse momento que se pode ganhar 
pontos. Colocando uma leira na posi- 
ção correia, você ganha o seu valor em 
pontos. Se errar, perde apenas metade 
do valor. Pressione XX para sclecionar 
csia opção e dar o seu palpite. 

Você pode. também, icr uma súbita 
inspiração e tentar acertar a frase toda. 
Nesse caso, deve pressionar ZZ e escre- 
ver a frase. Sc ela estiver correia, o va- 
lor dc todas as letras que ainda não ti- 
nham sido descobertas será acrescenta- 
do ao seu placar. Sc você errar, perderá 
50 pontos. 

Digite a primeira parle do programa. 
Estas linhas fazem o computador aeci- 



Alguns jogos para computador não 
são apenas recreativos — como os de 
aventura — , prestandp-se muilo bem 
para fins educativos. É o caso do que 
apresentamos aqui, inspirado no conhe- 
cido "jogo da forca". 

Este, adaptado ou não para o com- 
putador, ajuda não só a ampliar o vo- 
cabulário do jogador, assim como seus 
conhecimentos gerais sobre vários temas 
(já que é usual a definição prévia de um 
assunto sobre o qual as frases ou pala- 
vras versarão). 

O jogo de 1NPUT, desiinado a duas 
pessoas, também tem como objetivo a 
adivinhação de palavras ou frases. É 
mais interessante e mais diverlido que 




Inicialmente, digite o nome dos dois 
jogadores. Em seguida, escolha o núme- 
ro de palavras da frase que cada joga- 
dor escreverá. Observe que, muitas ve- 
zes, frases mais longas são mais fáceis 
de se adivinhar, devido ao maior núme- 
ro dc letras que aparecem. 

Depois de ter escolhido o número de 
palavras, defina o número de jogadas 
que irão constituir a partida — isto é, 
quantas palavras cada jogador terá pa- 
ra adivinhar. 

O primeiro jogador deve, então, pen- 
sar em uma frase e escrevê-la no com- 
putador. O adversário nào precisa estar 
ausenle enquanto você digita sua frase, 
pois as leiras nào aparecerão na tela. 
Mas, confiando em seu oponente, você 
poderá optar por ver as letras, o que lhe 
dará a certeza de que não cometeu ne- 
nhum erro de digitação. 

Deixe apenas um espaço entre cada 
uma das palavras da frase. No caso dc 
um único vocábulo, nenhum espaço c 
permitido. O (amanho máximo de cada 
frase é dc quarenta caracteres no micro 
Apple c no TK-2000, 64 no Spectrum c 
no TRS-Color e 78 no MSX. 

Quando terminar a digitação, pres- 
sione a tecla < KNTKR > para que a te- 
la principal apareça. Em seu lopo, você 
dará, então, o nome dos jogadores e o 
número dc pontos dc cada um — 200, 
para começar o jogo. 

Abaixo do placar, há uma tabela in- 
dicando os valores das letras. As de uso 
frequente têm valor mais alto. As me- 
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tar todos os dados para iniciar o jogo. 
Mas com ela você não irá muito longe. 
A parte final — que contém as rotinas 
que lêem os palpites, fazem as correções 
e contam os pontos — fica para o pró- 
ximo artigo. 

Não se esqueça de gravar o programa. 



10 LET RS-"PALAVRA" : LET W-14 
: LET d-0: LET f-1: LET gS-"" 
: LET g=0: LET k = 0: LET gS-"" 
: LET ta-200: LET tb-200: LET 
tC-0: LET b-0: POKE 23609.50; 
POKE 23658,8: LET i$-"": LET 
}$'": LET zS-"": LET c$-'" 
20 FOB n-0 TO 7: READ y: POKE 
USB "a"+n,y: NEXT n 
30 DATA 255,129,129.129,129, 
129,129.255 

40 INPUT "NOME DO PRIMEIRO JO 
GADOR ? (ATE 7 LETRAS) * . 

LINE a3 

50 INPUT "NOME DO SEGUNDO JOG 
ADOR ? (ATE 7 LETRAS) " 

. LINE bs 

60 IF LEN aS>7 OR LEN bS>7 

then goto 40 
i 70 cls : input "quantas palav 
Iras por frase? u~9)-. line cs 



80 TF LEN cSOl THEN GOTO 70 
90 IF CODE cg<49 OR CODE c$> 
57 THEN GOTO 70 

100 LET c-UAL cS 

110 INPUT " NUMERO DE JOGADAS ? 

(1 a 9)", LINE tS 

120 IF LEN t$<>l THEN GOTO 

110 

130 IF CODE tS<49 OR CODE t$> 

57 THEN GOTO 110 

140 LET t-VAL t$ 

150 IF cM THEN LET jS»"S": 

LET l3-"COM UM ESPAÇO ENTRE CA 

DA" : LET rS-"FRASE" 

160 PRINT aS:",E SUA VEZ DE JO 

GAR. "'' "INTRODUZA SUA FRASE DE 

"íCl" PALA - VRA";jS;".AS LETR 

AS QUE VOCÊ INTRODU-ZIB SERÃO 

INVISÍVEIS, MAS SE VOCEQUISER V 

ER ENTÃO PRESSIONE *0'. PARA C 

ONTINUAR. PRESSIONE 1." 

170 LET kS-INKEYS: IF k3-"" 

THEN GOTO 170 

190 IF k$-"0" THEN POKE 23624 
,56: INPUT LINE 6$ ; CLS : 
GOTO 220 

200 IF kS-"l" THEN POKE 23624 
.63: INPUT LINE a$ : CLS : 
POKE 23624,56: GOTO 220 
210 GOTO 170 
220 LET 1-LEN sS 

230 IF 1=0 THEN PRINT "ENTRAD 
A ILEGAL. TENTE DE NOVO": 
PAUSE 100: CLS : GOTO 160 



240 IF 1>64 THEN PRINT "ENTRA 
DA MUITO LONGA. TENTE DE NOV 
O": PAUSE 100: CLS : GOTO 160 
250 FOR n-1 TO 1 : IF aS (n) - 
CHRS 32 THEN LET d-d+1 : GOTO 
270 

_J260 IF CODE BS(n)<65 OR CODE 
■sS(n)>90 THEN PRINT "LETBA IL 
IEGAL. TENTE DE NOVO": PAUSE 
T100: CLS : LET d-0: GOTO 160 

270 IF c-1 AND d-1 THEN PRINT 

"NAO HA ESPAÇOS DENTRO DE UMA 
ÚNICA PALAVRA. TENTE DE NOV 

O.": PAUSE 100: CLS : LET d-0: 
GOTO 160 

280 NEXT n 

290 IF d<>c-l THEN PHINT "VOC 
E DEVE INTRODUZIR "|Ci" PALAVR 
AS "ilSi". TENTE OUTRA VEZ": 
PAUSE 100: CLS : LET d-0: GOTO 
160 

300 LET aS-"* 

3)0 FOR n-1 TO li LET zS-zS+"« 
" : NEXT n 

320 PBINT INK 1 i AT 0,Oí"SCORE 
/";a$: PRINT INK 1 ; AT 0,16;"3 
CORE/";bS: PRINT PAPER 2. INK 
6 j AT 1.6;taiTAB 22 1 1 b i TAB 31:" 

330 PRINT AT 3,7; "VALOR DOS CA 
RACTEBES" 

340 FOR n-0 TO 26: READ gS : 
LET <j3-g.3+g3: NEXT n: PBINT qS 
: BESTORE 900 

350 PRINT INK 1:AT 12.0;"A 
r3;- QUE *:b3;" TEM QUE ADIVI 
NHAR CONTEM " ; L i " CARACTERES": 
PRINT PAPER 2; INK 6 ; z$ 
360 INPUT "VOCÊ QUER COMPRAR U 
M CARACTER PELO PREÇO EXIBID 
O NA TABELA? FACA A ESCOLHA 
DO CARACTER. SENÃO. TECLE 

XX PARA ADIVINHAR UM CARACTER 
OU ZZ PARA ADIVINHARA FRASE T 
ODA.", LINE dS 
1000 DATA *A-20 "."B-10 
,-C-lO ","D-12 "."E-20 
",-F-0B •."G-12 -."H-0S I 

1010 DATA -1-20 -,"J-04 
.-K-06 - .-L-10 "."M-10 
","N-10 •,"O-20 ","P-10 

","q-02 ",*r-12 -,-s-: 

2 

1020 DATA -T-12 ","U-20 
,-y-08 ".-W-08 ","X-04 

" , "Y-08 " , "Z-02 " , "<GRAP 
HICS A>-20 



■ ■■■ 



5 CLEAR 1000 
10 RS- " PALAVRA" : W-14 : F-l : TA- 200 
: TB-200 

15 P1-PEEKÍ359) : P2-PEEK ( 360) :P3 
"PIK (361) 
40 CLS: LINE INPUT"NOME DO PBIHE 
IRO JOGADOS (MAX 7 LETRA 

S) ?"iA3 

50 PRINT: LINE INPUT* NOME DO SEQ 
UNDO JOGADOR (MAX 7 LET 

RAS) ?-;BS 

60 IF LEN(A3)>7 OR LEN (B3)>7 T 
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MANIPULAÇÃO DE CORDÕES 

Os comandos BASIC capazes de 
gir sobre variáveis alfanuméricas 
constituem a chave do sucesso do pro- 
gramador interessado em jogos e apli- 
cativos que manipulem palavras. 

Comandos como RIGHTS, LEFTS e 
MID$ permitem a "leitura" do conteú- 
do de uma cadeia de caracteres. E te 
S ainda funções como LEN, CHR$. 
STRS e STRINGS. que tornam possível 
a criação de novos cordões ou s trans- 
formação dos antigos. 

Observe que os comandos seguidos 
por um cifrfio — geram r 
cordões, enquanto os comandos sem 
este sinal resultam num valor numéri- 
co que corresponde ao operando. 

HEN 40 

70 CLS:LINE INPUT" ESCOLHA O NIV 

EL DE DIFICULDADE (NUMERO DE P 

ALAVRAS/FRA8E 1-9) ?* ;C3 

S0 IF LEN<C$)<>1 THEN 70 

90 IF C3<"1" OR CS>"9" THEN 70 

100 C-VALf.CS) 

110 FRINT : LINE INPUT 'NUMERO DE 

JOGADAS (1-9) ? "iT9 
120 IF LENITSJOl THEN 110 
130 IF TS<"1" OR T3>"9" THEN 11 
0 

140 T-VAL(T$) 

150 IF C>1 THEN J$-"S" : IS-"COM 
UM ESPAÇO ENTRE CADA" : RS"* FRASE 



270 IF C-l AND D-l THEN PRINT"N 
AO EIA ESPAÇOS DENTRO DE UMA 
ÚNICA PALAVRA! TENTE DE NOvO":G 
OSUB 950:CLS:D-0:OOT0 160 
280 NEXT N 

290 IF DOC-1 THEN PRINT "VOCE 
PRETENDE INTRODUZIR" I C[ "PALA-VB 
A8 " ; IS : PRINT 'TENTE DE NOVO": 00 
SUB 950:CLS:D-0:GOTO 160 
300 25-"" 

310 FOR N-l TO L:Z9-Z5+"«":NEXT 



920 DATA "T-12 "."U-20 
"V-08 ","U-08 ","X-04 
"."¥-08 ","Z-02 ","•-2' 



330 PRINT «69 
TERES" 

340 FOR N-0 TO 26 : READ 03:03-08 
+03:NKXT N : PRINT QS : RESTOHE 
350 PRINT «320, "A "[RS:* CONTEM 
"iL;"L8TRAS":PRINT Z3 
360 PRINT «416, " * i : LINE INPUT ■ 
XX-ADIVINHAF LETRA 
22-ADIVINHAR A FRASE 
A-Z-COHPRAR O CARACTER ?"íD 

3 

900 DATA "A-20 " . "B-10 
"C-10 ","D-12 ","E-20 
","F-08 ", "0.-12 ",*H-10 

910 DATA"I-20 " , "J-04 
K-06 "."L-10 "."H-10 
,"N-10 ","O-20 ","P-10 
","Q-02 "."R-12 ","8-12 



5 CLEAR 2000 : KEYOFF : COLOR 15,4. 
4 

10 RS-"palavra":W-14:F-l:TA-200 
: T8-TA 

40 CLS:LINEINPUT"No*e do jogado 
r 1 <max 9 letrae) ? " |A3 

VALOR DOS CARAC 50 PRINT : LINE INPUT"No»e do jog 
idor 2 (max 9 letras) ? ';B 



60 IF LEN(A8)>9 OR LEN(B3)>9 TH 
EN 40 

70 CLS:PRINT"âual o nível da dl 
ficuldade" : INPUT" (minero de pai 
avraa 1-9) ":C3 

90 IF C3<"1" OR C3>"9" THEN 70 
100 C-VAL (C3) 

110 PHINTrINPUT"Nilii«ro dc jogad 
aa (1-9) "iTS 

130 IF T3<"1" OR TS>"9' THEN 11 

0 

140 T-VAL(TS) 

150 IF C>1 THEN JS-"b" : IS-"co» 
um espaço entre elas" :R3""FRA3E 

160 CLS:PRINTA3i". é a aua vei. 



Z DE JOB 
ZA SUA 1 
|J> 1 



155 CLS 

160 PRINT Ml", E SUA VEZ 1 
CAR-: PRINT: PRINT' INTRODUZA 1 
FRASE DE "|C|" PALA-VRA*. 
165 PRINT:PRINT*PRESSIONE'0'PAR 1 
A VER AS LETRAS OU '1' PARA CO ' 
NTINUAR . . .":PRINT 
170 K9-INKEY3:IF K3-" THEN 170 
190 IF K3-"l" THEN PRINT "? "{: 
POXE 3S9,LH86:POKE 360,32:POKE 
361,57:LINE INPUT 3$ : POKE 359, P 
l:POKE 360. PZ: POKE 361 . P 3 : GOTO 
220 

200 IF KS--0- THEN LINE INPUT * 

? ";33:OOTO 220 

210 OOTO 170 

220 L-LEN(SS) .-PRINT 

230 IF L-0 THEN PRINT " ENTRADA 

ILEGAL - TENTE DE NOVO':OOSUB 9 

50:CL3:OOTO 160 

240 IF L>64 THEN PRINT" ENTRADA 
MUITO LONGA- FACA DE NOVO*:GOSUB 

950:CLS:OOTO 160 
250 FOR N-l TO L:IF HID3(SS,N,1 
)-CHR3(32) THEN D-D+l:GOTO 270 
260 IF MIDS(S3.N. 1)<"A" OR MID3 
(83,H.1)>"Z" THEN PRINT "CARACT 
ER I LEO AL - TENTE DE NOVOVGOSU 
B 950 : CLS : D"0 : GOTO 160 
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" ; PRINT" Di gi te Bua frase de";C; 
"palavra* ; JS: " - " 
165 PRINT:PRINT"Se desejar ver 
aa letras digitadas, pressione 
<0>, senão pressione <l>."i 
170 KS-INKEYS:IF KS-"" THEN 170 
175 ir KS<>"1" AND KS<>"0" THEN 
170 

180 IF KS-"0" THEN 200 ELSE PRI 
NT : PRINT"? "i 

190 KS-INKEYS:IF K3-"" THEN 190 

195 IF KSOCHR3U3) THEN S3-S9+ 

K3:GOTO 190 ELSE 220 

200 PRINT : LINE INPUT"? ";SS 

220 L-LEN<SS) : PRINT 

230 IF L>0 THEN PRINT"Entrada l 

legal - repita" :GOSUB 950:CLS:G 

OTO 160 

240 IF L>78 THEN PRINT" Entrada 
muito longa - repita" : GOSUB 950 
:CLS:GOTO 160 

250 FOR N-l TO L:IF MIDStSS.N.l 
)=CHR3(32) THEN D-D+1:G0T0 270 
260 IF M1D3(S3.N,1X"A" OR MID3 
(SS.N, 1)>"Z"ANDMIDS(SS.N,1K>"C 
"THEN PRlNT"Caracter ilegal - r 
epita":GOSUB 950 :CLS:D-0: GOTO 1 
60 

270 IF C-l AND D-l THEN PRINT" E 
spaços não são permitidos e» um 
a Única palavra - repita" : 

COSUB 950 :CLS:D-0: GOTO 160 
280 NEXT 

290 IF DOC-1 THEN PRINT"Você d 




É possível transformar o programa 
em um jogo de palavras cruzadas? 

Embora nosso programa não possa 
ser transformado num jogo desse tipo, 
certamente mostra o caminho para 
que o leitor elabore seu próprio 
programa. 

Num jogo de palavras cruzadas, o 
jogador também deve descobrir quais 
são as letras de palavras "escondi- 
das". A diferença é que no nosso jogo 
precisamos descobrir os caracteres de 
i cordão, enquanto no de palavras 
cruzadas, buscamos elementos de uma 
matriz alfanumérica. 

O tipo de pista que se dá ao jogador 
também é diferente. As instruções de 
um jogo de palavras cruzadas podem 
ocupar um espaço tão grande quanto 
os textos de um pequeno jogo de aven- 
tura. A disposição espacial das letras 
na tela também é muito importante. No 
programa, devemos correlacionar as 
coordenadas X e Y da tela aos núme- 
ros de linha da matriz de letras. 



eve digitar" iC; "palavras ";IS;* 
- repita" iGOSUB 950:CL3:D-0:OO 
TO 160 
300 ZS-" " 

310 Z3-STRING3(L,***) 
320 CLS:PRINTASiTAB(25)BS:PRINT 
TA; "pontos" ;TAB(25) ; TB ; "pontos" 
330 LOCATE 7 , 3 : PRINT"Valores do 
s caracteres" 

340 QS-"":F0R N-l TO 28 : READ 03 
: QS-gS+GS+STRINGS (4+ {N/5-INT £N/ 
5) ) ,32) : NEXT: PRINTQ3 : R ESTORE 
350 LOCATE 0,11:PRINT"A ";RS;" 
conte»- ; L : "letras" : PRINTZ3 
360 LOCATE 0,21: PRINT3PC <77) ; LO 
CATE 0,21:PRINT"XX-Adivinha let 
ra ZZ-Adivinha f rase" : INPUT" 
A-Z Cosjpra letra " ; D3 
900 DATA A-20.B-08,C-12, Ç-06.D- 
20,E-20.F-12,G-08,H-08, 1-16, J-0 
8,K-02,L-10.M-12,N-12 
910 DATA O-20,P-08,Q-OB.R-12.S- 
20,T-12.U-16,V-08,U-02,X-08,Y-0 
2,Z-06,_-20 



[10 



10 RS - "PALAVRA":W - 14:F - 1: 
TA - 200-.TB - TA 

40 HOME ! INPUT "NOME DO JOGAD 

OR 1 (MAX 9 LET) " ;A9 

50 PRINT ! INPUT "NOME DO JOGA 

DOR 2 (MAX 9 LET) " ; B3 

60 IF LEN (AS) > 9 OR LEN (B 

9) > 9 THEN 40 

70 HOME : PRINT "NÍVEL DE DIFI 
CULDADE" : INPUT " (NUMERO DE PAL 
auras 1-9)? ";C9 
90 IF C9 < "1" OR C3 > "9" THE 
N 70 

100 C - VAL (C9) 

110 PRINT : INPUT "NUMERO DE J 
OGADAS (1-9)? ";T9 
130 IF T9 < "1" OR T9 > "9" TH 
EN 110 

140 T - VAL (T9) 

150 IF C > 1 THEN J3 - "S':I9 

- "COM UM ESPAÇO ENTRE ELAS":R3 
- "FRASE" 

160 HOME : PRINT AS", E A SUA 
VEZ.": PRINT "DIGITE SUA FRASE 
DE "iC?" PALAVRA" ; JS ■ " ■ " 
165 PRINT : PRINT "SE DESEJAR 
VER AS LETRAS DIGITADAS, PRESSI 
ONE <0>, SENÃO PRESSIONE <1>."; 

170 GET K3: IF K9 < > "1" AND 

KS < > "0" THEN 170 
180 K - VAL (KS) I PRINT : PRIN 
T 

185 SS - * " 

190 GET KS: IF K - 0 THEN PRI 
NT KS ; 

200 IF KS - CHR9 (8) AND LEN 
(33) > 1 THEN S3 - LEFT9 (33 . 
LEN (SS) " 1) : GOTO 190 

210 SS - 33 + KS: IF KS < > C 

HRS (13) THEN 190 

220 SS - MID9 (SS.2, LEN (SS) 

- 2) :L - LEN (SS) 

230 IF L - 0 THEN PRINT : PRI 
NT "ENTRADA ILEGAL - REPITA" ; C 
HRS (7);: GOSUB 950: HOME : GOT 



O 160 

240 IF L > 40 THEN PRINT : PR 
INT "ENTRADA MUITO LONGA - REPI 
TA"i CHRS <7);: GOSUB 950: HOME 

: GOTO 160 
250 FOR N - 1 TO L: IF MID3 ! 
SS.N.l) - CHRS (32) THEN D - D 
+ 1: GOTO 270 

' Ofl k 

NT : PRINT "C AR AT ER ILEGAL - CE 
PITA": GOSUB 950: HOME :D - 0: 
GOTO 160 

270 IF C - 1 AND D-l THEN P 
RINT : PRINT "ESPAÇOS NAO SA0 P 
ERMITIDOS EM UMA ÚNICA PAL 

AURA ! - REPITA" : GOSUB 950: HOH 
E :D - 0: GOTO 160 
280 NEXT 

290 IF D < > C - 1 THEN PRIN 
T : PRINT "VOCE DEVE ENTRAR ";C 

;" PALAVRAS ";IS:" ~ REPITA": C 
OSUB 950: HOME :D - 0: GOTO 160 I 

300 ZS - " " 

310 FOR N - 1 TO L;ZS - ZS + " 
*": NEXT 

320 HOME : PRINT AS: TAB ( 25); 
B3: PRINT TAs" PONTOS"; TAB ( 25 
) i TB ; " PONTOS" 

330 VTAB 4: HTAB 8: PRINT "VAL 

ORES DOS CARACTERES" ; 

340 QS - " ": FOR N - 1 TO 28: 

READ GS:QS - QS + GS + " *! 

NEXT : HTAB 40: PRINT OS: RESTO 

RE 

350 VTAB 12: PRINT "A ";RSi" C 
ONTEM ";Li" LETRAS";: HTAB 40: 
PRINT ZS 

360 VTAB 22: CALL - 958: VTAB 
22: PRINT "XX-ADIVINHA LETRA 
ZZ-ADIVINHA FRASE": INPUT " 
A-Z COMPRA A LETRA ";DS 
900 DATA A-20.B-08.C-12.D-20 
.E-20.F-12.G-08.H-08 
910 DATA I-16.J-Oa.X-02.L-10 
,M-12,N-12,O-20.P-O8.Q-OB,R~12, 
S-20 

920 DATA T-12.U-16.V-0B.W-02, 
X-04.Í-02," ",Z-06,_-20 

O programa é muito parecido para 
todos os microcomputadores, já que 
não há gráficos que requeiram coman- 
dos especiais para montá-!os. Apenas o 
início difere um pouco em alguns casos. 
No MSX e no TRS-Color é preciso re- 
servar espaço para as variáveis alfanu- 
méricas que serão usadas. 

A linha 10 define todas as variáveis 
necessárias para o jogo. No TRS-Color, 
os PEEK da linha 15 são utilizados mais 
tarde para evitar que algumas letras apa- 
reçam na tela. As linhas 20 e 30 do Spec- 
trum definem um UDG em branco pa- 
ra a tabela de letras. 

As linhas 40 e 70 dão as mensagens 
iniciais do jogo. O nome dos jogadores 
é chamado pelas linhas 40 e 50. A linha 
60 verifica se eles não são muito com- 
pridos para o espaço disponível na tela. 




O número de palavras da frase é esco- 
lhido na linha 70. 

As linhas 80 a 100 fazem verificações 
com a finalidade de se certificar de que 
o número de palavras por frase está den- 
tro dos limites do programa. 

Esse número é representado pela va- 
riável CS. A linha 80 (quando existen- 
te) verifica se a entrada é de apenas um 
caractere; a linha 90 checa se o valor di- 
gitado está entre os números 1 e 9. A li- 
nha 100 converte esse valor para uma 
variável numérica. 

As linhas 1 10 a 140 estão relaciona- 
das ao número de jogadas escolhido. A 
linha 110 apresenta a mensagem e ob- 
tém a resposta (variável TS). As linhas 
120 e 130 são similares às linhas 80e9O. 
A linha 140 converte o valor para uma 
variável numérica. 



Se a frase for constituída de mais de 
uma palavra, a linha 150 diz ao joga- 
dor que coloque apenas um espaço en- 
tre cada palavra. R$ é definida como 
"FRASE" para uso posterior. 

O programa passa, então, para a roti- 
na de entrada da frase que um dos joga- 
dores deverá adivinhar. Ela vai da linha 
160 até a 220 e fornece instruções para 
o jogador que vai digitar a frase. Se ele 
selecionar 0, a frase aparecerá na tela; 
caso contrário, ela permanecerá invisí- 
vel. A frase é armazenada na variável S$. 

As linhas 230 a 290 conferem a frase 
para verificar se está de acordo com as 
regras. Se ela não tiver nenhum carac- 
tere, isto é, se a tecla <ENTER> foi 
pressionada antes de se digitar qualquer 
letra, a linha 230 anuncia uma entrada 
ilegal e pede que se repita a operação. 



A linha 240 verifica o tamanho da frase 
e a 250 o número de espaços (que deve 
ser um a menos que o número de pa- 
lavras). 

As linhas 260 e 270 procuram carac- 
teres ilegais. Observe que apenas letras 
maiúsculas serão aceitas, sem acento. 
No MSX, pode-se usar o "Ç". 

As tinhas 300 e 310 são encarregadas 
de definir a variável Z$, que contém a 
sequência de asteriscos de número igual 
ao de letras de S$. 

A rotina final, das linhas 320 a 360, 
monta o que falta da tela principal, len- 
do a tabela de valores de linhas DATA 
e colocando a tabela na posição adequa- 
da. A sequência de asteriscos também 
é posicionada. A linha 360 apresenta as 
opções para o jogador que vai adivinhar | 
a frase. 
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a P^I^^^^IP (c* IPfl 11 Apresentamos aqui novas rotinas 

APERrcICUc seU »«<»-^»*^ e « 

— tornarão o programa mais eficiente, 

BANC© DE DADOS STÍSSU**. 
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COMO MELHORAR AS ROTINAS ■ 


BUSCA DE MÚLTIPLAS 




JÁ EXISTENTES 
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IMPRESSÃO CONTINUA ■ 


0 USO DO CONTROLADOR 



■ UMA NOVA ORGANIZA ÇÃO DE DISCOS 



O programa de banco de dados que 
desenvolvemos nos artigos das páginas 
68 e 81 é muito útil para armazenar in- 
formações. Não importa que sejam de- 
talhes de seu passatempo predileto, re- 
sultados de uma pesquisa, endereços de 
amigos e clientes ou qualquer outro ti- 
po de dado. Devidamente arquivados, 
eles poderão ser consultados, corrigidos, 
alterados, apagados e mesmo impressos 
em papel. 

Como qualquer outro programa de 
banco de dados, o nosso também não 
é perfeito para todas as aplicações pos- 
síveis. Para que você possa adaptá-lo da 
melhor maneira às suas necessidades, 
apresentamos algumas novas rotinas as- 
sim como sugestões para o aperfeiçoa- 
mento das já existentes. As rotinas, di- 
ferentes para cada computador, serão 
examinadas separadamente. 




Para os usuários do Sinclair Spec- 
trum, selecionamos duas rotinas: uma 
para a entrada continua de registros e 
outra para impressão contínua. 



ENTRADA CONTÍNUA 



Estas linhas lhe permitirão dar entra- 
da aos registros continuamente, sem 
precisar retornar ao menu. Elas impe- 
dem também que um cordão nulo — 
que provocaria a volta ao menu — seja 
aceito. Pressione <ENTER> quando 
completar a entrada dos dados. 

2000 CLS : LET C-V 
2110 FOR N-V TO A: PRINT INVER 
SE V;AT V+N*2 , 0 ;N$ (N) : AT V+N*2, 
12; FLASH V;*?": INPUT "(ate " ; 
A(N)i" caracteres)", LIHE ASÍC, 
B<N}+V TO BÍN+V)): IF N-V AND A 
3(C,B{N)+V)-CHBS 32 THEN RETUfi 
N 

2115 PRINT AT V+N*2 , 1 2 ; AS (C , B (N 
)+V TO B(N+V)) : NEXT N 
2120 FOR F-V TO 150: NEXT F: IF 
C-V THEN GOTO 2000 
2140 IF AS(C)>-AS (C-V) THEN GO 
TO 2000 

2150 LET X$-A3(C): LET AS (C) -AS 
(C-V): LET AS(C-V)-XS: LET C-C- 
0: IF C-V THEN GOTO 2000 



IMPRESSÃO CONTÍNUA 



Como está, o programa possibilita a 
impressão apenas do registro em exame. 
Para imprimir a lista inteira, será neces- 
sário passar por todo o arquivo e co- 
mandar a impressão. Esta nova rotina 
faz o trabalho por você, iniciando pelo 
registro que está sendo exibido e impri- 
mindo todos os seguintes até o fim da 
lista. Se quiser imprimir todos os regis- 
tros, certifique-se de que está no regis- 
tro 1, antes de iniciar o processo. Para 
interromper a listagem, pressione qual- 
quer tecla. 

120 LET OP=l 
3015 IF D-V-R THEN I.ET D-D-V : 
IF OP-6 THEN LET OP-1 
3020 IF A$(D,V)-CHRS 32 THEN L 
ET D-D-V: IF 0P«6 THEN LET OP- 
1 

3085 IF OP-6 THEN LET D=D+V: G 
OTO 3010 

4060 IF D>R THEN LET D-PM: IF 

OP-6 THEN LET OP-1 

4080 IF AS(D,V)-CHR5 32 THEN L 

ET D=PM: IF OP-6 THEN LET OP-1 

4165 IF OP-6 THEN LET MO-V: LE 

T D-D+MO: GOTO 4060 

9502 IF OP-6 AND INKEYS-" " THEN 

COPY : RETURN 
9505 PRINT INVERSE V : AT 19, U;" 
impressão (C) ont inua" ; TAB 31j" 

95B5 IF VS="C" THEN COPY : LET 
OP-6 




Apresentamos quatro rotinas para o 
seu TRS-Color: impressão contínua, 
reordenação do arquivo, procura por 
múltiplos campos e adaptação para 
acionadores de disco. 



IMPRESSÃO CONTÍNUA 



Com esta rotina, você poderá impri- 
mir todos os registros de uma só vez. Se- 
lecione a opção de impressão e escolha 
entre impressão contínua ou registro 
único. A impressão começa no registro 
que está sendo exibido na tela e vai até 
o fim da lista. 

Se você quiser imprimir todo o arqui- 



vo, não se esqueça que deve começar 
com o registro 1. 

1050 PRINT «385, "NUMERO DE CAMP 

OS (1-8) ?"i 

1060 INS-INKEYS:IF INS<*1" OR I 
NS>"B" THEN 1060 
1070 A-VAL(INS) :DIM AtA).NS(A) 
5070 IF D>NR AND G-l THEN G-0:C 
H--1 : CP-0 ELSE IF D>NR THEN CP- 
0:GOTO 5230 

5105 IF CP-1 GOSUB 10040:GOTO 5 
160 

5210 GOSUB 10 000 . GOTO 5160 
6025 IF CP-1 GOSUB 10040:GOTO 6 
080 

6130 GOSUB 10000: IF CP-1 THEN 
6080 ELSE 6030 
6140 IF D>NR THEN D-l:CP-0 
10000 PRINT «449," AJUSTE A IHP 
RESSORA cONT" :STRINGS (36, 32 

) ; 

10010 IF INKEY$<>"C" THEN 10010 

10020 PRINT «448, "CONTINUA OU s 

OMENTE UM REGISTRO?" ; 

10030 INS-INKEY3:IF IN3<>"C" AN 

D INSO-S" THEN 10030 

10035 IF IN3-"C" THEN CP-1 



REORDENAÇÃO 00 ARQUIVO 



O programa original faz a ordenação 
dos registros sempre pelo mesmo cam- 
po (o primeiro). A nova alternativa, que 
aparecerá com o número 8 no menu, • 
permite que o campo-chave para a orde- 
nação seja mudado. Depois da mudan- 
ça, o arquivo é reordenado e o campo- 
chave passa a ser o primeiro da lista. 
105 PRINT «3B8.-8-REORGANIZAR C 
AMPOS" 

120 INS-INKEYSiIF IN3<"1" OR IN 
3>"8* THEN 120 

150 ON IN GOSUH 1000,2000.6000, 
5000 , 7000, 8000 ,9000,11000 
11000 IF A-l THEN PRINT" NAO PO- 
SSO REORGANIZAR 1 CAMPO!":FOR K 
-1 TO 5000:NEXT:RETURN 
11010 PRINT "NUM. DO CAMPO" . "NOM 
E" 

11020 FOR N-l TO A: PRINT N.NStN 
) : NEXT 

11030 PRINT : PRINT" DIGITE O NUM 
ERO DO NOVO CAMPO CHAVE (2 A" 
;Ai">"; :INPUT NC 

11040 NC-INT(NC) :IF NC<2 OR NO 
A THEN CLS:GOTO 11010 
11050 CLS: PRINT" TROCANDO E ORD 
ENANDO CAMPOS" JQ 
11060 TS-NSU) :N3(1)-N3(NC) :N3Í 
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NC]-T5:T-A(1) :A(1)-A(NC) :A(HO- 



11080 POR N-l TO NR-1:K-N 

11090 FOR J-N+l TO NR 

11100 IF AS(J.1KAS(K,1) THEN K 

-J 

11110 NEXT:IF MOK TH EH FOR C-l 
TO A:T8-A8(K.C) : A9 (K , C) "AS (N, C 
)-TS:NEXT 
11120 NEXT : RETURN 



PROCURA POR MÚLTIPLOS CAMPOS 



Esta nova opção permite que você 
busque mais de uma informação por 
vez. Quando se seleciona a rotina de 
busca a partir do menu principal, deve- 
se responder, para cada campo, o que 
será procurado. Você pode procurar por 
quantos campos desejar. Se um deles 
não lhe interessar, simplesmente tecle 
<ENTER> e vá em frente. 




Em seguida, o computador pergun- 
tará se os dados especificados deverão 
estar presentes em todos os registros ou 
não. Se sua resposta for SIM, apenas os 
registros que contenham todos os dados 
especificados serão mostrados. Caso vo- 
cê responda NÂO, qualquer registro que 
contenha pelo menos um dos dados se- 
rá exibido. Se, por exemplo, você soli- 
citar o nome MARIA para o campo 1 
e CAMPINAS para o campo 3, apenas 
pessoas que se chamem Maria E residam 
em Campinas serão apresentadas caso 
você tenha respondido SIM à pergunta 
anterior. Caso contrário, todas as pes- 
soas que se chamem Maria OU residam 
em Campinas serão listadas. 

5000 PRINT #B,B9i"opc*o";B9:"de 
■ iB3 i "procura" 1 89 
5010 BT-0: PRINT: FOR N-l TO A.PR 
INT "PROCURA PELO QUE NO CAMPO" 
:PRINT Ni'. ";N9(N)i- ?" 
5020 LINE1NPUT S9(N>:IF SS(N)<> 
"" THEN BT-BT+1 

5025 NEXT : IF BT-0 THEN RETURN 
5027 IF BT<2 THEN BT-0:OOT0 506 

0 

5030 PRINT: PRINT" TOD09 OS DADO 
S DEVEM ESTAR SI- MULTANEAMENT 
E NO MESMO REGISTRO (S/N) 7": 
5040 INS-INKEY9:IF INSO"S" AND 

IN9<>"N" THEN 5040 
5050 CLS:BT-0:IF IN9-"S" THEN 8 
T-l 

5090 FOR 2-1 TO A: PS-INSTR (A9 (D 
,Z) ,S$(Z) ) :IF PS>0 AND BT-0 AND 
8S(Z)<>"" THEN Z-A:NEXT:QOT0 5 
100 

5093 IF PS-0 AND BT-1 THEN Z-A: 
NEXT : D-D+CH : OOTO 5070 
5096 NEXT : IF BT-0 THEN D-D+CH:0 
OTO 5070 

5230 CLS 2: PRINT " NENHUM REGI 
STRO COM"i:IF BT-1 THEN PRINT ê 
21," TODOS OS" , ELSE PRINT «21,* 

ALGUM DOS" 

5231 PRINT " DADOS FOI ENCONTR 
ADO' ; 

5235 FOR Z-l TO A:IF S$(Z)-"" T 
HEN 5245 

5240 PRINT C96+Z*32,NS(Z) i :PRIN 
T «107+Z«32.SS(Z) ; 
5245 NEXT:CP-0 



0 USO DO ACI0NAD0R DE DISCOS 



As linhas que se seguem fazem com 
que o programa trabalhe com o auxílio 
de um acionador de discos, Se você usa 
um gravador cassete, não as digite, pois 
as rotinas de carregamento e gravação 
serão alteradas. 

Antes de introduzir as novas linhas, 
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você deverá apagar as linhas 8060 a 
8070, 8150 a 8200 e 7090 a 7140. A ma- 
neira mais fácil de fazê-lo é digitar DEL 
nf Inicial a? final. Por exemplo: DEL 
8060-8070. 

Para transferir dados da fita cassete 
para o acionador de discos, carregue o 
programa e faça as alterações da rotina 
de gravação (linhas até 7080). Carregue 
os dados e grave-os em disco. Apague, 
então, as linhas de 8060 em diante (só 
as especificadas antes). Por fim, digite 
as novas linhas da rotina de carregamen- 
to de dados. 



VO" 

1130 NEXT:R-INT(9000/(5+5*A))-l 
:PRINT "NUMERO MÁXIMO DE REGI5T 
ROS-" sR 

1140 DIM AS (R.Al FOR 1-1 TO 200 
0 :NEXT : RETURN 

7000 CL8:PRINT" CERTIFIQUE-SE D 
E QUE O DRIVE ESTA LIGADO E 
0 DISCO INSERIDO E PRESSIONE < 
EttTER> 

7010 IF INKEYSOCHRSU3) THEN 7 
010 

7020 PRINT : PRINT" QUAL O NOME D 

O ARQUIVO ?"i :LINEINPUT FIS 

7030 IF LEFTS(FI9,1X"A" OR LEF 

T3(FI3,1)>"Z" THEN 7020 

7040 OPEN "0".»l.FIS+"/DAT"rCLS 

6 ■ PRINT #232," GRAVANDO ":FI3: 

7050 URITE II , R , A , NR 

7060 FOR N-l TO A: URITE *1,N$(N 

) . AÍN) : NEXT 

707O FOR C-l TO NR : FOR N-l TO A 

rWRITE II . AS (C , N] : NEXT N.C 

7080 CLOSEI1 :RETURN 

8030 PRINT «65,'SELECIONE O DIS 

CO, PRESSIONE <ENTER>" 

8040 IF INKEYSOCHR3 (13) THEN 8 

040 

8050 IF R>0 THEN RUN 9210 

8080 PRINT : PRINT" QUAL O NOME D 

O ARQUIVO ?"; :LINEINPUT FIS 

8090 IF LEFTS(FI9.1X"A" OR LEF 

T3(FI8.D>"Z" THEN 8080 

8100 OPEN "I",#1.FI9+-/DAT" 

8105 INPUTIl.R.A.NR 

8110 DIM ACA) , NS I Al , AS (Et, A) 

6120 FOR N-l TO A; INPUTI 1 . NS (N) 

,A(N) : NEXT 

6130 FOR C-l TO NR i FOR N-l TO A 
: INPUTI1 . AS (C , N) : NEXT N.C 
8140 CLOSEI1 :RETURN 



IMPRESSÃO CONTINUA 



Apresentamos três rotinas a mais pa- 
ra o MSX. Com elas você poderá fazer 
uma listagem continua dos seus dados, 
reorganizar o arquivo e buscar várias in- 
formações ao mesmo tempo. 

A rotina para impressão contínua 
permite que vários registros do seu ar- 



quivo sejam listados de uma só vez. O 
registro a partir do qual você quer co- 
meçar a listagem deve estar sendo exi- 
bido na tela. Selecione, então, a opção 
II]mprimir e, a seguir, a opção [C]onti- 
nua. Todos os registros a partir deste se- 
rão listados. 

Com a opção [Rlegistro você pode 
imprimir apenas aquele que está sendo 
mostrado. Não se esqueça de que. para 
listar todo o arquivo, você deve ter o re- 
gistro nf 1 da tela. 

5070 IFD>NRANDG*1THEN O-OiCH— 1 
:CP-0 EI-SEIFD>NRTHEN CP-0 :GOTO 
5230 

5105 IF CP-1 THEN OOSUB 10040:0 
OTO fiOBO 

5210 GOSUBIQOOO:GOT05160 

6025 IF CP-1 THEN GOSUB 10040:0 

OTO 6080 

6130 GOSUB10000:IF CP-1 THEN 60 

80 ELSE 6020 

6140 IFD>NRTHEND-l:CP-0 

10030 PRINT : LOCATE 1 : PRINT" IMPR 

ESSAO [ C IONTTNUA OU [RJEGI.STRO? 

10035 INS-INKEY3:IFINS<>"C'"ANDI 

NSO"R"THEN1.0035 

.10037 IFINS-"C" THEN CP-J. 



REORGANIZAÇÃO DO ARQUIVO 



Esta nova opção permite que se tro- 
que o campo-chave para a ordenação do 
arquivo. O programa original tomava 
automaticamente o primeiro campo pa- 
ra fazer a ordenação alfanumérica dos 
registros. Com a possibilidade de trocar 
esse campo, ficará fácil, por exemplo, 
organizar por autor um arquivo de li- 
vros que estava indexado por titulo da 
obra. A operação pode ser revertida a 
qualquer momento. O novo campo- 
chave aparecerá em primeiro lugar na 
listagem dos campos. 

105 LOCATE 9,19:PRINT"8:-RE0RGA 
NT ZAR O ARQUIVO" 

110 LOCATE 14.22:PRINT"0PCSO: " 

120 INS-INKEYS: IF INS<" 1 "ORIN3> 
"8"THEN120 

150 ON IN GOSUB 1000,2000.6000, 
5000 . 7000 .8000 .9000 ,11000 
11000 IF A-l THEN PRINT: PRINT"I 
MPOSS1VEL REORGANIZAR APENAS 1 
CAMPOI":FOR K-l TO 5000:NEXT:RE 
TURN 

11010 PRINT:PRINT"CAMPO N.","NO 
ME" : PRINT 

11020 FOR N-l TO A : PRINTN , NS (N) 
:NEXT 

11030 PRINT :PRINT"D1GITE O NUME 
RO DO NOVO CAMPO CHAVE" : PRINT" ( 

2 A" j A; " ) " i :INPUT NC 
11040 IF NC<2 OR NOA THEN CLS : 
GOTO 10010 

11050 CLS : LOCATE 7 , 18 : PRINT"REOR 




Como modificar o programe para tra- 
balhar com arquivoa em disco? 

Os micros das linhas TRS-Color e 
MSX podem usar discos flexíveis co- 
mo meio magnético de armazenamen- 
to de dados. Os programas de INPUT, 
contudo, destinam-se a equipamentos 
que utilizam fitas cassete. 

Se quisermos usar em discos nos- 
so programa para gerar a controlar ar- 
quivos, precisaremos modificar as se- 
ções que abrem estes arquivos e as que 
gravam e recuperam dados deles. O 
procedimento é necessário porque o 
programa não modifica registros isola- 
dos no arquivo gravado, e sim na me- 
mória do computador. Um conjunto de 
registros e criado na memória e, de- 
pois, gravado na fita. Quando quere- 
mos alterar elguma coisa, todo o blo- 
co é trazido para a memória, onde o 
programa faz a edição. Depois que o 
processo se completa, gravamos o blo- 
co em fita. 

Para fazer essas modificações, o 
usuário precisa, naturalmente, conhe- 
cer os comandos correspondentes pa- 
ra manipulação de arquivos em disco. 
Estes deverão ser do tipo sequencial, 
como os da fita. 



G AN I Z ANDO E REORDENANDO" : PRINT : 
PR INTTAB (15) "0 ARQUIVO" 

I. 1.060 SWAP NS(1) ,NS(NC) : SUAP A( 
1) , A (NCJ 

11070 FOR N-l. TO NR : SWAP A3(N,1 
) .AS(N.NC) : NEXT 
11080 FOR N-l TO NR-1:K-N 
11090 FOR J-N+l TO NR 

II. 100 IF A3(J,1)<AS(K,1) THEN K 
-J 

11110 NEXT : IF NOK THEN FOR C-l 
TO A:SUAP A3ÍK.CJ A3(N.C):NEXT 
11120 NEXT : RETURN 



BUSCA DE MÚLTIPLAS INFORMAÇÕES 



Com a rotina dada a seguir você terá 
a alternativa de procurar por mais de 
uma informação de cada vez. Quando 
selecionar a opção de busca, você preci- 
sará especificar as informações que dese- 
ja em cada campo do registro. Se um de- 
terminado campo não lhe interessa, sim- 
plesmente tecle < RETURN > . Depois, 
o computador perguntará se os dados 
especificados devem estar simultanea- 
mente em cada registro ou não. A res- 
posta afirmativa corresponde a um E na 
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busca — ou seja, o registro deve conter 
isto E isto E aquilo. O contrário corres- 
ponde a ura OU. Vejamos um exemplo. 
Você procura por MACHADO DE AS- 
SIS no campo AUTOR e ROMANCE 
no campo GÉNERO LITERÁRIO. Se 
sua resposta para a pergunta anterior for 
SIM, apenas os romances de Machado 
de Assis serão listados. Se sua resposta 
for NAO, todos os livros de Machado e 
todos os romances serão listados. 

5000 PRINT" BUSCA DE INFORMAÇÕES 

5010 BT-0:PRINT:FOR N»l TO A:PR 
IHT-PROCURAR O QUE EM ";N3(N)i" 
? -SS IN)-"" 

5020 LINEINPUTS3ÍN) :IF SSÍNJO" 
" THEN BT=BT+1 

5025 NEXT : IF BT=0 THEN RETURN 
5027 IF BT=1 THEN BT=0:GOTO 506 



5030 PRINT:PRJNT:PRINT"TOD0S OS 
DADOS DEVEM ESTAR PRESENTES 
SIMULTANEAMENTE? " ; 

5040 INS=INKEYStIF INS<>"9" AND 
INSO"N" THEN 5040 

5050 CLS:BT-0:IF ÍN5~"S" THEN B 

T-l 

5090 FOR 2 = 1. TO A : P3= INSTR (AS (D 
,Z) ,S3(Z)1 :IF PS>0 AND BT=0 AND 
SS(Z)<>"" THEN Z=A:NEXT:GOTO 5 
100 

5093 IF PS-0 AND BT-1 THEN Z-A: 
NEXT :D=D+CH: GOTO 5070 
5096 NEXTrIF BT=0 THEN D=D+CH:G 
OTO 5070 

5230 CLS:LOCATE 5,10: PRI NT"NENH 
UM REGISTRO COM " ; : IF BT=1 THEN 
PRINT"TODOS OS" ELSE PRINT "ALG 
UM DOS" 

5235 PRINT"FOI ENCONTRADO ! " : CP- 




Para o Apple 11, temos quatro roti- 
nas. As trés primeiras possibilitam a im- 
pressão continua de registros, a reorga- 
nização do seu arquivo e a busca de vá- 
rias informações ao mesmo tempo. A 
última delas melhora rotinas já existen- 
tes no programa, tornando-o, desse mo- 
do, mais completo. 



IMPRESSÃO CONTÍNUA 



Esta pequena rotina permite que os 
registros sejam listados em sequência, e 
não apenas um de cada vez. Deixe na te- 
la o primeiro registro a ser impresso e 
escolha a opção de impressão. Em se- 
guida, tecle C para a impressão contí- 
nua. Todos os registros, a partir do que 
está na tela, serão listados. Para a lista- 
gem de todo o arquivo, deixe o registro 
1 na tela e proceda como foi explicado. 



NORMAL : PRIN 
INVERSE : PRI 
PRINT "EGISTB 



RSE ! PRINT "C" 
T "ONTINUA OU " 
NT "R" i ! NORMAL 
O ?'[ 

10018 GET IN$: IF INS < > "C 

AND INS < > "R" THEN 10018 
10025 IF INS - "C p THEN E - D 

FOR D = E TO NR 
10052 IF INS * "C" THEN NEXT 



REORGANIZAÇÃO DO ARQUIVO 



O programa original usava o primei- 
ro campo do arquivo como campo- 
chave para a ordenação dos registros. 
Com esta rotina, você poderá trocar o 
campo. Selecione a opção 8 a partir do 
menu principal e especifique qual o no- 
vo campo-chave. O arquivo será, então, 
reordenado de acordo com a escolha fei- 
ta. O novo campo-chave aparecerá no 
topo da lista de campos. 



* 
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105 PRINT : HTAB 10; PRINT "8: 
-REORGANIZAR O ARQUIVO" 
110 VTAB 23; HTAB 15; PRINT "O 
PCAO: "; 

130 IF INS < "1" OR INS > "8" 
THEN 110 

150 ON IN GOSUB 1000.2000.6000 
.5000. 7000 ,8000 ,6520. .11500 



11500 IF A = 1 THEN VTAB 10; 
HTAB 9; PRINT "IMPOSSÍVEL REORG 
ANIZAF" : PRINT TAB ( 13)"APENAS 

l CAMPO!": FOR K = 1 TO 3000: 
NEXT : RETURN 

11510 PRINT : PRINT "CAMPO NO. 
" , "NOME" 

11520 FOR 2 - 1 TO A: PRINT Z, 
NS(Z) : NEXT 

11530 PRINT : PRINT "DIGITE O 
NUMERO DO NOVO CAMPO CHAVE" : PR 
INT "(DE 2 A "íAí")";: INPUT NC 
t 

11540 IF {NCt < 2) OR (NCÍ > A 
) THEN HOME : GOTO 11510 
11550 HOME ; VTAB 10: HTAB 8; 
PRINT "AGUARDE A REORGANIZAÇÃO 
": PRINT TAB ( 9)"E ORDENAÇÃO D 
0 ARQUIVO" 

11560 TS - NS(1) :NS(1) = NSINCi 
):NS(NC») = T3:T = A(1):A<1) - 
A (NCt ) :A(NC») - T 
11570 FOR N = 1 TO NR:T3 - AS ( 
N.l):AS(N.l) = ASÍN.NC») :AS(N,N 
Cl) - TS: NEXT 

115B0 FOR N = 1 TO NR - 1:K = 
N 

11590 FOR J - N + 1 TO NR 
11600 IF AS(J.l) < AS(K.l) THE 
N K - J 

11610 NEXT : IF N < > K THEN 
FOR C 1 1 TO A:TS - AS<K.C):AS 
(K,C) - AS(N,C) :AS(N.C) * TS: N 
EXT 

11620 NEXT : RETURN 



BUSCA DE MÚLTIPLAS INFORMAÇÕES 



Esta é uma rotina destinada a agili- 
zar a consulta ao seu arquivo de dados, 
permitindo-lhe procurar por mais de 
uma informação de cada vez. Quando 
você solicitar a opção de busca, preci- 
sará especificar as informações que de- 
seja em cada campo. Se um campo não 
lhe interessa, simplesmente tecle < EN- 
TER> . Depois, o compulador pergun- 
tará se os dados especificados devem es- 
tar simultaneamente em cada registro ou 
não. A resposta afirmativa fará com que 
apenas os registros que contêm todos os 
dados especificados sejam apresentados. 
A resposta negativa levará todo registro 
que contenha ao menos um dos dados 
a ser listado. 

5000 DD *■ 1;BT = 0: PHINT : FOR 
X - 1 TO A: PRINT : PRINT " PRÓ 
CURAR O QUE EM ";N3(X); 
5010 INPUT SS(X): IF SS(X) < 



> THEN BT » BT + 1 

5020 NEXT : IF BT - 0 THEN RE 

TURN 

5025 IF BT = 1 THEN BT = 0 : GO 
TO 5040 

5030 VTAB 21; HTAB 1: PRINT "T 
ODOS OS DADOS DEVEM ESTAR PRESE 
NTES EM CADA REGISTRO? (S/N) 

5035 GET INS : IF INS < > "8* 

AND INS < > "N" THEN 5035 

5037 IF INS - "N" THEN BT = 0 

5040 VTAB 23: HTAB 13: PRINT " 

PROCURANDO. . . " ; 

5050 FOR XX = DD TO NR 

5052 FOR 2 - 1 TO A: IF SS(Z) 

• "" THEN 5060 

5054 PS - (SS(Z) » LEFTS (AS (X 
X,Z). LEN (SS(Z)))): IF PS AND 
( NOT BT) THEN Z - A: NEXT : GO 
TO 5065 

5056 IF ( NOT PS) AND BT THEN 
Z ■= A: NEXT : NEXT : GOTO 5070 
5060 NEXT ; IF BT * 0 THEN NE 
XT : GOTO 5070 

5065 FL = 1:D = XX: GOSUB 60Z0: 

GOTO 5200 
5070 IF FL - 0 THEN VTAB 21: 
HTAB 1: CALL - 958; PRINT "NAO 

ENCONTREI NENHUM REGISTRO COM 
OS DADOS SOLICITADOS! " : FOR 

X = 1 TO 5000: NEXT : GOTO 509 

0 

5090 FL - 0: RETURN 
5200 IF XX = NR THEN 5070 
5210 VTAB 15: PRINT "CONTINUO 
PROCURANDO? (S/N) ":: GET INS 



MELHORE AS ROTINAS EXISTENTES 



Estas linhas tornam seu programa de 
banco de dados mais completo. Com 
elas você poderá especificar o slot e a 
unidade de disco que usará para a gra- 
vação e o carregamento dos dados. A 
opção padrão é siot 6 e drive 1 . Um se- 
gundo drive poderá ser acionado dire- 
tamente do programa. 

Alteramos ainda a rotina de detecção 
de erros. Ela está mais explícita em re- 
lação à não existência de um arquivo es- 
pecificado para a leitura de dados. E 
também mais equipada para prevenir 
que qualquer outro erro (a seleção de 
um drive que não existe, por exemplo) 
interrompa seu programa e provoque a 
perda de dados. 

22 SS = 6:DR = 1 

25 ONERR GOTO 11000 

1030 IF R > 0 THEN CLEAR : D3 

■ CHRS (4):IN - 1:SS » 6 : DR = 

1 : HOME : GOTO 150 

1050 VTAB 3: HTAB 5: PRINT "NU 

MERO DE CAMPOS (1-8): "i 

1060 GET AS: IF AS > "8" OR AS 

< -1" THEN 1060 
1070 PRINT AS:A - VAL (AS): D 
IM A (A) ,NS(A) 

3010 VTAB 23: CALL - 958: PRI 




NÃO PERCA SEUS DADOS 

Às vezes, por descuido ou erro de 
digitação, o programa é interrompido 
por uma mensagem de erro. Se execu- 
tarmos o programa de novo, usando 
RUN, todas as variáveis criadas pelo 
programa serão apagadas. 

A saída para o problema está em 
evitar o comando RUN e voltar a exe- 
cutar o programa de outro modo. 

Em geral, é possível encontrar um 
ponto onde o programa recomeça co- 
mo se nada tivesse acontecido. Na 
maioria das vezes, este ponto corres- 
ponde à parte que cuida do menu. Pa- 
ra executar o programa novamente, 
bastará, então, anotar o número da li- 
nha e usar o comando GOTO. 



NT "NUMERO DO CAMPO A SER MODTF 
IÇADO ->"; 

3020 GET CPS:CP = VAL (CP3) 
3030 IF CP > A OR CP < 1 THEN 

POKE 34,0: RETURN 
7010 VTAB 15: HTAB 5: PRINT "S 
LOT ";SS; CHRS (8);: GET SSS : I 
F SSS - CHRS (13) THEN SSS = 
STRS (SS) 

7015 PRINT SSS:SS = VAL (SSS) 
: IF SS < 1 OR SS > 7 THEN 7010 
7020 VTAB 17: HTAB 5: PRINT B D 
RIVE ":DR; CHRS (B) ; : GET DRS ' 
IF DRS - CHRS (13) THEN DRS - 

STRS (DR) 
7022 PRINT DRS : DR " VAL (DRS) 
: IF DR < 1 0R DR > 2 THEN 7020 
7025 PRINT : PRINT DS;"OPEN";A 
RS i " ,S" ;5S i " ,D" [DR: PRINT DSi"D 
ELETE" i ARS 

B020 HOME : CLEAR : DS = CHRS 
(4) :IN - 6:SS = 6:DR - 1 
8050 VTAB 15: HTAB 5; PRINT "S 
LOT ";SS; CHRS (8);; GET SSS ! I 
F SSS " CHRS (13) THEN SSS - 
STRS (SS) 

8055 PRINT SSS:SS = VAL (SSS) 
: IF SS < 1 OR SS > 7 THEN 8050 
8060 VTAB 17: HTAB 5: PRINT "D 
RIVE ";DR; CHRS (8):: GET DRS: 
IF DRS = CHRS (13) THEN DRS = 

STRS (DR) 
9065 PRINT DRS : DR = VAL (DRS) 
: IF DR < 1 OR DR > 2 THEN 8060 
8070 PRINT : PRINT DS ; "OPEN" ; A 
RS; " . S" ; SS ; " ,D" :DR 
11000 IF PEEK (222) < > 5 TH 
EN VTAB 24: HTAB 13: PRINT "HO 
UVE UM ERRO!";: FOR I - 1 TO 10 
00: NEXT : GOTO 30 
11010 PRINT DS:"CLOSE" 
11020 VTAB 24: HTAB 8: PRINT * 
ESTE ARQUIVO NAO EXISTE!";: FOR 

I - 1 TO 1000: NEXT : HOME : G 
OTO 150 
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0 comando SOUND do TK-2000 tem 
certas limitações. Já o Apple não possui 
um comando BASIC para produzir sons. 
Veja como usar código de máquina para 
criar afeitos sonoros. 



Os usuários do Apple ressentem-se, 
sem dúvida, da ausência de um coman- 
do em BASIC para produzir sons. Essa 
limitação pode ser contornada com o 
uso de rotinas em código de máquina. 

Estalidos ou "diques" produzidos no 
alto-falante constituem o máximo que 
se pode obter com um programa BA- 
SIC, no Apple, em matéria de som, Pa- 
ra isso (tanto no Apple quanto no 
TK-2000), basta que façamos referência 
à posição de memória -16336 por meio 
de um comando PEEK: 

X - PEEK (-16.136) 

Quando testamos o valor desse ende- 
reço especial, o cone do alto-falante se 
move — para dentro e para fora — uma 
vez. Se quisermos produzir notas musi- 
cais, precisaremos imprimir a esse mo- 
vimento uma velocidade que somente 
programas cm linguagem de máquina 
permitem, Controlando a velocidade 
com que o cone do alto-falante se move 
para frente e para trás, poderemos con- 
trolar também a frequência da nota mu- 
sical ou do ruido emitido. Quanto mais 
rápido for o movimento do cone, mais 
agudo será o som. 



Os usuários do TK-2000 podem re- 
correr ao míni-Assembler embutido no 
micro, O míni-Assembler, contudo, não 
aceita rótulos, seguindo outra listagem 
com os endereços já calculados. Ao con- 
trário da listagem anterior, esta não é re- 
locável na memória. 

0320- LDA |300 
0322- STA SFF 
0324- LDA 4300 



0326- STA SC030 

0329- LDX SFF 
032B- NOP 
032C- NOP 
032D- NOP 
032E- NOP 
032F- DEX 

0330- BNE S032B 
0332- DEC SFF 
0334- BEQ $0339 
0336- JMP $0.124 
0339- HTB 

Se você usar nosso Assembler para 
montar o programa, verá que ele emite 



M 

fai 



COMO CONTROLAR 0 ALTO-FALANTE 



A rotina em Assembly fornecida a se- 
guir produz um som que vai se tornan- 
do cada vez mais agudo, Use nosso As- 
sembler para montá-la na memória. 



HEI 



10 OBC 800 

20 LDA tS00 

30 STA SFF 

40 LOOP LDA tSOO 

50 STA SC030 

60 LDX SFF 

70 PAUSE NOP 

BO NOP 

90 NOP 

100 NOP 

110 DEX 

120 BNE PAUSE 

130 DEC SFF 

140 BEQ FIM 

150 JMP LOOP 
I 160 FIM RTS 
I 170 END 
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■ 


COMO CONTROLAR 


■ 


COMO USAR LAÇOS VAZIOS 




0 ALTO-FALANTE 




PARA PRODUZIR PAUSAS 


■ 


0 USO DE CONTADORES 




DE DIVERSOS TAMANHOS 


■ 


0 CONTROLE 


■ 


UMA ROTINA DE SOM 




DA FREQUÊNCIA DA NOTA 




PARA 0 APPLE 



mensagens de erro durante a montagem. 
Para corrigir esse defeito, modifique a 
linha 1 10: apague a segunda vírgula de- 
pois do NOP e acrescente uma virgula 
após o número 234. 

Qualquer referência à posição de me- 
mória -16336 em decimal, ou SC030 em 
hexadecimal, provocará um movimen- 
to no alto-falante. Essa referência pode 
ser feita por meio de comandos como 
STA, INC ou DEC. O importante, de 
fato, é controlar a frequência com que 
isso ocorre no programa. 



A posição de memória SFF — que fi- 
ca na pagina zero — vai ser usada co- 
mo contador. Para começar, colocamos 
nela o valor zero, pelos comandos LDA 
#500 e STA SFF, Depois, o comando 
STA SC030 provoca 1 um primeiro mo- 
vimento do alto-falanie. Note que, an- 
tes disso, foi colocado zero no registro 
A. Na realidade, o valor transferido de 
A para o endereço SC030 pelo coman- 




do STA SC030 pode ser qualquer um: 
não faz a menor diferença. 

A seguir, a instrução LDX SFF co- 
loca no registro X o conteúdo da memó- 
ria SOOFF. Esse tipo de endereçamento 
é denominado endereçamento direto em 
página zero. Sua vantagem consiste em 
permitir a especificação de um endere- 
ço com apenas um byte. Como um byte 
pode conter um número entre 0 e 255, 
o endereço especificado deve ficar num 
dos primeiros 256 bytes da memória — 
a chamada página um. 

As quatro instruções NOP (Nenhu- 
ma OPeração) utilizadas em seguida 
nada executam. Sua função é reduzir a 
velocidade do programa. A instrução 
DEX subtrai uma unidade do valor de 
X. Se o resultado da subtração não for 
igual a zero, a instrução B.NE manda o 
processador de volta ao rótulo PAUSE. 
O laço que fica entre as linhas 70 e 110 
é repetido, entào, 256 vezes — lembre- 
se de que zero menos um é igual a 255 
em linguagem de máquina. 

Em seguida, a instrução DEC SFF 
subtrai uma unidade do conteúdo do en- 
dereço SFF. Se a operação resultar em 
zero, a instrução BEQ FIM envia o pro- 
cessador para o rótulo FIM, onde o co- 
mando RTS termina a rotina. Se a ope- 
ração não resultar em zero. o programa 
segue seu curso natural e a instrução 
JMP LOOP envia o processador ao ró- 
tulo LOOP, para a produção de um no- 
vo movimento do alto-falante. 

Assim, após a emissão do primeiro 
som, ocorre uma pausa equivalente a 
256 voltas do laço. O conteúdo de SFF, 
que inicialmente é zero — equivalente 
a 256, em código de máquina — , con- 
trola a duração da pausa, diminuindo 
em uma unidade após esta. Enquanto 
não chegar a zero, um novo movimen- 
to do alto-falante será produzido. Co- 
mo o conteúdo de SFF, que controla o 
tamanho da pausa, diminui a cada vol- 
ta do laço entre as linhas 40 e 150, o ta- 
manho da pausa entre dois movimentos 
do alto-falante também diminui. Dessa 
maneira, a frequência do som produzi- 
do vai aumentando, ou seja, o som vai 
se tornando cada vez mais agudo. 

No TK-2000, o som é produzido por 
intermédio do alto-falante da TV. Já no I 
Apple um dispositivo sonoro que está I 
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Como usar o monitor-Disassembler? 

Uma ferramenta muito útil aos usuá 
rios do Apple, e indispensável aos do 
TK-2000. é o monitor-Disassembler, 
Embora não precisemos de monitor pa- 
ra montar os programas código por có- 
digo, ele nos permitirá verificar se a 
montagem foi bem-sucedida. 

Para entrar no monitor, digite: 

CALL -151 

ou LM no TK-2000. 

Para listar um programa que come- 
ce no endereço 800. digite (após ter 
entrado no monitor): 
320L 



embutido no próprio computador emi- 
te o ruído — e a qualidade do som dei- 
xa a desejar. 



A VEZ DO APPLE 



A rotina de produção de ruídos que 
apresentamos a seguir pode ser utiliza- 
da a partir de programas BASIC, equi- 
valendo ao comando SOUND dos mi- 
cros da linha TK-2000. 

Ela permite ao usuário do Apple pro- 
duzir noias musicais em seus programas 
sem ter que programar uma rotina em 
linguagem de máquina para cada novo 
efeito sonoro. 



10 OPG 800 
20 LDY IS00 
30 SOM LDX S38S 
40 INC SC030 
50 PAUSET DEY 
60 BNE PAUSES 
70 DEC 3384 

80 BEQ FIM 
90 PAUSES DEX 
100 BNE PAUSET 
110 JMP SOM 
120 FIM RTS 



m 

Embora o TK-2000 dispense esse ti- 
po de rotina, seus usuários podem que- 
rer montá-la para aprender ou, simples- 
mente, compará-la ao comando 
SOUND. 

0320- LDY 1300 
0322- LDX 30385 
0325- INC 3CO30 

0328- DEY 

0329- BNE $0330 
032B- DEC 30384 
032E- BEQ. 30336 

0330- DEX 

0331- BNE S032B 




O MiNI-ASSEMBLER 

O m íni -Assem bler é um programa As- 
sembler simplificado, mas extremamen- 
te útil. Ele está disponível no TK-2000 
bem como em microcomputadores Ap- 
ple que tenham o INTEGER BASIC dis- 
ponível em ROM ou numa placa de ex- 
pansão de memória. Sua principal limi- 
tação é não aceitar rótulos. 



0333- JMP S0322 
0336- RTS 

Após a definição do endereço inicial, 
o comando LDY #$00 coloca zero no 
registro Y, que será utilizado como con- 
tador. Não se esqueça de que zero equi- 
vale a 256. 

O endereço $385 conterá a tonalida- 
de da nota emitida — em outras pala- 
vras, seu valor vai estabelecer o tama- 
nho de um laço de pausa para contro- 
lar a frequência do movimento do alto- 
falante. Assim, o conteúdo dessa posi- 
ção é colocado em X, que também será 
usado como contador. 

A instrução INC SC030 produz um 
movimento do alto-falanle. A seguir, o 
programa apresenta um laço complexo, 
controlado por três contadores. Estes es- 
tabelecem tanto a frequência quanto a 
duração do som emitido. Vejamos, en- 
tão, como o laço funciona. 

Inicialmente, a instrução DEV, na li- 
nha 50, subtrai uma unidade do conteú- 
do de Y. A instrução seguinte — BNE 
PAUSES — faz com que o programa 
salte para a linha 90, enquanto o valor 
em Y não for reduzido a zero. A linha 
90, por sua vez, contém uma instrução 
DEX, que diminui o conteúdo de X em 
uma unidade. De maneira análoga, es- 
sa instrução é seguida por um BNE 
PAUSET, que retorna à linha 50 en- 
quanto o valor de X não chegar a zero. 
Assim, o processador fica "preso" em 
um laço, saindo apenas quando o con- 
teúdo de X ou Y for zero. 

Os contadores trabalham indepen- 
dentemente. Quando o valor de X se 
torna zero, o processador passa para a 
linha 110, que retorna ao rótulo SOM 
(JMP SOM), onde o valor de S385 (to- 
nalidade) é recolocado em X e se pro- 
duz um novo movimento do alto- 
falante. Assim, o valor inicial de X de- 
termina o tamanho da pausa entre dois 
ruídos, independentemente do que acon- 
tece com Y. 

O registro Y continha inicialmente o 
número 256 — ou zero. Portanto, após 
256 passagens peia linha 50, o valor de 
Y se torna zero, e o desvio da linha 60 
não ocorre. O programa, então, pros- 
segue na linha 70 — DEC $384 — , que 
diminui em uma unidade o valor em 
$384 (contador que controla a duração 
da nota). Assim, independentemente do 
que acontece com X, a cada 256 voltas 
do laço principal, o endereço $384 é di- 
minuído. Quando ele se torna zero, a li- 
nha 80 — BEQ FIM — envia o proces- 
sador para a linha 120, onde o coman- 
do RTS retorna ao BASIC. O valor ini- 
cialmente colocado em $0384 controla, 
dessa maneira, a duração da nota. 



Agora você pode produzir sons em 
programas BASIC. Para ter uma idéia 
de como proceder, digite este exemplo: 

mm 

10 FOR S = 1 TO 255 
20 POKE 900.50 
30 POKE 901, S 
40 CALL 800 
50 NEXT 

O programa consiste em um laço, on- 
de S tem a função de controlar a fre- 
quência da nota — de fato, S é propor- 
cional ao período da nota, que é o in- 
verso da frequência. 

O endereço 900, que corresponde a 
$384 em hexadecimal, contém a dura- 
ção da nota. A linha 20 estabelece esse 
parâmetro por meio de um POKE. A 
mesma instrução é usada na linha 30 pa- 
ra definir a tonalidade S da nota. O nú- 
mero 901 em decimal corresponde a 
$385 em hexadecimal. 

Finalmente, a instrução CALL 800 
chama a rotina em código, produzindo 
notas cada vez mais graves ã medida que 
as voltas do laço se sucedem. 

m 

Os usuários do TK-2000 podem com- 
parar a rotina em código com o coman- 
do SOUND apagando as linhas de 20 a 
40 e acrescentando: 

30 SOUND S,50 
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Conheça os comandos que permitem 
ao computador "olhar" sua própria tela. 
Eles são muito úteis na manipulação 
de gráficos complicados e, sobretudo, 
em jogos onde ocorrem colisões. 



Ao criar uma tela gráfica detalhada, 
como garantir que uma figura não coin- 
cida com outra já presente? 

Uma alternativa seria tomar nota das 
áreas da tela que estão sendo ocupadas. 
Mas a tarefa, além de fatigante, muitas 
vezes é impossível — como no caso de 



gráficos em movimento. E esse tipo de 
problema se coloca sempre que progra- 
mamos um jogo, onde, por exemplo, 
naves e alienígenas movem -se peia ga- 
láxia ou robôs tentam sair de um labi- 
rinto. Nos dois casos, precisamos nos 
assegurar de que duas figuras não serão 
desenhadas no mesmo lugar ou que al- 
go especial acontecerá se elas colidirem 
— uma explosão, digamos. 



COMO DETECTAR UMA FIGURA 



Suponhamos que você queira escre- 
ver um programa no qual uma bola fi- 



que batendo nas bordas da tela. Não se- 
rá difícil: conhecendo coordenadas dos 
quatro lados da tela, bastará incluir um 
teste de condição IF...THEN para veri- 
ficar se a bola está ou não batendo na 
borda. Para isso, as coordenadas da bo- 
la são comparadas com as coordenadas 
já conhecidas das bordas. Mas o que 
aconteceria se quiséssemos checar se a 
bola bateu na borda de um objeio cuja 
forma é mais complicada — um círcu- 
lo, por exemplo? 

Poderíamos usar o mesmo método: 
um certo número de IF...THEN, con- 
tendo informações sobre as coordena- 1 
das do círculo, verificaria se a bola ba- 1 
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leu na borda deste. A forma curvilínea 
é relativamente mais complexa e, por is- 
so, precisaríamos fazer muitos testes. 
Como sabemos, o computador demora 
para realizar um teste IF...THEN. As- 
sim, um programa cheio deles se torna- 
ria extremamente lento. 

Existe um limite de velocidade de exe- 
cução num programa em BASIC, mas o 
Spectrum, o MSX, o TK-2000, o Apple 
e o TRS-Color possuem um comando 
que permite detectar qualquer objeto na 
tela mais rapidamente do que pela che- 
cagem de suas coordenadas — mesmo 
que não conheçamos sua posição. 



A COR PELO NÚMERO 



Os comandos ATTR no Spectrum, 
SCRN no Apple e o POINT ou 
PPOINT no TRS-Color e no MSX de- 
volvem, como resposta, a cor que está 
localizada em uma determinada posição 
(ou pixel, como é o caso do PPOINT no 
TRS-Color). Dessa maneira, para detec- 
tar a presença de qualquer objeto, bas- 
ta atribuir-lhe uma cor e, depois, veri- 
ficar todas as posições de tela. 

No exemplo da bola, o círculo ver- 
melho devolveria o número (código) re- 
lacionado à cor vermelha em todas as 
posições que aparecesse. Por meio da 
simples verificação desse código, pode- 
ríamos, por exemplo, fazer a bola ba- 
ter no círculo e voltar. 

O Spectrum devolve um número en- 
tre 0 e 255, levando em conta todos os 
ATTR (atributos) de cada posição de te- 
la: as cores do PAPER e INK, se o 
BRIGHT está ligado ou não, e se o ca- 
ractere se encontra sob a ação do co- 
mando FLASH. Os significados dos nú- 
meros nos atributos de cada posição da 
tela foram explicados na página 47. 

O comando SCRN no Apple retorna 
um valor de 0 a 15, correspondente a 
uma cor da letra gráfica. Se obtivermos 
o número 13, por exemplo, para uma 
certa posição de tela, saberemos que na- 
quela posição existe um caractere ama- 
relo, pois 13 é o código estabelecido pa- 
ra a cor amarela. 

O comando POINT no MSX devol- 
ve um número entre 0 e 16, correspon- 
dente à cor de um dos 256x192 pontos 
de sua tela. Este comando funciona 
igualmente bem tanto em alta quanto 
em baixa resolução gráfica. 

O TRS-Color retorna um número en- 
tre -1 e 8, que se relaciona com a cor da 
posição de tela (ou pixel, para o caso do 
comando PPOINT). Obtemos o curio- 
so resultado de -1 quando tentamos ve- 
rificar a cor de uma letra: o texto só po- 
de ser verde ou preto (e a cor preta é, 



justamente, o inverso da verde). 

A sintaxe de cada um desses coman- 
dos é basicamente a mesma. Em todos 
eles, as coordenadas das posições de te- 
la devem vir sempre entre parênteses. A 
única diferença é que, no ATTR do 
Spectrum, a coordenada Y aparece an- 
tes da X. Um exemplo seria: 
PRINT ATTR (10,20) 

onde 1 0 é a coordenada Y e 20 é a coor- 
denada X da posição de tela cuja cor 
queremos saber. 

Nos demais microcomputadores a or- 
dem das coordenadas é a usual, ou se- 
ja, primeiro aparece a coordenada X e 
depois a Y. Para as mesmas coordena- 
das do exemplo anterior, teríamos: 

PRINT SCRN (20, 10) 
para o Apple e 
PRINT POINT (20,10) 
para o MSX e o TRS-Color. O Spec- 
trum possui um arquivo de atributos ao 
qual podemos fornecer, via comando 
POKE, diferentes valores — e, portan- 
to, alterar o estado de certa posição de 
tela. Já o TRS-Color não tem um arqui- 
vo de cores separado, mas podemos mu- 
dar sua tela pela impressão (PRINT) de 
caracteres de outras cores. 

Como exemplo do uso dos comandos 
ATTR, SCRN e POINT, digite e rode 
o seguinte programa: 




10 BORDER 0: PAPER 0: INK 9 
15 CLS 

20 FOR n-22528 TO 22559: POKE 
n,46; POKE n+672,48: NEXT n 
30 FOR n-22560 TO 23168 STEP 
32: POKE n,48: POKE ri+31.4B; 
NEXT n 

40 FOR n-1 TO 30: PRINT 
PAPER 6iAT INT (RND*8) *2+3 , 
INT <RND*13)*2+3;" NEXT n 
50 LET x-15: LET y-10: LET xv 
—li LET yv-1 

80 PRINT AT y.x;"0": LET oy = Y 
: LET ox-x 

90 LET x-x+xv: LET y-y+yv 
140 IF ATTR (y,x-l)=4B OR ATTR 
(y,x+l)-4B th en LET xv— xv 
145 IF ATTR (y-l,x)-48 OR ATTR 
(y+l.x)-48 THEN LET yv — yv 
190 PRINT AT oy.ox;" ": GOTO 

80 

O display do Spectrum ocupa toda a 
tela: e um quadrado de bordas amare- 
las, contendo uma série de blocos tam- 
bém amarelos impressos aleatoriamen- 
te. Ao rodar o programa, o computa- 
dor começa a movimentar a bola diago- 
nalmente, para baixo e para a esquer- 



da. Quando bate nas bordas ou em um 
dos blocos, ela volta, mas em outra 
direção. 



COMO DETECTAR COLISÕES 



Cabe ao comando ATTR verificar se 
a bola bateu nas bordas ou em algum 
dos blocos. Como estes são posiciona- 
dos aleatoriamente na tela, só teríamos 
uma outra alternativa: guardar em va- 
riáveis as posições dos blocos em rela- 
ção às coordenadas X e Y. Se usássemos 
duas variáveis para cada posição, ocu- 
paríamos grande quantidade de memó- 
ria. Além disso, precisaríamos incluir 
muitas verificações IF...THEN no pro- 
grama, tornando-o muito lento. 

Não enfrentaríamos os mesmos pro- 
blemas se utilizássemos IF...THEN pa- 
ra verificar se a bola bateu nas bordas, 
já que suas coordenadas são facilmente 
calculadas. Mas, como recorremos ao 
comando ATTR para checar se a bola 
está batendo num bloco amarelo, é mais 
conveniente usá-lo também para as bor- 
das, especialmente porque estas têm a 
mesma cor dos blocos. 

O programa começa definindo as co- 
res da tela e criando a moldura amare- 
la. As linhas 20 e 30, responsáveis pela 
moldura, inserem valores diretamente 
no arquivo de atributos, em vez de im- 
primirem espaços ou caracteres vazios. 
Dois laços FOR... NEXT percorrem os 
endereços de memória que contêm os 
atributos para posições ao redor da te- 
la. Cada endereço recebe, via comando 
POKE, o número 48, que é o código pa- 
ra PAPER amarelo e INK preto (com 
BRIGHT e FLASH desligados). 

A linha 40 imprime blocos aleatoria- 
mente (desta vez, espaços). Os números 
randõmicos que controlam a disposição 
dos blocos são projetados de maneira 
que pelo menos duas posições de tela os 
separem da borda (para se evitar que al- 
gum bloco seja desperdiçado, caindo na 
moldura). 

A linha 50 estabelece o valor inicial 
de algumas variáveis — x e y para a po- 
sição inicial da bola, e xv e yv para a di- 
reção inicial da bola nas coordenadas X 
e Y, respectivamente. 

Em seguida, o computador salta pa- 
ra a linha 80, onde imprime a bola e de- 
fine mais duas variáveis: ox e oy, que 
guardam os valores anteriores de x e y. 
Esses valores são usados para apagar a 
bola, uma vez que x e y já foram atuali- 
zados pelos cálculos que determinam o 
movimento da bola. 

A linha 90 efetua os cálculos, soman- 
do os vetores de direção, determinados 
pelas variáveis xv e yv, às respectivas 
coordenadas x e y. 
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Display do Spectrum: os blocos sã 
dentro de uma moldura quadrada. 



distribuídos aleatoriamente 



Display do TRS-Color: apresenta cantos diagonais coloridos; 
a distribuição dos bloco- não é aleatória. 



As linhas 140 e 145 são as mais im- 
portantes, já que executam a verificação 
da cor dos quatro quadrados que cercam 
a bola. 

Como se vê no programa, a função 
ATTR assume a seguinte forma: 

ATTR (coordenada y, coordenada x) 

Mas este não é um comando direto 
— como PRINT e LOAD, por exemplo 
— , devendo sempre vir embutido em 
outro comando (no nosso caso, uma de- 
claração IF...THEN). 

Em ambas as linhas existem declara- 
ções LET logo após as condições. Elas 
simplesmente revertem o vetor de velo- 
cidade se o quadrad o com o qual a bola 
bateu for amarelo (ATTR = 48 represen- 
ta um quadrado amarelo). 

Na prática, a bola bate no quadra- 
do e volta num ângulo diferente de 90° 
Ela deve estar vindo de cima ou de bai- 
xo (na direção y) ou de um dos lados 
do obstáculo (na direção x) no momen- 
to em que o atinge. Se ambos os veto 
res de velocidade fossem revertidos, a 
bola simplesmente voltaria pelo mesmo 
caminho. Por isso, a verificação só al- 
tera seu movimento na direção em que 
ela bate. Sua velocidade na outra dire- 
ção (aquela em que ela não bateu em 
da) continua sendo a mesma. Assim 
se a bola está prestes a atingir um bio 
co amarelo logo abaixo, ela começa 
se movimentar para cima, mas sua ve 
locidade horizontal (na direção x) nâc 
é afetada. 

Depois de realizar duas verificações 



o Spectrum apaga a bola "velha", 
sobrepondo-a com um espaço vazio (li- 
nha 190), e volta para a linha 80 para 
continuar o movimento. 



10 CLS0 

20 PRINT STRING3 (32.223) . : PRINT 

e448.STRING3<32.223) ; 
30 FOR K-l TO 7:PRINT Í32*K , CHR 
3(223)+STRING8(7-K,191) ; 
40 PRINT «32*K+24+K,STRINCS(7-K 
, 175)+CHR$(223) ; 

50 PRINT ê448-32*K.CHRS(223)+ST 
RING3(7-K,175) ;:PRINT ê448-32*K 
+24+K , STRINGS (7-K . X91 ) +CHRS (223 

) ; 

60 NEXT 

70 FOR K-l TO 16 : READ A.B:POKE 
1024+A,B:NÈXT 

80 DATA 137,143,114,159,111,159 
,112,159,113,159,150.255,118.25 
5,203,239.276.239,296,255.264.2 
55 , 366 . 159 . 367 , 159, 368 , 159 , 365 . 
159,406,143 

90 X-32:Y-16:VX-2-RND(39)/10:VY 

-2-RND{39)/10 

100 SET(X,Y,5) 

110 P1-P0INT(X+VX,Y+VY) : P2-POIN 
T(X+VX,Y) :P3-POINT(X,Y+VY) :IF P 
1-0 AND P2-0 AND P3-0 THEN 190 
120 IF P2-0 AND P3-0 THEN 160 
130 IF P2>0 THEN VX— VX:IF P2<4 
TUKN VX*VX-S(ÍN(VX)*RND(0) ELSE 
IF P2>3THENUX-VXl3CN(VX)*nND(0) 
140 IF P3>0 THEN VY*-VY:IF P3<4 
THEN VY-VY-SGN(VY)*RND(0) ELSE 
IF P2>3THENVY-VY+SGN(VY)*RND(0) 
150 GOTO 190 
160 VX— VX : VY--VY 
170 IF PY>3 THEN VX-VX+SGN (VX) * 
RND(0) :VY-VY+SGN(VY)*RND(0) 
180 IF Pl<4 THEN VX-VX-SGN (VX) • 
RND(0) :VY-VY-SGN(VY)*RND(0) 



190 IF ABSÍVXXl THENVX-SGN(VX) 
200 IF ABS(VX)>2 THEN VX-2"SGN( 
VX) 

210 IF ABSÍVYX1THEN VY-SGN(VY) 
220 IF ABS(VY)>2 THEN VY-2*SGN ( 

VY) 

230 RESET(X.Y) : X-X+VX : Y-Y+VY 
240 GOTO 100 

O programa do TRS-Color exempli- 
fica bem a utilidade do comando 
POINT. O display que aparece na tela 
desse computador é um pouco diferen- 
te daquele que aparece nos outros. Ele 
não contém blocos espalhados aleatoria- 
mente, mas cantos diagonais coloridos. 
Usar variáveis para checar se a bola es- 
tá batendo em algum desses cantos se- 
ria complicado e deixaria o programa 
muito lento. E, considerando que pre- 
cisaríamos ainda adicionar vários 
IF...THEN para detectar colisões da bo- 
la com algum dos blocos no meio da te- 
la, podemos concluir que tal processo é 
praticamente inviável. 



VERIFICANDO MAIS DE UMA COR 



O POINT permite a detecção de três 
quadrados ao redor da bola com pou- 
cas linhas de programa. E, se escolher- 
mos cuidadosamente as cores, podere- 
mos fazer a verificação de várias delas 
com apenas duas checa gens. 

O programa começa limpando a tela 
com um fundo preto e colocando os 
cantos, dois vermelhos e dois azuis (li- 
nhas 10 a 60). A linha 70 lê os dados dos 
blocos restantes (linha 80) e os imprime 
com POKE. Usando esse comando, em 
vez de PRINT, economizamos umas 
quatro linhas de programa. 



Hl 



A linha 90 determina as coordenadas 
iniciais da bola, % e y, e também as ve- 
locidades iniciais xv e yv — que, na ver- 
dade, são componentes do vetor de ve- 
locidade nas direções X e Y, respectiva- 
mente. A bola, representada por um 
pomo de baixa resolução, é então im- 
pressa nas posições x e y. 

Para a checagem das cores, definem- 
se três variáveis (linha 110): PI, para o 
quadrado diagonalmente à frente da bo- 
la (qualquer que seja a direção em que 
ela esteja se movimentando), e P2 e P3, 
para os quadrados nas posições x e y se- 
guintes. Partindo do princípio segundo 
o qual não é necessário que sejam che- 
cados quadrados das direções em que a 
bola não se movimenta, concluímos que 
esses três testes já são suficientes. 



Como podemos ver na linha 1 10, o 
comando POINT toma a seguinte 
forma: 

POINT (coordenada x, coordenada y) 

Essa linha também é incumbida de 
verificar se os três quadrados são pre- 
tos (cor de número 0, que também é a 
cor de fundo). Em caso afirmativo, o 
computador vai para a linha 190, saltan- 
do os testes de reflexão, pois a bola não 
está batendo em nada. 

Se as próximas posições x e y (dire- 
ções horizontal e vertical, respectiva- 
mente) forem pretas, mas a diagonal se- 
guinte não, a bola precisará voltar exa- 
tamente na mesma direção de que veio. 
Assim, o computador salta para a linha 
160, que contém os procedimentos ne- 
cessários para esse caso especial de co- 
lisão diagonal. Os dois vetores de velo 



cidade (na direção x e na direção y) são 
invertidos, fazendo com que a bola re- 
troceda. 

As linhas seguintes também alteram 
a velocidade da bola, de acordo com a 
cor em que ela bate. 

Se nenhum dos testes executados até 
a linha 130 for verdadeiro, a bola deve 
estar atingindo algum objeto (seja ele 
um canto, seja ele um bloco) pelas late- 
rais. Alinha 130 verifica se o quadrado 
atingido está na horizontal (lados direi- 
to ou esquerdo) e, constatando que sim, 
inverte o vetor relevante da velocidade. 
O vetor relevante é oposto ao eixo de co- 
lisão — portanto, no nosso exemplo, o 
vetor y é invertido. Em seguida, o com- 
putador efetua o teste a fim de identifi- 
car a cor do quadrado atingido. 



Os números 1 , 2 e 3 correspondem ao 
verde, ao amarelo e ao azul. Se a cor 
do quadrado atingido for uma destas, 
a velocidade será diminuída; se for ver- 
melho, cinza, ciano, magenta ou laran- 
ja (número maior que 3), a bola será, 
então, acelerada. 

A vantagem de se escolher as cores 
(ou categoria de cores) com cuidado é 
evidente. Elas se agrupam em duas ca- 
tegorias: uma que causa diminuição de 
velocidade (1, 2 e 3) e outra que causa 
aumento (4 a 8). Ao selecionar núme- 
ros próximos em cada categoria, dimi- 
nuímos a quantidade de comandos 
IF...THEN, economizamos memória e 
agilizamos o programa. 

A linha 140 faz basicamente a mes- 
ma coisa que a 130, só que efetua a che- 



cagem na vertical. Depois, o computa- 
dor salta para a linha 190, onde se ini- 
cia a rotina que verifica o valor da ve- 
locidade. Se esta for maior que 2, 
obtém-se um estranho efeito na tela, 
pois, para simular movimento, o com- 
putador salta sobre um quadrado. Um 
salto muito grande pode, eventualmen- 
te, fazer a bola ultrapassar um bloco co 
lorido sem o perceber. Dai a importân 
cia da rotina que checa a velocidade. 

O mesmo tipo de problema aconte- 
ceria com uma velocidade menor que 1 
mas um outro teste cuida disto. Obser- 
ve que todos os valores estão em módu- 
lo (ABS), ou seja, seus sinais são igno- 
rados. Embora -1 seja menor que 1 
magnitude da velocidade é a mesma pa- 
ra ambos os valores — o sinal menos in- 
dica que o sentido é contrário. O ABS 
simplesmente elimina o sinal antes de 
testar o valor da velocidade. 

A linha seguinte, isto é, a 230, atri- 
bui a bola a cor de fundo, apagando, as- 
sim, sua última posição. Depois, o pro- 
grama atualiza a velocidade da bola e 
manda o computador de volta para a li- 
nha 100. Esta dá continuidade ao mo- 
vimento da bola. 

Vfi 

10 SCBEEN 3:COLOB 1 5 . 1 , 3 : B -BND ( 
-TIME) 

20 LINE (0,96)-(96,0) , 6 : PAINT ( 
0.0) ,6 

30 LINE (255,96) - (160,191) .6:PA 
JNT (255.191) ,6 

40 LINE (0,96) - (95, 191) . 4 : PAINT 

(0,191) ,4 
50 LINE (255,96)-(158,0) ,4:PAIN 
T (255,0), 4 

60 LINE (0.0)-(255,0) ,3:LINE-(2 
55,191) ,3:LINE-(0,191) . 3: LINE- ( 
0,0) ,3 

70 FOB 1-1 TO 8 : BEAD X1.Y1.X2.Y 
2,C:LINE (XI , YD - (X2 . Y2) , C , BF : N 
EXT 

80 DATA 130.30,160.45,11,100,17 
0,130, 155. 11, BO. 30, 95, 65, 2. 170. 
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135 , 180 , 160, 2,90.90. 100. 120. 13, 

150, BO, 160, 110,13,60,100, 70.140 

,9,190.55,200,95,9 

90 X-120+16"RNDU) ;Y-90+16*RND( 

1) :VX-4*(-l)-INT(10«BNOÍD) rVY- 

4»(-l] -INT(10*RND{1) ) 

100 PSET(X.Y) 

110 Pl-POINT(X+VX,Y+VY) :P2-P0IN 

T(X+VX,Y> :P3-POINT(X,Y+VY) : IF P 

1-1 AND P2-1 AKD P3-1 THEN 190 

115 PLAY "05A64* 

120 IF P2-1 AND P3-1 THEN 160 

130 IF P2>1 THEN VX— UX 

140 IF P3>1 THEN VY--VY 

150 GOTO 190 

160 VX--VX:VY— VY 

190 PRESET(X.Y) : X-X+VX : Y-Y+VY 

240 COTO 100 

A primeira linha seleciona a tela de 
baixa resolução, define as cores e ativa 
o gerador de números randômicos. 

A tela do MSX não contém blocos es- 
palhados aleatoriamente, mas cantos 
diagonais coloridos. Utilizar variáveis 
para checar se a bola está batendo em 
algum desses cantos seria complicado e 
deixaria o programa extremamente len- 
to. E, considerando que precisaríamos 
ainda adicionar vários IF...THEN pa- 
ra detectar colisões da bola com algum 
dos blocos no meio da tela, podemos 
concluir que tal processo é praticamen- 
te inviável. 



VERIFICANDO MAIS DE UMA COR 



Com algumas linhas de programa, o 
POINT possibilita a detecção de três 
quadrados ao redor da bola. E, se esco- 
lhermos cuidadosamente as cores, pode- 
remos fazer a verificação de várias de- 
las com apenas duas checagens. 

O programa começa ajustando o fun- 
do: limpa a tela com um fundo preto, 
coloca os cantos — dois vermelhos e 
dois azuis — e desenha uma moldura 
verde (linhas 10 a 60). A linha 70 lê os 
dados dos blocos restantes que estão na 
linha DATA 80 e os coloca na tela via 



LINE. Como você pode observar, este 
programa é um bom exemplo de como 
os comandos gráficos funcionam em al- 
ta e em baixa resolução, 

A linha 90 determina as coordenadas 
iniciais da bola, X e Y, e as velocidades 
iniciais, VX e VY, que são componen- 
tes do vetor de velocidade nas direções 
Xe Y, respectivamente. A bola, repre- 
sentada por um ponto de baixa resolu- 
ção, é, então, impressa nas coordenadas 
X,Y. 

Para a checagem das cores, definem- 
se três variáveis (linha 110): PI, para o 
quadrado diagonalmente à frente da bo- 
la (qualquer que seja a direção em que 
ela esteja se movimentando), P2 e P3, 
para os quadrados nas posições de bai- 
xa resolução seguintes (cada bloco de 
baixa resolução tem quatro por quatro 
pontos). Partindo do princípio de que 
não é preciso checar os quadrados das 
direções nas quais a bola não se movi- 
menta, concluímos que esses três testes 
são suficientes. 

A linha 1 10 também verifica se os três 
quadrados são pretos (cor de número 1 , 
que também é a cor de fundo). Em ca- 
so afirmativo, o computador vai para a 
linha 190, saltando os testes de reflexão, 
pois a bola não está batendo em nada. 

Se a posição x de baixa resolução se- 
guinte (quatro pontos adiante na dire 
ção horizontal) e a posição y seguint 
(quatro pontos na direção vertical) fc 
rem pretas, mas a próxima não, a boi! 
precisará voltar exatamente na mesma 
direção de que veio. Assim, o compu- 



tador salta para a linha 160, que con- 
tém os procedimentos necessários para 
esse caso especial de colisão diagonal. 
Os dois vetores de velocidade (na dire- 
ção x e na direção y)são invertidos, fa- 
zendo a bola retroceder. 

Se nenhum teste executado até a li- 
nha 130 for verdadeiro, a bola deve es- 
tar atingindo algum objeto (seja ele um 
canto ou um bloco) pelas laterais. A li- 
nha 130 verifica se o quadrado atingido 
está na horizontal (lados direito ou es- 
querdo), e, constatando que sim, inver- 
te o vetor relevante da velocidade. O ve- 
tor relevante é oposto ao eixo de coli- 
são — portanto, no nosso exemplo, o 
vetor y é invertido, 

A linha seguinte, ou seja, a 190, atri- 
bui à bola a cor de fundo, apagando, as- 
sim, sua última posição. Depois, o pro- 
grama atualíza a velocidade da bola e 
manda o computador de volta para a li- 
nha 100. Esta dá continuidade ao mo- 
vimento da bola, 



GE 





PLOT X, 39: NEXT 

30 FOR Y - 0 TO 39: PLOT 0,Y: 

PLOT 39. Y: NEXT 

40 FOP. N - 1 TO 30 

50 RX - INT ( RN D (1) * 34) * 

3 

60 RY - INT ( RND íl) « 34) + 



90 COLOR= 3: PLOT X , Y : OX - X:0 
Y - Y 

100 X - X + XV:Y - Y + YV 
110 TX ■ SCRNÍ X + XV, Y) 
120 TY - SCRN ( X.Y + YV) 
130 IF TX - 13 THEN XV - - XV 

140 IF TY - 13 THEN YV ■ - YV 

150 COLOR- 0: PLOT OX . OY 



Para o TK-2000, substitua os núme- 
ros 13, no programa do Apple, por 5. 
As linhas alteradas ficam assim: 

10 HOME : GR : COLOR- 5 

130 IF TX - 5 THEN XV - - XV 

140 IF TY - 5 THEN YV - - YV 

O programa para o Apple e o 
TK-2000 não difere muito daquele do 
Spectrum. Ele começa limpando a tela, 
definindo o modo gráfico de baixa re- 
solução e especificando a cor amarela 
(número de código 13), tanto para os blo- 
cos como para as bordas. Em gráficos 
de baixa resolução temos uma tela ini- 
cial de 40x40, com uma janela para tex- 
to. Se indicarmos algum ponto da tela, 
aparecerá naquela posição um retângu- 
lo na cor que estiver em vigor. No 
TK-2000, o código da cor é 5 
(vermelho). 

A linha 20 é responsável pelas partes 
superior e inferior das bordas. Observe 
que mantivemos o valor da coordenada 
y constante e variamos o valor da coor- 
denada x, traçando, assim, as duas li- 
nhas horizontais. 

A linha 30 segue o mesmo princípio 
da linha 20, mas varia os valores da 
coordenada y e traça os lados esquerdo 
e direito das bordas. 

Os blocos espalhados aleatoriamen- 
te pela tela são gerados entre as linhas 
40 e 70. A linha 50 atribui à coordena- 
da RX um valor randômico entre 3 e 36, 
e a linha 60 atribui a RY um valor nesse 
mesmo intervalo. 

RX e RY são as coordenadas do blo- 
co a ser plotado (traçado no gráfico). A 
linha 80 define as coordenadas iniciais 
do retãngulo que, no caso, representa a 
■ bola, e também ajusta os sentidos dos 
Ivetores de velocidade XV e YV. 



A linha 90 define a cor da bola — o 
número 3 é o código para a cor púrpu- 
ra no Apple e branca no TK-2000 — , 
imprimi ndo-a, em seguida, nas coorde- 
nadas x e y. A mesma linha define duas 
outras variáveis importantes: OX e OY, 
que armazenam as coordenadas da po- 
sição anterior da bola para que esta pos- 
sa ser apagada mais tarde. 

A posição da bola é atualizada pela 
linha 100 do programa, que incrementa 
as coordenadas da bola na direção do 
vetor da velocidade. 

A cor do quadrado situado imedia- 
tamente ao lado da bola — ou seja, 
aquele no qual a bola está prestes a ba- 
ter pela horizontal — é guardada em 
TX, por meio do comando SCRN. A 
cor do quadrado logo acima ou abaixo 
(depende da trajetória) da bola é guar- 
dada na variável TY. As linhas 130 e 140 
verificam se esses quadrados que estão 
no caminho da bola são amarelos (cor 
13) ou. no caso do TK-2000, vermelhos 
(cor 5) . Se o quadrado da horizontal for 
amarelo ou vermelho, inverte-se o vetor 
de velocidade horizontal da bola. 
Tratando-se do quadrado de cima ou de 
baixo, o vetor invertido será o da com- 
ponente vertical. 

Para apagar a bola, utilizamos o já 
conhecido artifício de redesenhá-la na. 
mesma posição, só que na cor de fun- 
do. Para isso.alinha I50seleciona açor 
0 (preta), que é a cor de fundo, e plota 
um quadrado no local definido pelas 
coordenadas OX,OY — coordenadas 
"velhas" da bola. 

O programa continua na linha 160, 
que envia o computador de volta para 
a linha 90 e tudo se repete. 

Observe que o programa não inclui 
testes para a verificação de quadrados 
dispostos diagonalmente à trajetória 
percorrida pela bola. Assim, eles são ig- 
norados e eliminados. Não é difícil 
acrescentar uma linha que faça esse tes- 
te, mas o efeito seria uma bola indo e 
voltando pelo mesmo caminho. 



É muito fácil transformar os progra- 
mas em jogos, bastando adicionar-lhes 
algumas linhas. O programa de TRS- 
Color, por exemplo, constituiria uma 
boa base para um jogo tipo fliperama. 
Podemos fazer o computador executar 
várias operações depois das condições 
BF...THEN — por exemplo, soar um 
bip cada vez que a bola atinge um blo- 
co ou borda, ou mesmo acrescentar um 
placar. Outros artigos de INPUT utili- 
zarão os comandos vistos aqui em diver- 
sas rotinas de jogos. 



O TRS-Color não dispõe apenas do 
POINT, usado na tela de baixa resolu- 
ção. Há outro comando, o PPOINT, 
que pode ser utilizado na tela de alta re- 
solução. No MSX, o mesmo comando 
POINT se aplica ã alta resolução. 

Em vez de devolver o código da cor 
de um certo quadrado, como faz o co- 
mando POINT, o PPOINT devolve o 
código da cor de um ponto. 

Digite e rode o programa a seguir e 
veja como empregar esse comando. 

Q 

10 PMODE 1,1 

20 PCLS 3 

30 SCREEN 1,0 

40 LINE(20.20)-(235,171) , PRE8ET 
, BF 

50 VX-RND(7)-4:VY-RND(7)-4 
60 BX-127:BY-95 
70 PSET(BX,BY.4) 

BO IF PP0INT(VX+BX.BY)-3 THEN V 

X-RNDO) » { (VX>0) - (VX<0) ) 

90 IF PPOINT (BX.BY+VY) -3 THEN V 

Y-RND (3) ■ ( (VY>0) - (VY<0) ) 

100 PRESET (BX , BY 1 

110 BX-BX+VX:BY"BY+VY 

120 GOTO 70 



10 SCREEN 2:COLOR 1,15,15: R-RND 
(-TIME) 

40 LINE (16,16)-(238,177) ,4.B:P 
A [ NT (0,0) .4 

50 VX-INT(RND(l)«B-4) :VY-INT(BN 

D(l)*8-4) 

60 BX-127:BY-95 

70 PSETÍBX.BY) ,4 

80 IF POINT(VX+BX.BY)-4 THEN VX 

— vx 

90 IF P0INT(BX.BY+VY)-4 THEN VY 
--VY 

100 PRESET (BX.BY) ,15 
110 BX=BX+VX:BY=BY+VY 
120 GOTO 70 

Uma bola movimenta-se pela tela, 
batendo e voltando. O comando 
PPOINT — ou POINT, no MSX — é 
usado para verificar se a bola bateu na 
parte azul. As linhas 80 e 90 checam se 
o ponto à frente da bola è azul. Em ca- 
so afirmativo, a bola é revertida pelo 
restante das duas linhas, que calculam 
uma velocidade aleatória para o movi- 
mento da bola (no programa do MSX 
a velocidade é apenas invertida). 

Em geral, usa-se PPOINT (ou POINT, 
no MSX) para detectar colisões. Se ti- 
vermos, por exemplo, um gráfico coli- 
dindo com outro, podemos checar a co- 
lisão verificando a cor de um deles. 
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MÚSICA EM 
SEU MICRO 





Com exceçào do Apple, todos os mi- 
crocompui adores mencionados neste ar- 
tigo contam com algum tipo de coman- 
do capaz de produzir sons . O funciona- 
mento de comandos sonoros, aliás, já 
foi explicado anteriormente em Quebre 
a Barreira do Som (página 168). Um ar- 
tigo posterior — Apple e TK-2000: Efei- 
tos Sonoros — abordou o funcionamen- 



to de uma rotina em código de máqui- 
na, que será utilizada no programa des- 
te artigo; ela permite que os micros des- 
sas linhas produzam sons. 

De um modo geral, é possível selecio- 
nar tanto a tonalidade como a duração 
da nota emitida. No MSX e no TRS- 
Color, outros parâmetros também po- 
dem ser modificados. 



A forma de produzir sons por meio 
de um programa em BASIC varia de 
computador para computador. No 
MSX, podemos tocar até três notas ao 
mesmo tempo, o que possibilita a exe- 
cução de acordes musicais. Os demais 
produzem só uma nota por vez. O MSX 
permite que controlemos outros parâ- 
metros essenciais para certas aplicações. 
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Nenhuma dessas diferenças é relevan- 
te no momento. De fato, melodias sim- 
ples podem ser executadas em qualquer 
um dos cinco computadores abordados 
neste artigo, que pretende ser apenas um 
guia para principiantes. Começaremos 
com algumas noções de teoria musical, 
necessárias à compreensão do progra- 
ma, que transforma parte do teclado de 
seu micro em um instrumento simples. 
Em artigo posterior, veremos de que 
maneira tirar maior proveito dos recur- 
sos musicais do computador. 

Antes de iniciar, devemos explicar o 
significado de dois termos fundamen- 
tais. O primeiro deles é a expressão "al- 
tura", que aqui quer dizer o mesmo que 
tom ou tonalidade. Ele permite classifi- 
car as notas musicais em graves e agu- 
das. Assim, uma nota mais alta que ou- 
tra será mais aguda que ela; uma nota 
mais baixa será mais grave. O segundo 
termo, "intervalo", indica a distância 
musical entre duas notas de tonalidade 
diferente. 



UMA ESCALA SIMPLES 



Uma escala é uma série ascendente de 
notas musicais, cada uma mais alta que 
a anterior. Embora em computação se- 
ja tecnicamente melhor recorrer a letras 
do alfabeto — de A a G — para desig- 
nar as notas {como acontece na Europa 
e nos Estados Unidos), o sistema ado- 
tado no Brasil emprega os nomes tradi- 
cionais — dó, ré, mi, fá, sol, lá, si. As- 
sim, uma escala começa com dó e vai 
"subindo" até o próximo dó, num to- 
tal de oito notas. 

Essa escala "dó-ré-mi" é chamada de 
"escala maior" . Ela é definida por uma 
relação musical entre as notas. Assim, 
qualquer sequência de notas com o mes- 
mo padrão de intervalos musicais entre 
si é uma "escala maior". 



As teclas brancas de um piano cor- 
respondem às notas (letras) A, B, C, D, 
E, F c G, num ciclo que se repete pelo 
teclado afora — C é dó, D é ré, F é mi 
etc. A "escala maior" corresponde a oi- 
to teclas, começando num C e terminan- 
do no próximo C. Essa escala é deno- 
minada escala de "C maior", por mo- 
tivos óbvios. Como dissemos antes, uma 
"escala maior" pode iniciar-se em qual- 
quer tonalidade, mas a escala de "C 
maior" deve começar necessariamente 
num C, que tem uma altura específica. 
A escolha dessa letra como primeira no- 
ta fixa a tonalidade da escala. 
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Para que servem enlão as teclas pre- 
tas do teclado? Acontece que a "escala 
maior" não contém todas as notas pos- 
síveis entre a primeira e a última letras. 
Entre dó e ré, por exemplo, existe uma 
nota que não pertence à ' 'escala maior' ' ; 
o mesmo ocorre com outros pares de no- 
tas. As teclas pretas correspondem a esse 
tipo de som intermediário. Assim, a te- 
cla preta entre C e D (dó e ré em "C 
maior") é chamada de C sustenido ou 
D bemol ("sustenido" significa mais al- 
to e "bemol", mais baixo), conforme 
usemos a nota acima ou abaixo dela co- 
mo referência. 

A nota entre D e E é D sustenido ou 
E bemol, e assim por diante. Note que 
não há tecla preta entre E e F (mi e fá 
em "C maior") nem entre B e C (si e 
dó em "C maior"). 

O intervalo existente entre duas teclas 
vizinhas (mesmo que elas tenham cores 
diferentes) é chamado de semitom, de 
maneira que os intervalos entre C e C 
sustenido, C sustenido e D e entre E e 
F são todos semitons. Um intervalo que 
contenha dois semitons é denominado 
tom "inteiro". 

O arranjo de tons e semitons que de- 
finem uma escala maior é: 

dois semitons = um tom entre dó e ré 
(C e D em "C maior"). 

dois semitons = um tom entre ré e mi 
(D e E em "C maior") 

um semitom entre mi e fá (E e F em "C 
maior"). 

dois semitons = um tom entre fá e sol 
(F e G em "C maior"). 

dois semitons = um tom entre sol e lá 
(G e A em "C maior"). 

dois semitons = um tom entre lá e si (A 
e B em "C maior"). 

um semitom entre si e dó (B e C em "C 
maior"). 



OUTRAS ESCALAS MAIORES 



Segundo o que foi exposto, existem 
doze semitons entre o primeiro e o se- 
gundo dó de uma "escala maior" (to- 
tal de oito notas). 

Suponhamos agora que precisamos 
de uma "escala maior" em outra tona- 
lidade — começando em G, por exem- 
plo. Nela , G seria dó e A seria ré; mas, 
se tocássemos as seis teclas seguintes, o 
arranjo de intervalos não seria o de uma 
"escala maior" : os intervalos entre lá e 



si, e si e dó não estariam correios. Para 
obtermos uma "escala maior" verdadei- 
ra, F deve ser substituído por F susteni- 
do (ou si, em nossa nova escala), resta- 
belecendo o padrão correto de interva- 
los. Para entender melhor, estude o dia- 
grama da página anterior ou use um te- 
clado de verdade. 

Uma "escala maior" começando em 
F seria então: F, G, A, B bemol, C, D, 
E e F. (B deve ser bemol, caso contrá- 
rio a nota fá e os intervalos mi-fá e fá- 
sol estarão errados). 

Podemos obter uma "escala maior" 
começando em qualquer nota, desde que 
respeitemos o arranjo de intervalos. Mas 
qualquer escala não iniciada em C de- 
verá usar uma ou mais teclas pretas: 
apenas a escala "C maior" usa só teclas 
brancas. Fica explicado porque ela é tão 
popular: é mais fácil tocar usando só as 
teclas brancas. 

Muitas músicas simples — como can- 
tigas de ninar, músicas folclóricas e al- 
guns hinos — podem ser tocadas na es- 
cala maior. A canção Três Ratinhos Ce- 
gos, por exemplo, começa assim: 

mi, ré, dó 
mi, ré, dó 
sol, fá, fá, mi 
sol, fá, fá, mi... 

e as primeiras notas de Atirei o Pau no 
Gato são: 

sol, lá, mi, ré, mi, fá, sol, sol, 
sol, fá, sol, lá, lá, lá, 
sol, lá, mi, mi, mi... 

Escrevemos aqui apenas as tonalida- 
des; o ritmo fica por conta do leitor. Só 
com notação musical — um tema que 
não abordaremos agora — poderíamos 
transmitir a informação completa a res- 
peito da melodia — altura, ritmo, inten- 
sidade, entre outras coisas. 

Músicas mais complexas não poderão 
ser executadas somente com as teclas 
brancas. Geralmente, começamos em 
uma escala e, com o desenvolvimento da 
música, passamos temporariamente pa- 
ra outras escalas, usando notas que não 
aparecem na primeira. 

Veja, por exemplo, o caso de Yester- 
day, música composta por John Lennon 
e Paul McCartney que se tornou um dos 
grandes sucessos dos Beatles: 

ré, dó, dó, mi, fá, fá sustenido, sol sus- 
tenido, lá, si, dó, si, lá, lá... 

Essas notas, estranhas à escala origi- 
nal, são um requinte; elas dão um to- 
que especial a muitas melodias. 



BEMÓIS OU SUSTENIDOS? 



Por que se usa o termo "sustenido" 
(em F sustenido) na escala "G maior", 
e "bemol" (em B bemol) na escala "F 
maior"? Afinal, F sustenido e G bemol 
correspondem à mesma tecla preta. Por 
que não usar só um dos termos, deixan- 
do o outro de lado? Quem tentar criar 
novas "escalas maiores" — começando 
em notas diferentes de C — terá a res- 
posta. Na verdade, os dois termos são 
necessários para garantir que, em qual- 
quer escala, cada nota seja representa- 
da por uma letra diferente. Assim, a 
substituição do B bemol da escala "F 
maior" por A sustenido, resultaria em: 
F, G, A, A sustenido, C, D, E e F. Em 
tal sequência de notas aparecem dois A 
e nenhum B, o que pode gerar confusão. 

Da mesma maneira, a substituição de 
F sustenido por G bemol em "G 
maior", resultaria em uma escala com 
dois G e nenhum F. Já o emprego de be- 
móis no lugar de sustenidos, ou vice- 
versa, é tão deselegante como erros de 
ortografia em um texto. Programas pa- 
ra compor música que usem só bemóis 
— ou sustenidos — , com a justificativa 
de que C sustenido é igual a D bemol, 
deixam" muito a desejar. 



FREQUÊNCIA E INTERVALOS 



Som é o efeito produzido pelas vibra- 
ções no ar. Quanto mais rapidamente es- 
tas se repetirem, ou quanto maior for 
sua frequência, mais aguda será a nota 
correspondente. A unidade usada para 
exprimir frequência é cps (ciclos por se- 
gundo) ou Hz (hertz, que significa a 
mesma coisa). 

Se tomarmos a nota C, cuja frequên- 
cia é igual a 256 Hz, e dobrarmos esse 
valor, obteremos outra nota C uma oi- 
tava acima da primeira — mais aguda, 
portanto (uma oitava é o intervalo entre 
o dó mais baixo e o dó mais alto). Do- 
brando novamente o valor da frequên- 
cia, ele passará de 512 para 1024 Hz, que 
corresponde à próxima nota C — uma 
oitava acima da anterior. Desse modo, 
quando multiplicamos a frequência de 
uma nota, adicionamos a ela um inter- 
valo musical. 

Já vimos que há doze semitons em 
uma oitava (treze teclas, oito brancas e 
cinco pretas, com doze semitons entre 
si). Se, dobrando a frequência, subimos 
uma oitava, por que fator devemos mul- 
tiplicar a frequência de uma nota para 
subir um semitom? No caso de uma oi- 
tava acima, temos a equação: 
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frequência da nota x 2 ■= frequência da 
nota uma oitava mais alta. 

Chamamos de X o fator necessário 
para subir um semitom. Teremos então: 

frequência da nota 

xXxXxXxXxXxXxXxXxXxXxXxX = 
frequência da nota uma oitava mais alta. 
*X*X'X*X*X*X*X*X 1, 'X*X*X*X = 

O número que divide a razão 2:1 em 
doze partes iguais é a décima segunda 
raíz de 2 (para calcular esse valor em 
BASIC, use a expressão 2T{1/12». Se 
multiplicarmos 256 por esse valor, ob- 
teremos a nota um semitom mais alta. 
Uma nova multiplicação adiciona mais 
um semitom. Se repelirmos o processo, 
após doze multiplicações consecutivas, 
chegaremos à frequência da oitava se- 
guinte. Por tudo isso, a décima segun- 
da raiz de dois é uma constante funda- 
mentai da música. 



MELODIAS NA "ESCALA MAIOR" 



Se quisermos tocar uma música usan- 
do o programa do final deste artigo, te- 
remos que adivinhar qual nota é dó, 
qual é ré, e assim por diante. A questão 
é: como tocar "de ouvido"? 

Existirá algum método para fazer 
com que a música possa ser tocada so- 
mente nas teclas brancas, facilitando sua 
execução? Neste caso também, um ca- 
minho possível é descobrir qual nota da 
música é um dó, deduzindo, a partir daí, 
as posições das demais notas. Muitas 
melodias começam ou terminam com es- 
sa nota; além disso, o dó acaba funciO' 
nando como o "centro de gravidade' 
de certas músicas simples. Uma vez en 
contrada, essa nota nos servirá de guia 
e, com um pouco de sorte, descobrire 
mos as outras. Tente tocar a música des- 
de o início, nota por nota; preste muita 
atenção no que estiver ouvindo, procu- 
rando perceber se a tonalidade está su 
bindo ou descendo naquele ponto e st 
a nota seguinte se encontra na tecla vi 
zinha, ou mais além. 

Se nos enganarmos sobre qual é a no- 
ta dó, algumas notas parecerão muito 
graves ou muito agudas e teremos de 
procurar o dó "certo". Com paciência 
e perseverança, porém, qualquer um po- 
de desenvolver uma espécie de "intui- 
ção musical" e alguns serão capazes de 
tocar músicas inteiras no teclado de um 
microcomputador. 

Para facilitar o trabalho dos princi- 
piantes, contudo, este artigo menciona 
as notas de algumas melodias mais ou 
menos conhecidas. 




UM TECLADO MUSICAL 



Os programas a seguir transformam 
a parte superior do teclado do seu com- 
putador em um pequeno órgão. As le- 
tras Q, W, E, R, T, Y, U, I serão as no- 
tas dó, ré, mi etc. As teclas da direita 
avançam na oitava seguinte. As teclas 
2, 3, 5, 6, 7 funcionam como as teclas 
pretas do piano. Um diagrama de seu te- 
clado fica mais ou menos assim: 

2 3 5 6 7 etc. 

Q W E R T Y U 1 etc. 

d r m f s 1 s d 
ó é i á o á i ó 

O programa coloca na tela um dia- 
grama semelhante para orientar o tecla- 
dista. Além disso, quando forem toca- 
das as notas da primeira oitava da "es- 
cala maior", seus nomes aparecerão 
num canto do vídeo. 

Digite a seguir o programa específi- 
co para o seu micro e siga as instruções 
que o acompanham para se tornar um 



O programa do Spectrum transforma 
as duas linhas superiores do teclado em 
um órgão. Para ouvir uma nota, basta 
pressionar a tecla correspondente. 

A listagem começa estabelecendo os 
valores das variáveis que correspondem 
à duração das notas, ao endereço do la- 
ço principal (guardado na variável loop, 
para economizar memória), e à coorde- 
nada x do comando PR1NT AT, usado 
para impressão das notas na tela. Ela 
continua selecionando as cores da tela, 
e entra a seguir na porção responsável 
pela produção de sons. 

A variável loop contém o número da 
linha para o qual o programa retornará 



após executar uma nota; ele aguardará 
então que você pressione a tecla seguin- 
te. Quando isso acontecer, o código do 
caractere correspondente será colocado 
na variável nota, com o auxílio do co- 
mando CODE. 

O computador irá então para a linha 
cujo número está em nola. Os números 
de linha correspondem aos códigos das 
teclas usadas (de 48 a 121). O comando 
SOUND em cada uma dessas linhas é 
ajustado para tocar a nota correspon- 
dente à tecla (0, por exemplo, corres- 
ponde a dó). Se consultarmos o manual 
— ou o artigo Quebre a Barreira do Som 
— , veremos que o primeiro número 
após SOUND corresponde à duração da 
nota (aqui representada pela variável d) 
e o segundo, à tonalidade. 

Quando a tecla apertada for de uma 
nola da "escala maior", o nome desta 
também será impresso na tela, pela mes- 
ma linha que a executa. 

Depois de emitir o som, o computa- 
dor retorna à linha 1000, onde espera 
uma. nova tecla ser pressionada. 



GOTO 
GOTO 
GOTO 
GOTO 1 
GOTO 1 
GOTO 



GOTO 900 
GOTO loop 
SOUND d, 15 
SOUND d , 1 : 
SOUND d , 3 : 
SOUND d. 6: 
SOUND d,B: 
SOUND d, 10 
SOUND d, 13: GOTO 
PEINT AT Y,Xí"MI 
GOTO loop 
PBINT AT Y,Xi"DO 
: GOTO loop 
SOUND d. 14: GOTO 
SOUND d, 16: GOTO 
PBINT AT y.xj "DO 
GOTO loop 
PBINT AT y.x; "FA 
GOTO loop 
PRINT AT y,x;"SO 
GOTO loop 
PBINT AT y.x;"SI 
: GOTO loop 
PRINT AT y,x;"BE 
GOTO loop 
PRINT AT Y,x;"LA 
GOTO loop 
GOTO looi 
LET D=.0 
1000 
BORDER 4 
PBINT AT 



OOp 

: SOUND d 



SOUND d 
SOUND d 
SOUND d 
SOUND d 
SOUND d 
SOUND d 



LET X-5: LET lo 



901 
902 
a d" 

903 PRINT AT 9,6 



PAPER 4: 



920 FOR y»3 TO 4: GOSUB 990 
930 NEXT y 

940 LET aS="Q UERTYUIO 



iiimmiiBB— i— ■■■■■■■■■■■■mim 



960 NEXT y 

980 LET x=15: LET y-15: GOTO 1 

990 FOR 1=1 TO LEN aS 

991 IF a$<l>OCHRS 32 THEN 
PBINT AT Y.x+i i a$ (i ) ; 

992 NEXT l : RETURN 

1000 PRINT AT y,x:CHRS 32;CHRS 
32 

100S LET aS-INKEYS: IF a$-"" TH 
EN GOTO 1000 

1100 LET nota-CODE aS: GOTO not 



Aqueles que possuem micros da li- 
nha Spectrum importados devem subs- 
tituir o comando SOUND pelo coman- 
do BEEP, que tem a mesma sintaxe. 

Após iniciar a execução do programa, 
mantenha uma das teclas pressionadas 
para ouvir um som pulsante correspon- 
dente à auto-repetição da tecla. O som 
não é emitido continuamente, como 
num órgão, pois o comando SOUND 
produz sons com duração limitada. As- 
sim, o que o programa realmente faz é 
tocar a mesma nota repetidas vezes. 



nu 




Vejamos agora o que acontece com 
os modelos da linha MSX. 

Os microcomputadores dessa linha 
contam com poderosos comandos sono- 
ros graças a um microprocessador inter- 
no dedicado inteiramente à produção de 
sons, e capaz de funcionar simultanea- 
mente com a unidade central. Para pro- 
gramá-lo em BASIC, precisamos recor- 
rer a vários comandos SOUND, com o 
propósito de definir diversos parâmetros 
do som — ou ruído — que estamos que- 
rendo emitir. Uma introdução a esse as- 
sunto foi apresentada no artigo Quebre 
a Barreira do Som. onde abordamos vá- 
rios sons não-musicais. 

Contudo, para transformar a parte 
superior do teclado num programa se- 
melhante ao dos outros micros, pode- 
mos usar o comando PLAY, que torna 
o programa mais simples e curto. 

A primeira linha do programa esta- 
belece os parâmetros iniciais das notas: 
volume, duração, velocidade de execu- 
ção. As linhas 20 e 30 colocam todas as 
notas usadas pelo programa dentro da 
variável indexada NS, recorrendo ao co- 
mando READ e aos dados da linha DA- 
TA. A linha 40 cria um cordão conten- 
do todas as teclas usadas e um outro que 
permite dar nome a algumas das notas 
(dó, ré, mi etc). As linhas que vão de 50 
a 100 cuidam da organização do vídeo. 
A primeira delas seleciona a tela de tex- 
to com 32 colunas, escolhe as cores e 
desliga as teclas de função. 

Nas três linhas seguintes — ou seja, 



55, 60 e 65 — , o comando VPOKE é uti- 
lizado para modificar a tabela de cores 
— BASE (6) — , permitindo, assim, a 
impressão de letras coloridas. Se você 
não gostar das cores, pode mudar os có- 
digos nos locais onde eles aparecem — 
para maiores informações, veja o arti- 
go Os Comandos PEEK e POKE (pági- 
na 261). 

Na linha 70 , o comando VPOKE é 
novamente utilizado, desta vez para es- 
crever na tela. O FOR... NEXT contido 
nessa linha imprime parte do diagrama 
do teclado na tela, obtendo com READ 
os códigos dos caracteres de cada uma 
delas na linha 75 e modificando a tabe- 
la de nomes — BASE(5). O restante do 
diagrama é feito do mesmo modo pelas 
linhas 80 e 85. 

As linhas 90 e 100 completam o qua- 
dro, imprimindo o nome das notas sob 
as teclas correspondentes. 

A linha 120 espera que acionemos 
uma tecla. A 130 descobre qual das no- 
tas do cordão MS corresponde à tecla 
pressionada; se a tecla não pertencer ao 
conjunto predefinido, a linha 120 será 
repetida. 

A linha 140 é a que realmente execu- 
ta a nota, usando o PLAY. A altura da 
nota é selecionada pela variável NT, que 
é usada para escolher o elemento de NS 
que contém os operandos adequados do 
PLAY. 

A seguir, um comando ON GQTO na 
linha 150 imprimirá o nome da nota no 
canto superior esquerdo da tela, se ela 
pertencer à primeira oitava de "C 
maior". O programa retorna então pa- 
ra verificar uma nova tecla. 



10 PLAY "V15L64T255" 

20 DIM N$(21):FOR K-0 TO 16:REA 

D NS(K) : NEXT 

30 DATA C.C»,D,D|,E,F,F4.G,Gi.A 
, At , B , 04C , 04C| , 04D, 04DI . 04E 
40 M$""Ç;2W3ER5T6Y7UI9O0P" :DS-"Q 
WERTYtíIO" 

50 SCREEN 1:COLOR 1,6,6: KEY OFF 
55 FOR 1=6 TO 7:VPOKE BASE (6) +1 
,15*16+1:NEXT 

60 FOR 1=8 TO 11:VP0KE BASE(6)+ 
I,16+1S:NEXT 

65 FOR 1-12 TO 15:VPOKE BASE(6) 
♦I,16+10:NEXT 

70 FOR K-0 TO 6 ! READ A:N-2»À"20 
*INT(A/L0) :VPOKE BASE (5) +71+N, A 
:VPOKE BASE(5)+103+N.A:NEXT 
75 DATA 50.51,53.54,55,57,48 
80 FOR K=0 TO 9 : READ A:VPOKE BA 
SE(5)+102+K*2,A:VPOKE BA3E<5)+1 
34+K*2,A:VP0KE BASE { 5) +166+K-2 . 
A: NEXT 

85 DATA 81,87,69.82.84.89.65.73 
.79. BO 

90 LOCATE 4,9:PRINT "d r m f 9 
1 a d" 

100 LOCATE 4, 10: PRINT "o e i a 



120 AS-INKEYS:IF AS'"" THEN 120 
130 NT-INSTR(MS.AS) :IF NT=0 THE 
N 120 

140 PLAY "03"+NS(NT-l> 

150 LOCATE 0.0:D-1NSTR(D3,A$) :0 

N D GOTO 170.180.190,200.210,22 

0,230.170 

160 PRINT " ":GOTO 120 
170 PRINT "DO":GOTO 120 
180 PRINT "RE":GOTO 120 
190 PRINT "MI":GOTO 120 
200 PRINT "FA":GOTO 120 
210 PRINT "SO":GOTO 120 
220 PRINT "LA*:GOTO 120 
230 PRINT "SI":GOTO 120 




UM NOVO TECLADO 



O programa do Apple utiliza a roti- 
na de produção de sons do artigo Ap- 
ple e TK-2000: Efeitos Sonoros. O 
TK-2000 não precisa dela, já que dispõe 
do comando SOUND. 

A linha 10 limpa o video eativa a te- 
la gráfica de baixa resolução. A linha 20 
transfere para a memória os códigos da 
rotina de geração de som, contida na li- 
nha 30. 

A linha 35 cuida de colorir a tela, 
usando uma série de traços horizontais 
— verdes, no Apple — desenhados por 
comandos Hl IV As linhas 40 a 70 de- 
senham um teclado de piano. As teclas 
brancas e pretas são feitas por coman- 
dos VLIN. As coordenadas para uso 
desses comandos ficam nas linhas DA- 
TA 50 e 70. 

As linhas 80 e 90 imprimem as letras 
das teclas correspondentes ao desenho 
do piano, para orientar o usuário. Ob- 
serve que há dois espaços entre cada par 
de letras. A linha 100, por sua vez, im- 
prime o nome das notas (os tradicionais 
dó, ré, mi...). 

A seguir, o programa espera que se- 
ja pressionada uma tecla, colocando seu 
caractere em KS. 

Na linha 110, o comando POKE 
900,60 define a duração das notas — o 
endereço 900 é usado justamente para 
conter essa duração. 

Depois disso, uma grande quantida- 
de de linhas IF...THEN testa o conteú- 
do de KS para descobrir qual tecla foi 
pressionada, emitindo a nota correspon- 
dente em cada caso. O endereço 901 é 
usado para determinar a tonalidade. A 
rotina de produção de som é executada 
pelo comando CALL 800. 

Detectada a tecla pressionada, o pro- 
grama retorna à linha 1 10 para aguar- 
dar uma nova nota. 
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PROGRAMAÇÃO BASIL 




Por que as teclas musicais criadas 
pelo programa nos microcomputadores 
de linha TRS Color não têm auto-repe- 
tíçio? 

O programa do TRS -Color usa habi- 
tualmente o comando INKEYS para ve- 
rificar o teclado. 

É possível obtermos a auto-repeti- 
ção das teclas por intermédio do co- 
mando PEEK (essa forma tem sido mui- 
to utilizada por nós em rotinas de mo- 
vimentação do cursor). No entanto, o 
programa teria que acionar, neste ca- 
so, mais de vinte PEEK com diferentes 
números, um para cada tecla musical. 

Como tais números não teriam ne- 
nhuma relação entre si (as teclas, nes- 
te caso, são QWE... e não ABC...), se- 
ria preciso colocá-los em linhas sepa- 
radas ou armazená-los em uma linha 
DATA, tornando a execução do progra- 
muito demorada e complicada. É 
mais rápido, cómodo e simples pressio- 
nar uma tecla de cada vez. 

A duração de uma nota pode ser 
controlada pelo tempo em que a tecla 
e mantém sob pressão? 

De um modo geral, a resposta ó 
Na maioria dos computadores isso só 
seria possível com linguagem efe má 
quina, já que o programa teria que fa 
zer duas coisas ao mesmo tempo: to 
car a nota e verificar se a tecla conti 
3 sendo pressionada. 
Contudo, no micro MSX esse con 
trole é possível; é que, nesse compu 
tador, o dispositivo de som funciona ' 
dependentemente da unidade de pro- 
cessamento central. 

A produção de acordes — emissão 
de mais de uma nota simultaneamen- 
te — para enriquecer uma molodia tam- 
bém é possível no MSX. que conta com 
trôs canais de som. 



10 HOME ! GR 

20 FOR I ■ 0 TO 22: READ A: PO 

KE 800 + I,*: «EXT 

30 DATA 160,0,174,133,3,236,4 

8,192,136,208,5.206,132.3,240,6 

,202,208,245.76,34.3,96 

35 COLOR" 12: FOR I - 0 TO 39: 

HLIN 0, 39 AT I : NEXT 
40 COLOR- 0: FOR I « 1 TO 7: R 
EAD A ! VLIN 20,30 AT A: NEXT 
50 DATA 8,11.17,20,23,29,32 
60 COLOR- 15: FOR I - 1 TO 20: 
■ READ A: VLIN 20,39 AT A: NEXT 



70 DATA 6,7. 9,10, 12,13.15,1 
6,18,19, 21,22,24.25,27.28,30.3 
1. 33,34 

80 UTAB 21: HTAB 9: PRINT "2 
3"; TAB ( 18); "5 6 7"; TAB ( 30 

j.-g rj- 

90 VTAB 22: HTAB 8: PRINT "Q 

WERTYUIOP" 

100 VTAB 24: HTAB 7: PRINT "DO 

RE MI FA SO LA SI DO" ; 

110 GET KS: POKE 900,60 

120 IF K3 - "Q" THEN POKE 901 

,96: CALL BOO: GOTO 110 

130 IF K$ ■= "2" THEN POKE 901 

,90: CALL 600: GOTO 110 

140 IF K$ ' "W THEN POKE 901 

,85: CALL 600: GOTO 110 

150 IF K3 = "3" THEN POKE 901 

,B0: CALL BOO: GOTO 110 

160 IF K8 - "E" THEN POKE 901 

.76: CALL 800: GOTO 110 

170 IF K3 - "R" THEN POKE 901 

.72: CALL 800: GOTO 110 

180 IF KS - "5" THEN POKE 901 

,67: CALL 800: GOTO 110 

190 IF KS - "T" THEN POKE 901 

,64: CALL 800: GOTO 110 

200 IF KS - "6" THEN POKE 901 

,60: CALL 800: GOTO 110 

210 IF KS - "Y" THEN POKE 901 

,56: CALL 800: GOTO 110 

220 IF KS - "7- THEN POKE 901 

,53: CALL 800: GOTO 110 

230 IF KS - "U" THEN POKE 901 

,50: CALL 800: GOTO 110 

240 IF KS - "I" THEN POKE 901 

,47: CALL 800: GOTO 110 

250 IF KS - "9- THEN POKE 901 

,45: CALL 800: GOTO 110 

260 IF KS - "O" THEN POKE 901 

,42: CALL 800: GOTO 110 

270 IF KS - "0" THEN POKE 901 

,40: CALL 600: GOTO 110 

280 IF KS - "P" THEN POKE 901 

.37: CALL BOO: GOTO 110 

290 GOTO 110 



O programa acima funciona normal- 
mente nos micros da linha TK-2000. 
Contudo, muitos de seus usuários po- 
dem preferir usar o comando SOUND. 

Para isto, basta eliminar as linhas 20 
e 30 e modificar a linha 1 10, dando-lhe 
a seguinte forma: 

110 GET KS: D = 60 

A seguir, modifique todas as ocorrên- 
cias de: 

POKE 901,F:CALL 800 

para 

SOUND F.D 

onde F não è uma variável, mas o mes- 
mo número que ocorre após o POKE 
901. 

Os usuários do TK-2000 podem mu- 
dar as cores nas linhas 35, 40 e 60, já 
que as cores do Apple são diferentes. 



O programa começa limpando a tela 
e colorindo-a de azul. A mesma linha 
também estabelece os parâmetros de vo- 
lume, duração e velocidade das notas 
que serão executadas pelo comando 
PLAY. O artigo Quebre a Barreira do 
Som explica a sintaxe desse comando. 

As linhas 20 e 30 posicionam as no- 
tas usadas pelo programa dentro da ma- 
triz NS. A linha 40 coloca num cordão 
as teclas que serão utilizadas e em ou- 
tro os nomes correspondentes a algumas 
delas (dó, ré, mi etc). 

As linhas 50 a 110 cuidam dos dese- 
nhos na tela, colorindo-os de laranja e 
preto. Depois disso, o computador es- 
pera que pressionemos uma tecla. Se es- 
ta não corresponder a uma nota, o com- 
putador voltará à linha 120 e esperará 
por outra. 

A linha 140 executa a nota com o au- 
xílio do comando PLAV. A tonalidade 
da nota é definida pela variável NT, que 
depende da tecla pressionada. NT é usa- 
da para selecionar o elemento da matriz 
NS que contém os parâmetros adequa- 
dos da instrução PLAY. 

Usando o comando ON...GOTO, o 
computador imprimirá na tela o nome 
da nota (se esta fizer parte da primeira 
oitava de " C maior"), retornando em 
seguida para esperar uma nova tecla. 

10 CLS 3:PLAY"V31L4T8":BS-CHRS( 

175) 

20 DIM NS(21):FOR K-0 TO 19:REA 
D NSCK) : NEXT 

30 DATA C,C|,D,D|,E,F,F«,G,Gt,A 
, At , B , 04C , 04C| , 04D, 04Dt ,04E , 04F 
,04F|,04G 

40 M9-"Q2W3ER5T6Y7UI9O0Pe-"+CHR 
3(6) :DS-"QWERTYUIO" 
50 FOR K-0 TO 6: READ A:N-2*A~20 
*INT(A/10) :POKE 109 J+N , A : POKE 1 
125+N. A: NEXT 

60 DATA 50,51,53,54.55,57,48 
65 POKE U13,45:POKE 1145,45 
70 FOR K-0 TO 11 : READ A:POKE 11 
24-t-K*2,A:POKE 1 156+K*2 , A : POKE 1 
1B6+K"2,A:NEXT 

80 DATA 81,87,69,82.84.89,85.73 
. 79,80,64,95 

90 PRINT #260,'d"BS"r"BS"»"BS"f 

-BS■B"BS"l•BS*B"BS■d' , : 

100 PRINT #292. "o"B3'e'BS" i "BS" 

a"B3"o"BS'a"B3"i"BS"o" ; 

110 SCREEN 0,1 

120 A3-INKEY3:IF AS-*" THEN 120 
130 NT-INSTR(H3,A3) :IF NT-0 THE 
N 120 

140 PLAY"03"+NS(NT-1) 

150 PRINT «0. I :D-INSTR(DS.AS) :0 

N D GOTO 170,180,190.200,210,22 

0,230,170 

160 PRINT BS;BS;:GOTO 110 
170 PHINT"DO" ; : GOTO 110 
180 PRINT"RE" ; :GOTO 110 
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OGRAMACÃOB 



190 PHINT-MI' 

200 PRIKT-FA' 

210 PRINT"30- 

220 PBINT'LA* 

230 PRINT*SI" 



GOTO 110 
GOTO 110 
GOTO 110 
GOTO 110 
GOTO 110 



UMA SINFONIA DE BEETHOVEN 



O que podemos tocar nesse teclado 
musical que o programa acaba de criar? 
Que tal uma canção de ninar, por exem- 
plo? Ela começa com dó, de forma que 
a primeira tecla é Q; você terá que des- 
cobrir o ritmo "de ouvido": 



E, agora, esta passagem famosa da 
Nona Sinfonia de Beethoven, compos- 
ta quando o artista já estava surdo: 
E,E,R,T,T,R,E,W 
Q,Q,W,E,E.W,W 
E.E,R,T,T,R,E,W 
Q,Q,W,E,W.Q,Q 
W,E,Q,W,E,R,E,Q 
W,E,R,E,W,Q,W,T 
E,E,R,T,T,R,E,W 
Q,Q,W,E,W,Q,Q 

Executemos a seguir o tema do filme 
A Noviça Rebelde: 



Q,W,R,E,T,E.Q 
Q.E,W,R,E.Q 
Q,E,W,R,E,T.E,Q 
Y,W,R,E,Q 



Q,W,E,Q,E,Q,E 

W,E,R,R,E,W,R 

E,R,T,B,T,E,T 

R,T,Y,Y,T,R,Y 

T,Q,W,E,R,T,Y 

Y,W,E,5.T,Y,U 

U,E,5,6,Y,U,I 

I,U,Y,R,U,T,I 

Nessa melodia existem apenas três 
notas fora da escala (perto do final). 
Aqui estão as teclas para tocar o início 
de Jesus Alegria dos Homens, de Jo- 
hann Sebastian Bach: 

Q,W,E,T,R,R,Y,T,T,I,U,I,T,E. 
Q,W,E,R,T,Y,T,R,E,W,E,Q 
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COMPLETE O 
JOGO DE PÂLÂVRÂ! 



Neste artigo completaremos o jogo de 
palavras começado na lição anterior. 
Nele você encontrará tudo o que ainda 
é necessário para começar a jogar. Di- 
gite as linhas que faltam e veja algumas 
aplicações interessantes para os coman- 
dos de manipulação de cordões alfanu- 
méricos do computador. Depois, desa- 
fie seus amigos para adivinhar palavras 
bem complicadas. 

Aqui estão as rotinas para cada uma 
das opções do jogo: comprar letras, adi- 
vinhar uma letra em uma posição espe- 
cífica da frase, e adivinhar a frase intei- 
ra. O programa também faz a contagem 
de pontos assim como do número de 
tentativas e de jogadas. 




370 IF dSO"XX" AND d$0"ZZ" 
AND LEN dS>l THEN GOTO 360 
380 IF d$=CHHS 32 THEN GOTO 
410 

385 TF dS="ZZ" THEN LET dS-"" 
: GOTO 900 

390 IF CODE dS<65 OB CODE dS> 

90 THEN GOTO 360 

400 IF d5-"XX" THEN LET d3=" " 



: C3 oto 5oo 
410 GOSUB 790 
420 LET e-0 
430 LET e-e+1 

440 IF p=1+1 THEN LET tb=tb-g 
: LET (jS<m TO m+7)="": PHINT 
AT 4.0;q$: LET dS-"": GOTO 470 
450 IF sS(e)OdS THEN GOTO 
4 30 

460 IF sS(e)=dS THEN LET zS fe 
) =dS: GOTO 430 

470 PAUSE 100: PB [NT AT 14,0:: 
FOB r=l TO 7: PHINT " 
nhxt r 

480 PRINT PAPER 2; INK 6 i AT 1 
,22;tb;CHHS 32: PRINT PAPER 2 
; INK 6;AT 14,0;zS: PRINT " TE 

NTAT1VA "lf! LET f>f+l: IF sS = 

zS THEN GOTO 730 

4 90 GOTO 360 

500 INPUT " QUAL CABACTEB ÍÍUEH 
ADI VINHAB ?" , LINE dS 
510 IF LEN dS>l THEN GOTO 500 
520 IF dS=CHRS 32 THEN GOSUB 
790 : GOTO 550 

530 TF CODE d$<65 OB CODE dS> 
90 THEN GOTO 500 
540 GOSUB 790 

550 PRINT PAPER 2; INK 6;AT 
18.0;dS: PRINT AT 18,2;"EM OJJA 
L POSIÇÃO ? - Use as r.ecl 



Nonada. É com essa palavra misteriosa 
que tem início Grande Sertão: 
Veredas, de Guimarães Rosa. Surpreenda 
seus adversários com expressões 
como essa, jogando o jogo de palavras. 



aa DIREI TA e ESÍiUEBDA e 

'0' para definir." 
560 PB I NT PAPEB 2; INK 6 ; AT 
].4,0;z$: PHINT PAPER 6; INK 2 
; AT 14,biz$(b+l) 

5/0 PAUSE 0: LET yS" INKEYS ! IF 
yS="" THEN GOTO 570 
590 IF YS="B" AND bíl-l THEN 
LET b=b+.l 

600 IF y5-"5" AND b>0 THEN 
LET b=b-l 

610 IF yS-"0" THEN GOTO 680 
640 IF b>=32 THEN LET w-15: 
LET v-b-32 

650 IF b<32 THEN LET w=14: 
LET v-b 

660 PRINT PAPER 2; INK 6 ; AT 
14,0;zS: PRINT PAPER 6; INK 2 
; AT u,vizS(b+l) 
670 GOTO 570 

680 IF zStb+1 IO - *" THEN GOTO 
570 

690 IF sS(b+l)OdS THEN LET 

r.b = tb-g/2: PRINT FLASH 1 ; AT 

17,0;"C)UE AZAR!": PAUSE 50: 

LET b-0: GOTO 470 

700 IF sSIb+U-dS THEN PRINT 

FLASH l;AT 17 ,0 : "MUITO BEM I»! 

PAUSE 50: LET zS(b+l)-dS: LET 

tb=rb+g: LET b=0 

710 TF sS-zS THEN GOTO 730 
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■ 


NOVAS ROTINAS PARA 


■ 


COMO ADIVINHAR UMA LETRA 




CONCLUIR 0 JOGO DE PALAVRAS 




EM POSIÇÃO ESPECIFICA 


■ 


COMPRE LETRAS 


■ 


ADIVINHE A FRASE COMPLETA 


■ 


VERIFICAÇÃO DO PALPITE 
DO JOGADOR 


■ 


A INSTRUÇÃO CALL NO APPLE 
E NO TK -2000 



720 GOTO 470 

730 PRINT TNK 6; PAPER 2 ; AT 1 
.22;tb- PHINT AT 17,0; "PARAE1EN 

S. ";bS:TAB O ; TAB 31:" 
PAUSE 100: CLS 

740 LET k-k+1: 1F k-t*2 THEN 
GOTO 8B0 

750 J.ET cS-dS: LET aS-bS: I.ET 
bS-cS 

760 LET l.c-ta: LET ta-tb: LET 
tb-tc 

770 LET tjS = "": LET d = 0: LET 
f-1 

780 GOTO 160 

790 LET m= (CODE d$-64) *B-7 
800 IF m--263 THEN LET m = 209 
610 IF qSIni TO m+5)="" THEN 
GOTO 360 

820 LET g = VAL qS (m+2 TO m+3) 
830 RETURN 

BBO IF ta>tb THEN CLS : PRINT 
aS;" VENCEU POR "it»l" A "itb 
890 IF tb>ta THEN CLS : PRINT 
bS;" VENCEU POR ";tbs" A " : ta 
892 IF ta-tb THEN CLS ! PRINT 
" O RESULTADO FOI UM EMPATE ! " 
B95 STOP 

900 INPUT " INTRODUZA A FRASE" . 
LINE hS 

910 TF hSOsS THEN PRINT 
FLASH 1;AT 17.0: "ERRADO !": 



PAUSE 50: LET t.b'th-50; PRINT 

INK 6: PAPER 2;AT l,22;tb: 

PRINT AT 15,0; "TENTATIVA "(íi 

LET C-f+1 : GOTO 360 

920 FOR n=l TO 1: LET dS-zS (n) 

: IF d$<>"«" THEN GOTO 950 

930 LET m-(CODE HS (n) -64 ) *8-7 : 

IF m=-263 THEN LET m=209 

940 LET tb-tb+VAL qS (m+2 TO m+ 

3) 

950 NEXT n: GOTO 730 



D 



360 PRINT «384. "" ; : LINE INPUT ■ 
XX-ADIVINHAR LETRA 
ZZ-ADIVINHAR A FRASE 
A-Z-COHPRAR O CARACTER ?";DS 
370 IF DSO-XX* AND DSO"ZZ* AN 
D LEN(DS)>1 THEN 360 
380 IF D3-CHR3Í32) THEN 410 
385 IF DS-"ZZ" THEN DS-"":GOTO 
1000 

390 IF DS<"A" OR D$>"Z" THEN360 
400 IF D3-"XX- THEN DS-"":GOTO 
500 

410 GOSUB 790 
420 E-0 
430 E-E+l 



440 IF E-L+l THEN TB-TB-G rMIDS ( 
QS.M.B)-" ":PRINT 896,03 

:D3-" :GOTO 470 

450 IF MIDSISS.E.IJODS THEN430 
460 IF MIDS(S$,E.1)-D$ THEN MID 
3(ZS,E.l)-D3:GOTO 430 
470 GOSUB 950:PRINT 6448 : PRINT 
«416:PRINT «480 , STRING3 (31,32) 
480 PRINT «54.TB:PRINT «352. ZS 
PRINT «320 , "TENTATIVA" ; F : F-F+l 
IF SS-2S THEN 730 
490 GOTO 360 

500 PRINT «448:PRINT «416;PRINT 
«44B ,"; : LINE INPUT "QUER ADIV 
INHAR QUAL CARACTER ?" ;DS 
510 IF LEN(DS)>1 THEN 500 
520 IF DS-CHRS(32) THEN GOSUB 7 
90: GOTO 550 

530 IF DS<"A" OR DS>"Z" THENSOO 
540 GOSUB 790 

550 PRINT «448. "EM QUAL POSIÇÃO 
? - USE SETAS E '0' PARA DEFIN 
IH."; 

560 PRINT «352,Z3:POKE 1024+352 
+B, (ASC(MIDS(Z3,B+1.1))AND 191) 
570 Y$-INKEYS:IF YS-" THEN S70 
590 IF Y$«CHR$<9) AND B<L~1 THE 
N B-B+l 

600 IF Y3-CHRSÍ8) AND B>0 THEN 
B-B-l 

610 IF YS-"0" THEN 680 
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660 PRINT Í352.Z3:P0KE 352+1024 
+B , (ASC (MIDS (ZS.B+l , 1) ) AND 191) 
670 GOTO 570 

660 PHINT «480.STP.INGSO1.32) ; : 
IF MID$(ZS.B+1.1)-DS THEK TB-TB 
-G : PRINT «448. "TRAPACEIRO! FOR 

DE-1 TO 100:NEXT:B-0:GOTO 470 
690 IF MIDStSS.B+l.DODS THEN 
TB-TB-G/2 : PRINT «448, "QUE AZAR! 
":F0R DE-1 TO 100 : NEXT : B-0 r GOTO 

470 

700 IF MIDS(SS.B+1,1)-DS THEN P 
RINT «44B, "MUITO BEM! " ! FOR DE-1 
TO 100:NEXT:MID3 (Z3.B+1 , 1) -DS : 
TB-TB+G:B-0 
710 IF SS-Z3 THEN 730 
720 GOTO 470 

730 PRINT §4B0 , " PARABÉNS . " ; BS ; 

tGOSUB 950:CLS 



1):IF D3<>"*" THEN 1050 

1030 M-<ASC(MIDS<SS.N,l))-64)*8 

-7:IF M— 263 THEN M-209 

1040 TB-TB+VAL(KIDS(QS.M+2,2)) 

1050 NEXT N:GOTO 730 



OSUB 790:GOTO 5S0 

530 IF (D3<"A" OR D5>"Z") AND D 

SO"C" THEN 500 

540 GOSUB 790 

550 LOCATE 0 . 21 : PRINTSPC (77) : LO 
CATE 0,21:PR1NT"INDIQUE A POSIÇ 



PARA 



IF K-T*2 THEN I 
AS-BS:BS-C3 
TA-TB : TB-TC 
D-0:F-1 



740 K-K+l: 
750 C3-A3: 
760 TC-TA: 
770 QS-" 
780 GOTO 160 
790 M-(ASC<DS>-64)*8-7 
800 IF M — 263 THEN M-209 
810 IF MIDS (03.M.6) ■=- "THE 
N 360 

820 G-VAL (MID3 (QS.M+2 . 2) ) 
830 RETURN 

880 IF TA>TB THEN CL3 : PRINT AS; 

" VENCEU POR"; TA; "A": TB 

890 IF TB>TA THEN CLS : PRINT BS ; 

" VENCEU POR"; TB: "A"; TA 

892 IF TA-TB THEN CLS : PRINT"0 R 

ESULTADO FOI UM EMPATE ! " 

895 END 

1000 PRINT «448:PRINT «416:PRIN 
T «416 . "INTRODUZA A FRASE : LI 
NE INPUT GUS 

1010 IF GUSOSS THEN PRINT «416 
. "ERRADO !":TB-TB-50:PRINT «54, 
TB: GOSUB 950 : PRINT «320 , "TENTAT 
IVA" ; F ; : F-F+l :G0TO 360 
1020 FOR N-l TO L : DS-MIDS (ZS , N. 



167 SS-"" 

360 LOCATE 0.21: PRINTSPC (77) r LO 
CATE 0 . 21 .: PRINT"XX-Ad t vinha let 
ra ZZ-Adivinha frase" : INPUT" 
A-Z Compra letra "iDS 
370 IF DSO , 'XX" AND DSO"ZZ" AN 
D LEN(DS)>1 THEN 360 
3B0 IF DS-"" THEN DS="_":GOT0 4 
10 

385 TF DS-"ZZ" THEN DS-"":GOTO 
1000 

390 IF (DS<"A" OR DS>"Z") AND D 
SO"Ç" THEN 360 

400 IF DS="XX" THEN DS="":GOTO 
500 

410 GOSUB 790 
420 E-0 
4 30 E-E+l 

440 IF E-L+l THEN TB-TB-G : MIDS ( 
QS.M. 7+(N/5=lNT(N/5) ) ) -STRtNGSf 
8.32) : LOCATE 0,4: PRINTQS : DS= " " : 
GOTO 470 

450 IF MID5(SS,E.l)OD$ THEN 43 

0 

460 IF MIDS(SS.E,1)-DS THEN MID 
S (ZS . E. 1) =DS :GOTO 430 

4 70 GOSUB 950 

480 L0CATE25 . 1 : PRINTTB ; "pontos" 
: LOCATE 0,12: PRINTZS : LOCATE 0,1 

5 : PR.tNT"Tentstiva " j F : F-F+l : IF 
SS-ZS THEN 730 

490 GOTO 360 

500 LOCATE 0,21: PRINTSPC (77) : LO 
CATE 0.21:INPUT"GUAL A LETRA" ; D 



í,0 USANDO AS SETAS 
MARCAR TECLE <0>" 

555 B=0:V-12:BB-0 

560 LOCATE BB.V.l 
570 YS-INKEYS:IF Y$-"" THEN 570 
590 IF yS-CHRS(2B) AND B<L-1 TH 
EN B-B+l 

600 IF YS=CHRS(29) AND B>0 THEN 
B-B-l 

605 BB=B:V=12:IF B>39 THEN BB-B 

-40:V-13LIST 600- 

610 IF YS-"0" THEN 680 

670 GOTO 560 

680 IF MID3 (ZS. B+l . 1) =DS THEN T 
B-TB-G : LOCATE 0.21: PRINTSPC (77) 
: LOCATE 0.21: PRINT "TRAPACEIRO ! " 
:G0SUB 950:GOTO 470 
690 IF MIDS(S5.B+1,1K>DS THEN 
TB-TB-G/2 : LOCATE 0,21: PRINTSPC ( 
77):LOCATE 0 . 21 : PRINT" ERROU DES 
TA VEZ ..." :G0SUB 950:GOTO 470 
700 IF MIDS (SS , B+l , 1 ) -DS THEN L 
OCATE 0.21: PRINTSPC (7 7) : LOCATE 
0.21:PRINT"BOM PALPITE !": MIDS (Z 
3 . B+l , 1 ) -DS : GOSUB 950:TB=TB+G 
710 IF SS-ZS THEN 730 
720 GOTO 470 

730 LOCATE 0. 21 : PRINTSPC (77) : LO 

CATE 0.21: PRINT" PARAHENS ! ACERT 

0U!":BEEP:G0SUB 9S0:BEEP:CLS 

740 K-K+l :IF K=T*2 THEN S80 

750 SWAP AS.BS 

760 SWAP TA, TB 

770 Q$-"":D=0:F«1:SS-"" 

780 GOTO 160 

790 M'INSTR (QS . DS) 

800 IF DS="_" THEN DS-CHRS (32) 

810 IF MIDS<QS.M.S)=STRINGS(5.3 

2) THEN 360 
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B20 G=VAL(MIDS(QS.M+2,2)) 


- G:Q$ - LEFTS (QS.M - 1 ) + " 


TO 300: NEXT : GOTO 470 

700 IF MIDS (SS,B,1) - DS THE 


830 RETURN 

880 IF TA>TB THEN CLS : PRINTAS ; " 


AB 5: PRINT QS : DS - "*! GOTO 47 


N PRINT "BOA! ";:TB = TB + G:Z 
S = LEFTS (ZS.B) + DS + MIDS 


GANHOU POH* ; TA ; "PONTOS A";TB 
890 IF TB>TA THEN CLS : PRINTB5 ; " 


450 IF MIDS (BS.E.l) < > DS 


(ZS,B + 2): FOR DE » 1 TO 300: 


GANHOU POR" ; TB ; "PONTOS A";TA 
892 IF TA=TB THEN CLS:PR1NT"0 J 


460 IF MIDS (SS.E.l) - DS THE 


710 IF SS - MIDS (ZS,2) THEN 
FLASH : VTAB 13: PRINT SS : CAL 


OGO TERMINOU EMPATADO EM" ! PRINT 
TA; "PONTOS" 


N ZS = LEFTS (2S,E) + DS + MI 
DS (ZS.E + 2) : GOTO 430 


L - 868: NORMAL : GOTO 730 
720 GOTO 470 


B95 END 

950 FOR DE=J TO 1000 : NEXT : RETUR 


470 FOR DE ■ 1 TO 300" NEXT 
480 VTAB 2: HTAB 25: PRINT TB; 


730 VTAB 22: CALL - 958: PRIN 
T " PARABÉNS ! " : GOSUB 950 : HOME 


1000 LOCATE 0.21:PRINTSPC(77) :L 


" PONTOS " 1 VTAB 1 2 ' HTAB 40 ■ 
PRINT ZS: VTAB 16: PRINT "TENTA 
T IVA ""F'F " F ■+ \' IF SS = MJ' 


740 J - J + 1 : tf J - T * 2 THE 


OCATE 0,21. PRINT" DIG ITE A FRASE 
COMPLETA:":LINEINPUT GU$ 


DS (ZS.2) THEN 710 


750 CS - AS:AS = BS : BS ■ CS 
760 TC ■ TA : TA = TB: TB = TC 


1010 IF GUSOSS THEN LOCATE 0,2 
1 :PRINTSPC( 7] : LOCATE 0,21:PRÍNT 


500 VTAB 22: CALL - 958: INPU 


7 70 QS - ■'" :D - 0:F - 1 
780 GOTO 160 


"ERRADO ! " : TB=TB - 50 : LOCATE 25,1 : 
PRINTTB; "pontoa" : GOSUB 950 : LOCA 


510 IF LEN (DS) > 1 THEN 500 


790 M = ( ASC (DS) - 64) • 8 - 


TE 0 , 15 : PR INT" TENTATIVA" ; F : F-F+ 

l:GOTO 360 


520 IF DS = "" THEN DS ■ " " " 
GOSUB 790: GOTO 550 


800 IF DS = CHRS (32) THEN M 


1020 FOR N=l TO L : DS=MID$ (ZS , N , 
1) :IF DSO"*" THEN 1050 


530 IF DS ^ "A" OR DS y "Z" TH 
EN 500 

540 GOSUB 790 


S05 IF DS - "Z" THEN M - 210 
810 IF MTDS (QS,M,2) = " " T 


1030 IF D$-CHRS(32> THEN DS""_" 
:M-INSTR(Q$,DS) 


550 VTAB 22: CALL - 959: PRTN 
T "COLOQUE 0 MARCADOR SOB A POS 


HEN POP : GOTO 360 

820 G « VAL [ MIDS (QS.M + 2,2 


1040 TB=TB+VAL (MIDS (QS .M+2 . 2) ) 
1050 NEXT : GOTO 730 


ICAO DESEJADA E TECLE [ ENTER ] " ; 


)) 

830 RETURN 


GB El 


560 VTAB 14: CALL - 868: HTAB 


B80 IF TA > TB THEN HOME ! PR 
INT : PRINT AS;" GANHOU POR " ;T 


370 IF DS < > "ZZ" AND DS < 


570 GET YS: IF YS - CHRS (13) 
THEN 680 


A;" PONTOS A " ; TB 

890 IF TA < TB THEN HOME : PH 


> "XX" AND LEN (DS) > 1 THEN 3 
60 


590 IF YS - CHRS (8) AND B > 


INT : PRINT BS ; " GANHOU POR ";T 
B;" PONTOS A " ; TA 


380 IF D5 ™ "" THEN DS ■ CHR$ 
(32) : GOTO 410 


1 THEN B ■ B ~ 1 

600 IF Y$ - CHRS (21) AND B < 


892 IF TA - TB THEN HOME : PR 
INT : PRINT "0 JOGO TERMINOU EM 


385 IF DS " "ZZ" THEN DS - " i 
GOTO 1000 


L THEN B ■ B + 1 
670 GOTO 560 

680 VTAB 14 : CALL ~ 958 : VTAB 


P ATADO EM ": PRINT TA ; " PONTOS ! 


390 IF DS < "A" OR DS > "Z" TH 
EN 360 


22: IF MIDS (ZS.B.l) - DS THE 


895 END 

950 FOR DE = 1 TO 3000 : NEXT : 


400 IF DS ■ "XX" THEN DS " "": 
GOTO 500 


N PRINT "TRAPACEIRO! " ; : TB - TB 
- G: FOR DE = I TO 300: NEXT 1 


RETURN 

1000 VTAB 22: CALL - 958: INP 


410 GOSUB 790 
420 E = 0 


GOTO 4 70 
690 IF MIDS [SS.B.l) < > DS 


UT "ENTRE A FRASE: " ;CUS 

1010 IF GUS < > SS THEN VTAB 


430 E - E + 1 

440 IF E = L + 1 THEN TB - TB 


THEN TB = TB - G / 2: PRINT "ER 
ROU DESTA VEZ ...";: FOR DE - 1 


22: CALL - 958: PRINT " ERRADO 
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Por que as linhas em que há a instru- 
çSo CALL diferem nos programes do 
Apple e do TK-2000? 

Porque a instrução CALLseguida de 
um certo número de linhas serve para 
acionar uma rotina em linguagem de 
máquina. No nosso caso, essas linhas 
constituem rotinas intrínsecas do com- 
putador, ou seja, são rotinas próprias 
a máquina. 
No Apple, a instrução CALL - 958 
faz com que a tela seja apagada desde 
o cursor até a última posição de vídeo, 
sem alteração na posição do cursor. No 
TK-2000, ela faz a mesma coisa, mas 
com uma diferença: agora, o cursor é 
colocado na primeira posição da tela. 
Assim, ele deve ser reposicionado após 
o comando. 

Já a instrução CALL -868 provo- 
ca, no Apple, o apagamento da linha 
em que está o cursor a partir da posi- 
ção deste. A mesma instrução no TK- 
2000 não tem um efeito necessário pa- 
ra o nosso programa. 



!":TB - TB - 50: VTAB 2: HTAB 2 
5: PRINT TB;" PONTOS": VTAB 16: 
PRINT "TENTATIVA * i F : F - F + 1 
: FOR DE - 1 TO 300: NEXT : GOT 



1020 FOH N = 2 TO L + 1 : DS 1 
MIDS (ZS.N.l] : IF D3 < > "*' 
HEN 1050 



VAL ( MTDS <QS. 



Para executar o programa no TK- 
2000, faça as seguintes modificações: 

500 VTAB 22: CALI. - 958: VTAB 
22: INPUT "QUAL A LETRA " ; DS 

550 VTAB 22: CALL - 958: VTAB 
22: PHINT "COLOQUE 0 MARCADOR 

SOB A POSIÇÃO DESEJADA F TECLE 

[ENTER }" : : B ■ 1 

560 VTAB 14: PRINT SPC[ 40); 
VTAB 14: HTAB B: PRINT CHRS (9 

680 VTAB 14: CALL - 958: VTAB 

22: IF MIDS (Z3.B.1) ■ DS THE 
N PBINT "TRAPACEIRO! " ; : TB = TB 

- G: FOR DE = 1 TO 300: NEXT : 

GOTO 470 
710 IF SS - MIDS <ZS.2) THEN 

VTAB 13: PRINT SS: GOTO 730 
730 VTAB 22: CALL - 956: VTAB 

22: PRINT "PARABÉNS!": GOSUB 9 
50 : HOME 

1000 VTAB 22: CALL - 958: VTA 
B 22: INPUT "ENTRE A FRASE: ";G 

US 

1010 TF GUS < > SS THEN VTAB 
22: CALL - 958: VTAB 22: PRIN 
T "ERRADO! "■ TB - TB - 50: VTAB 



2: HTAB 25: PRINT TB;" PONTOS": 
VTAB 16: PBINT "TENTATIVA ";F: 
F - F + 1: FOH DE - 1 TO 300; N 
EXT : GOTO 360 

Como na parte anterior da listagem, 
existem pequenas variações entre as má- 
quinas, mas, de maneira geral, os pro- 
gramas são muito parecidos. 

As linhas 370 a 4 1 0 manipulam a op- 
ção do jogador — comprar letras, adi- 
vinhar letras ou mesmo descobrir a fra- 
se toda. A rotina identifica o tipo de pal- 
pite e evita que sejam feitas entradas 
ilegais. 



COMO COMPRAR LETRAS 



Se o jogador decidir comprar uma le- 
tra, o computador verificará imediata- 
mente qual o valor dessa letra. Para is- 
so, é acionada uma sub-rotina que co 
meça na linha 790. Esta encontra o va 
lor ASCII da leira para saber até que po- 
sição da tabela de valores deve ir. Se o 
computador encontrar um espaço em 
branco na posição, isso significa que a 
letra já foi comprada e o programa vol- 
tará à linha 360. Do contrário, será li- 
do o valor da letra, por intermédio da 
função VAL. Esse valor é utilizado pa- 
ra calcular o novo número de pontos do 
jogador. 

A rotina que cuida da compra de le- 
tras começa na linha 430. As linhas 430 
a 460 passam pela frase procurando 
ocorrências da letra. A cadeia de aste- 
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riscos é atualizada, substituindo-se os 
asteriscos pela leira comprada, quando 
isso ocorrer. A nova cadeia é então mos- 
trada na tela e o valor da letra subtraí- 
do do total de pontos. O número de ten- 
tativas é incrementado de 1 . A linha 440 
apaga a letra escolhida da tabela, indi- 
cando que ela não está mais disponível. 



ADIVINHE LETRAS EM UMA POSIÇÃO 



Se o jogador quiser tentar acertar 
uma letra em posição específica, deve 
primeiro selecionar XX. Esse procedi- 
mento faz o programa pular para a li- 
nha 500. O jogador deve então dizer que 
letra vai ser usada. Várias verificações 
evitam que se faça uma entrada ilegal. 
Em seguida, é preciso mover o marca- 
dor para a posição desejada e pressio- 
nar 0 (no Apple, pressione < EN- 
TER>). O programa verifica se a letra 



está disponível e faz um teste para ver 
se o palpite é correto. 

Caso o jogador erre o palpite, a li- 
nha 690 enviará uma mensagem, sub- 
traindo metade do valor da letra do to- 
tal de pontos. Se letra e posição coinci- 
direm, a linha 700 emitirá uma mensa- 
gem de felicitações e somará o valor da 
letra ao total de pontos do jogador. 
Quando a frase é completada, a linha 
710 envia o programa para a 730, que 
dá a boa notícia ao jogador. 



Se o jogador for mais ambicioso, po- 
de querer adivinhar a frase inteira. Pa- 
ra isso, deve primeiro digitar ZZ. A li- 
nha 385 manda o programa para a linha 
900 (no Spectrum) ou 1000 (nos outros 
micros). A rotina pede que a frase seja 
digitada e a compara com a original. Se 
elas não forem iguais, o jogador perde- 



rá cinquenta pontos e o contador de ten- 
tativas será incrementado. Se o palpite 
for correto, o valor de todas as letras 
ainda não adivinhadas será somado ao 
total de pontos, e a linha 730 avisará o 
jogador que a frase está correta. 



Adivinhada a frase, o programa ve- 
rifica o número de jogadas realizadas. 
Este não pode ser maior que o determi- 
nado no início do jogo. Se o número 
ainda for menor, o próximo jogador se- 
rá chamado, depois que uma nova fra 
se tenha sido introduzida. Quando o jo- 
go acaba, o programa passa à linha 880. 
Os pontos são comparados e o resulta- 
do final é apresentado. 

O jogo termina aqui, mas você pode 
implementar uma rotina do tipo "joga 
novamente?" para deixá-lo completo. 




Illl 



PROGRAMAÇÃO BASIC 



símbolos gráfico! 

NOTK-200© 



Os computadores da linha TK-2000 

dispõem de um grande número 

de caracteres gráficos que podem ser 

entrados diretamente pelo 

teclado, ou usados em um programa. 



As telas gráficas no computador (GR 
e HGR) podem ser programadas por 
meio de diversas instruções extrema- 
mente poderosas, em média e alta reso- 
lução, tais como VLIN, HLIN, PLOT, 
HPLOT, DRAW e outras. 

Entretanto, o TK-2000 tem um recur- 
so gráfico adicional, habitualmente pou- 
co explorado, que os compatíveis com 
a Unha Apple não têm. Trata-se dos ca- 
racteres gráficos, que estão disponíveis 
para o programador através de dois 
meios: entrada direta pelo teclado e in- 
serção por intermédio da função CHR$, 
do BASIC. 

O que são caracteres gráficos? Como 
você já sabe, os caracteres que aparecem 
no vídeo têm códigos numéricos in 
ros, que teoricamente podem variar 
Ire 0 e 255. Cada caractere correspon- 
de, portanto, a um byte da memória de 
vídeo. Parte dessa codificação, conven- 
cionada internacionalmente, é o chama- 
do código ASCII, que vai de 32 a 126. 
Os códigos de 0 a 31 são normalmente 
utilizados em funções de controle do ví 
deo e dependem do tipo de computador 
que está sendo usado. 

O mesmo acontece com os códigos 
que vão de 127 a 255. Nessa faixa, os 
fabricantes utilizam geralmente os códi- 
gos para acomodar caracteres gráficos 
(que podem ser tipos especiais, como 
naipes de baralho, notas musicais etc, 
ou blocos gráficos formando linhas, ân- 
gulos e cantos). 



Tais caracteres gráficos são também 
chamados de gráficos da ROM, pois já 
vêm pré-programados. Nos computado- 
res da linha TK-2000, os caracteres es- 
peciais ocupam a faixa da tabela de ca- 
racteres que vai de 193 a 242. 

Os sinais gráficos que mais nos inte- 
ressarão neste artigo são os blocos ge- 
ralmente utilizados na composição de 
desenhos formados por linhas retas, tais 
como tabelas ou formulários de entra- 
da. A vantagem desses blocos consiste 
em simplificar a programação, tornan- 
do desnecessária a mistura da tela grá- 
fica com o texto. Tal simplificação dei- 
I xa aberto o caminho para o emprego de 
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■ 


SÍMBOLOS GRÁFICOS 


■ 


CARACTERES GRÁFICOS 


■ 


GRÁFICOS DA ROM 




EM PROGRAMAS 


■ 


COMO ENTRAR GRÁFICOS 


■ 


A FUNÇÃO CHRS 




PELO TECLADO 


■ 


OS NAIPES DO BARALHO 


■ 


SIMPLIFIQUE A PROGRAMAÇÃO 


■ 


TABELA DE REFERENCIA 



comandos mais diretos, como VTAB, 
HTAB, PRINT, INPUT etc. 



ENTRADA PELO TECLADO 



Da mesma maneira que os caracteres 
convencionais do código ASCII (demar- 
cados sobre as teclas do microcomputa- 
dor), os sinais gráficos podem ser digita- 
dos pelo teclado. Para isso, é necessá- 
rio, em primeiro lugar, pressionar simul- 
taneamente as teclas <CONTROL> e 
<B> . Esse procedimento coloca o te- 
clado em modo gráfico. 

Em seguida, deve-se acionar simulta- 
neamente a tecla <SHIFT> , e uma das 
teclas alfanuméricas, ou então as teclas 
<SHIFT>, <CONTROL> e uma 
terceira. Com isso, o caractere deseja- 
do aparece diretamente na tela (por 
exemplo, dentro de uma cadeia alfanu- 
mérica). 

O manual de programação do TK- 
2000 exibe um desenho esquemático do 
teclado, no qual são assinalados todos 
os caracteres gráficos, em relação à dis- 
posição das teclas. Consulte também a 
tabela que apresentamos a seguir. 

Ao se terminar de digitar os caracte- 
res gráficos em uma linha, deve-se pres- 
sionar novamente <CONTROL> e 
<B>, para sair do modo gráfico. 

Por exemplo, se quisermos digitar o 
símbolo tradicional do naipe de paus, 
devemos teclar <CONTROLxB> 
e, em seguida, <SHIFT><R>. 

O programa abaixo demonstra como 
isso pode ser feito. Ele desenha uma ta- 
bela simples na tela, utilizando blocos 
gráficos e coloca depois os diversos no- 
mes digitados nas linhas da tabela. 

200 HOME 

210 PRINT "| 1 1" 

220 PRINT - NO. NOME 

230 PRINT "II I' 

240 FOR 1-1 TO 10 

250 PRINT " I 

260 NEXT I 

270 PRINT "I 1 1" 

275 FOR 1=1 TO 10 

260 VTAB 20 : HTAB 1 

290 INPUT "NOME : "iNS 

300 VTAB I+3:HTAB 4: PRINT I 

310 VTAB I+3:HTAB 10: PRINT N3 

320 NEXT I 

330 VTAB 2 0 : HTAB liBTOP 



Os traços devem ser digitados nesta 
sequência: 

Linha 210: 
<SHIFT> A 

<SHIFT> <CONTROL> F (4 vezes] 
<SHIFT> H 

<SHIFTxCONTROL> F (11 vezes) 
<SHIFT> S 
Linha 220: 

<SHIFT><CONTHOL> C 
Linha 230: 

<SH(FTxC0NTR0L> H 
<SHIFTxCONTROL> G (4 veiesl 
<SHIFTxCONTROL> B 
<SHIFTxCONTROL> G (11 vezes) 
<SHIFTxCONTROL> N 
Linha 250: como a linha 220 
Linha 270: 
<SHIFT> Z 

<SHIFTxCONTROL> F (4 vezes I 
<SHIFT> G 

<SHIFTxCONTROL> F 111 vezes) 
<SHIFT> X 

Tanto na linha 220 quanto na linha 
250, os espaços em branco e as letras po- 
dem ser digitados normalmente, sem 
precisar sair do modo gráfico, Em ou- 
tras palavras; nas linhas que tem carac- 
teres gráficos (210, 220, 230, 250 e 270), 
basta pressionar < CONTROL >< B > 
uma vez, logo após digitar o sinal de 
abre aspas; em seguida, teclar os gráfi- 
cos e/ou as letras, e novamente < CON- 
TROL >< B > . Só depois disso, digita- 
se o sinal de fecha aspas. 

Existem duas desvantagens nessa for- 
ma de entrada de caracteres gráficos: 
primeiro, as teclas não têm qualquer 
marcação que auxilie o usuário a encon- 
trar o gráfico correto. Torna-se neces- 
sário então consultar o manual, o que 
faz o processo bastante moroso. Em se- 
gundo lugar, o programa não pode ser 
listado em uma impressora não gráfica, 
ou que não seja específica para a linha 
TK-2000. 



CARACTERES GRÁFICOS NO PROGRAMA 



Existe ainda um outro truque para es- 
pecificar caracteres gráficos dentro de 
um programa sem precisar digitá-los di- 
retamente. A função que permite fazer 
isso é a utilíssima CHRS. 

Os caracteres normais, especiais e 
gráficos com códigos na faixa de 32 a 
255 podem ser impressos na tela a par- 
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tir de um programa, contendo a CHR$ 
acompanhada do número de código do 
caractere desejado. Por exemplo, para 
imprimir na tela o símbolo de paus (nai- 
pe de baralho), digitamos: 
PBINT CHRS(24I) ;CHRS(231) 

Portanto, para combinar códigos grá- 
ficos com a função CHRS, é preciso 
"avisar" o computador que o código se- 



rá usado como gráfico. Para isso, recor- 
remos a dois bytes: CHRS(242), segui- 
do de CHRS(n), onde néo código do 
caractere gráfico na tabela. O próximo 
programa mostra a tabela de correspon- 
dência entre códigos numéricos e gráfi- 
cos na tela do TK-2000: 
10 HOME 

20 FOR J=193 TO 242 STEP 6 
30 FOR I=J TO J+5 



CARACTERES GRÁFICOS PARA O TK-2000 



Código 


Teclas Caractere 


218 


CONTROL SHIFT V 


1 


193 


CONTROL SHIFT 1 


□ 


219 


CONTROL SHIFT C 


LTj 


194 


CONTROL SHIFT 2 


□ 


220 


CONTROL SHIFT J 


13 


195 


CONTROL SHIFT 3 


D 


221 


CONTROL SHIFT M 




196 


CONTROL SHIFT 4 


H 


222 


SHIFT T 


• 


197 


CONTROL SHIFT 5 


m 


223 


SHIFT J 


□ 


198 


CONTROL SHIFT 6 


■ 


224 


SHIFT G 


S 


199 


CONTROL SHIFT 7 


■ 


225 


SHIFT H 


-:■ 


200 


CONTROL SHIFT Q 


n 


226 


SHIFT B 


ffl 


201 


CONTROL SHIFT W 


□ 


227 


SHIFT N 


tB 


202 


CONTROL SHIFT E 


i 


228 


SHIFT Q 


* 


203 


CONTROL SHIFT R 


n 


229 


SHIFT W 


B 


204 


CONTROL SHIFT T 


■ 


230 


SHIFT E 


* 


205 


CONTROL SHIFT Y 


■ 


231 


SHIFT R 


* 


206 


CONTROL SHIFT U 


■ 


232 


SHIFT D 


H 


208 


CONTROL SHIFT G 


B 




SHIFT F 


E 


209 


CONTROL SHIFT H 


d 


234 


SHIFT C 


9 


210 


CONTROL SHIFT B 


m 


235 


SHIFT V 


^ 


211 


CONTROL SHIFT N 


£ 


236 


SHIFT A 


a 


212 


CONTROL SHIFT A 




237 


SHIFT S 


E 


213 


CONTROL SHIFT S 


B 


238 


SHIFT Z 


□ 


214 


CONTROL SHIFT Z 


a 


239 


SHIFT X 


□ 


215 


CONTROL SHIFT X 


B 


240 


SHIFT U 


BI 


216 


CONTROL SHIFT D 


r 


241 


SHIFT Y 


H 


217 


CONTROL SHIFT F 




242 


SHIFT M 


9 




50 NEXT I 
60 PRINT 
70 NEXT J 

80 VTAB 20 : HTAB 1: PRINT 
"PRESSIONE RETURN" 
90 GET AS 

Os caracteres são impressos ordena- 
damente em fileiras, por meio dos dois 
laços que começam nas linhas 20 e 30. 
O primeiro laço varia J de 1 93 a 242 (fai- 
xa de códigos correspondente aos carac- 
teres gráficos), de 6 em 6. O laço seguin- 
te percorre todos os valores entre J e 
J + 5. O PRINT da linha 60 serve para 
encerrar uma fileira de seis códigos e 
suas representações gráficas, que são 
mostradas na linha 40. 




Se quiser usar caracteres gráficos com 
certa frequência em um programa, de- 
ve armazenar o código de controle em 
uma variável alfanumérica, como no 
exemplo abaixo. Neste caso, os quatro 
símbolos dos naipes do baralho são ar- 
mazenados em N$ e seus nomes, em E$: 

5 HOME 

10 FOR 1-1 TO 4 

20 READ ES{I) 

30 LET NS(I)=CHR5(242)+ 

CHRS(227+I) 

40 PRINT NS(I> .ES(I) 

50 KEXT I 

60 DATA ESPADAS, COPAS, OUROS, 
PAUS 

Assim, toda vez que precisarmos im- 
ptimir na tela um dos quatro símbolos, 



digitaremos PRINT N$(N), onde N é o 
código do naipe (I = espadas, 2 = copas, 
3 = ouros e 4- paus). 

Do mesmo modo quando quisermos 
utilizar uma cadeia de caracteres gráfi- 
cos em vários pontos de um programa, 
devemos armazená-lo em uma variável 
alfanumérica. Como o TK-2000 não tem 
a função STRINGS, que permite fazer 
isso com um único comando, é preciso 
escrever um laço de acumulação: 

10 HOME 

20 INPUT "CÓDIGO GRÁFICO 

(193-242) : "; C 

30 INPUT "COMPRIMENTO (1-39) : 



60 FOR 1-1 TO L 

70 LET SS-SS+CHRS(242)+CHRS(C) 
80 NEXT I 
90 PRINT SS 
100 GOTO 10 

A cadeia alfanumérica SS tem 1. ve- 
zes dois códigos, pois é necessário en- 
trar um código 242 antes de cada códi- 
go gráfico C (não funciona colocar ape- 
nas um código 242 como primeiro ca- 
ractere de SS). Se rodar esse programa 
com vários códigos ao acaso — ou en- 
trando-os em sequência para ver o re- 
sultado — , constatará que às vezes sur- 
ge uma interferência na tela inteira. Se 
isso ocorrer, experimente interromper 
o programa, usando <CONTROL> 
<C> e digitando RUN novamente. | 



mu 
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MAIS TÉCNICAS DE 
OroENACÃ© 



Veja como pequenos melhoramentos nas 

rotinas de ordenação mais 

comuns podem aumentar sua velocidade 

de operação. E conheça 

uma rotina que bate todas as outras. 



Todas as técnicas usadas para colo- 
car dados em ordem apontam falhas, se- 
ja por dispenderem muito tempo, seja 
por exigirem um grande espaço de me- 
mória. Dessa forma, em cada aplicação 
específica é preciso procurar o método 
de ordenação mais eficiente, pois não 
existe uma técnica ideal que responda a 
todas as necessidades. 

Já estudamos alguns dos métodos 
mais populares de ordenação de dados; 
a seguir, mostraremos outros, com a res- 
salva de que alguns deles são apenas re- 
finamentos dos que foram apresentados 
anteriormente. Como você verá, estes 
são bem mais eficientes do que as ver- 
sões originais. 



SUBSTITUIÇÃO RETARDADA 



O principal defeito da ordenação ti- 
po bolha — a lentidão — torna-se par- 
ticularmente evidente quando é preciso 
organizar uma grande quantidade de 
itens. No entanto, com uma pequena 
modificação no algoritmo original, 
pode-se reduzir o tempo gasto pratica- 
mente à metade, 

A ordenação tipo bolha usa boa parte 
do tempo em comparar os diversos nú- 
meros da linha, trocando-os de posição 
até encontrar um valor maior. Nesse 
processo, várias trocas são feitas com 
grande dispêndio de tempo. 

A rotina de substituição retardada 
funciona de modo semelhante, mas di- 
fere no fato de que nenhuma troca é rea- 
lizada até que toda a linha tenha sido 
comparada. Vejamos um exemplo que 
emprega uma sequência similar àquela 
estudada no artigo Ordenação pelo Mé- 
todo de Bolhas (página 292): 



67 35 72 19 47 36 11 86 

O primeiro valor, 67, é comparado 
(mas não trocado) com 35, como acon- 
teceria na rotina de bolha normal; o 
mesmo acontece em relação ao primei- 
ro número maior que ele, 72. Este últi- 
mo é tomado como o novo maior nú- 
mero e comparado sucessivamente com 
19, 47, 38 e 11, antes de encontrar o va- 
I lor máximo da sequência: 86. Este per- 



manece na última posição. O quadro 
que se segue mostra como tudo aconte- 
ce, passo a passo. Alguns números apa- 
recem entre colchetes. O primeiro deles 
é 86, o maior valor da primeira sequên- 
cia. Nas próximas linhas, os colchetes 
assinalam o maior número incorreta- 
mente localizado e o valor que ocupa seu 
lugar. Esses números sào trocados na li- 
nha seguinte. Assim, na segunda linha, 
72 é identificado como o maior incor- 
retamente posicionado, e trocado com 
o 11, e assim por diante. 



67 35 72 19 47 38 11[86] 

67 35 [72] 19 47 38 [11] 86 

[67] 35 11 19 47 [38] 72 86 

38 35 11 19 (47] 67 72 86 

[36] 35 11 [19] 47 67 72 86 

19 [35][11] 3S 47 67 72 86 

[19][11] 35 33 47 67 72 86 

11 19 35 38 47 67 72 86 

O número de comparações feito é o 
mesmo da rotina tipo bolha, mas o de 
trocas é muito menor. 

Uma parte do programa a seguir é 
igual a um dos programas que aparecem 
no artigo Rotinas de Ordenação. Para 
executá-lo, basta adicionar as linhas de 
4000 em diante (cuidado para não con- 
fundir a letra 1 com o número 1 , ao fa- 
zer a digitação). Os usuários do Apple 
e do MSX devem fazer as modificações 
no programa principal conforme o in- 
dicado para todas as máquinas. 



10 POKE 23658,8: LET T-0: 
INPUT "NUMERO DE ITENS "lAA: 
IF AA<2 THEN GOTO 10 
15 DIM A(AA) 

20 PRINT : PBINT "TABELA DESO 

RD E NADA" : PRINT 

30 FOR 2-1 TO AA 

40 LET A(Z)-INT (RND*100)+1 

50 PRINT TAB T;A(Z);: LET T-T 

+4: IF T>30 THEN LET T-0 

60 NEXT Z 

70 PRINT : PRINT : PRINT "PRE 

SSIONE 'O' PARA ORDENAR" 

80 LET K3-INKEYS: IF K3<>"0" 

THEN GOTO 80 

90 GOSUB 4000 

100 PRINT : PRINT "TABELA ORDE 

NADA" : PRINT 

110 LET T-0: FOR 2-1 TO AA 




120 PRINT TAB T;A(Z):: LET T-T 
+4: IF T>30 THEN LET T-0 
130 NEXT Z 
140 GOTO 10 

3999 BEM ORDENAÇÃO POR SUBSTIT 
UICAO RETARDADA 

4000 FOR 1-1 TO AA-1 
4010 LET K-I 

4020 FOR J-I+l TO AA 

4030 IF A(JKACK) THEN LET K-J 

4040 NEXT J 

4050 IF IOK THEN LET T=A (K) : 
LET A(K)-A(I) ! LET A(I)-T 
4060 NEXT I 
4070 RETURN 

10 PRINT: PRINT: INPUT "NUMERO DE 

ITENS";AA:IF AA<2 THEN 10 
15 DIM A (AA) 

20 PRINT : PRINT "TABELA DESORDENA 

DA" : PRINT 

30 FOR Z-l TO AA 

40 A(Z) -RND(IOO) 

50 PRINT A(Z) ; 

60 NEXT Z 

70 PRINT : PRINT r PRINT "PRESSIONE 

'O' PARA ORDENAR" 
80 KS-INKEY3:IF KS<>"0" THEN 80 
90 GOSUB 4000 

100 PRINT:PRINT:PRINT "TABELA 0 
RDENADA" 

110 PRINT : FOR Z-l TO AA 
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OR DENAÇÃO POR 



SUBSTITUI Ç ÃO RETARDADA 

ORDENAÇÃO POR 

ESPALHAMENTO: FAZ O QUE 
SE FARIA MANUALMENTE 



RÁPIDA E SIMPLES: 

A ORDENA Ç ÃO DO JOGADOR D E 
CARTAS O U POR INSE R CAO 
ORDENA ÇÃO INSTANTÂNEA: 
A MAIS RÁPIDA DE TOD~ÃS 




120 PHINT A{2) ; 
130 NEXT Z 
140 RUN 

3999 ORDENAÇÃO POR SUBSTITUIÇÃO 
RETARDADA 

4000 FOR 1-1 TO AA-1 
4010 K-I 

4020 FOR J-I+l TO AA 

4030 IF A(J)<A(K) THEN K-J 

4040 NEXT J 

4050 IF IOK THEN T-A (K) : A <K) -A 
(I) :A(I)-T 
4060 NEXT I 
4070 RETURN 



tfti 



Para que o programa acima rode no 
MSX substitua as seguintes linhas: 

5 R-RND(-TIME) 

40 A(Z)-INT(BND[1>*100+1) 

50 PRINTA(Z) . 

120 PRINTA(Z) . 

4050 IF IOK THEN SWAP A(K).A[I 
) 



hie 



Paia que o programa acima rode nos 
micros da linha Apple II e TK-2000, 
substitua as linhas a seguir: 

40 A(Z)-INT(RND(1)*100+1) 



50 PRINTA(Z) , 

60 GET KS:IF KS<>"0" THEN I 
120 PRINTA(Z) , 



ORDENAÇÃO POR ESPALHAMENTO 



A ordenação por espalhamento é ou- 
tra rotina cuja velocidade se aproxima 
a da ordenação tipo bolha quando am- 
bas são usadas para listas parcialmente 
ordenadas. Neste caso, uma matriz se- 
cundária é criada para uma ordenação 
preliminar parcial. Os valores inicial e 
final são determinados no início, en- 
quanto outros itens só'podem ser adi- 
cionados à lista quando esta estiver to- 
talmente ordenada. 

Embora essa rotina seja relativamen- 
te rápida, o uso de uma matriz secun- 
dária para armazenar dados diminui a 
memória disponível do micro. 

Note que se deve especificar o valor 
máximo, o que é feito por meio da li- 
nha 5010. No nosso caso. esse valor é 
100, que é o maior número aleatório 
permitido na linha 40. 

Adicione as linhas seguintes ao pri- 
meiro programa; 



90 GOSUB 5000 

4999 BEM ORDENAÇÃO POP, ESPALHAM 
ENTO 

5000 DIM B(1.2*AA+30) 

5010 FOR J-l TO AA: LET K-INT t 
A(J)*AA/100)+1 

5020 IF B(K)-0 THEN LET B(K)-A 
(J) : NEXT J : GOTO 5040 
5030 LET K-K+li COTO 5020 
5040 LET J-l: FOR K-l TO 1 . 2*AA 
+ .10: IF B(KJ-0 THEN NEXT K: GO 
TO 5060 

5050 LET AUI)-B(K): LET J«J+1: 
NEXT K 

5060 FOR J-AA-1 TO 1 STEP -1: L 
ET F— 1 

5070 FOR K-l TO J 
5080 IF A(K)>A(K+1) THEN LET F 
-0: LET T-A{K}: LET A (K) -A (K+l) 
: LET ACK+D-T 

5090 NEXT K: IF F-0 THEN NEXT 
J: RETURN 



QDSli^ 



90 GOSUB 5000 



4999 REM **QHDENACAO FOR ESPALH 
AMENTO** 

5000 DIM BI1.2*AA+30) 

5010 FOR J-l TO AA:K-INT(A(J)*A 
A/100J+1 

5020 IF B(K)-0 THEN B(K)-A(J):N 

EXT:G0TO 5040 

5030 K-K+l:GOTO 5020 

5040 J-l: FOR K-l TO 1.2*AA+30:I 

F B(K)-0 THEN NEXT : GOTO 5060 

5050 A(J)-B(K) :J-J+1:NEXT 

5060 FOR J-AA-2 TO 1 STEP -1:F- 

-1 

5070 FOR K-l TO J+l 
50S0 IF A(K)>A<K+1) THEN F-0:T- 
A(K) :A{K)-A(K+1> :A(K+1)-T 
5090 NEXT : IF F-0 THEN NEXT 
5100 RETURN 

Os usuários do MSX podem trocar a 
segunda metade da linha 5080, que faz 
a troca de valores entre as variáveis A(K) 
e A(K + 1) para SWAP A(K), A(K + 1). 
O valor 1 .2 na linha 5000 pode ser ajus- 
tado para fornecer o espaço necessário 
a matriz. Essa rotina de ordenação imi- 
ta, de certa forma, a maneira normal- 
mente usada para ordenar um grupo de 
informações: uma vez misturados os da- 
dos, e determinados o maior e o menor 
valor, tudo vai sendo posicionado con- 
forme as prioridades. 



ORDENAÇÃO POR INSERÇÃO 



Uma opção para muitas aplicações é 
a rotina de ordenação por inserção. Su- 
pondo que os números abaixo sejam 
cartas de baralho, disponha-os na or- 
dem dada, da esquerda para a direita: 
esQ. dir. 



O processo começa a partir da es- 
querda (ou pelo primeiro valor da lista 
a ser ordenada). Ele procura pela pri- 
meira ocorrência de um número menor 
fora de ordem. Um rápido exame de li- 
nha mostra o 4 fora de lugar. Ele é en- 
tão reposicionado (inserido) antes do 9, 
formando a nova sequência: 



As canas 4 e 9 estão agora na sequên- 
cia correta, mas, quando incluímos os 
outros números (5, 7 e 2) em nossa ob- 



Illlllllll 



MIM! 



servação, a ordem desaparece. A cada 
passada, contudo, as cartas vão sendo 
reordenadas, até que alcancemos a se- 
quência correia: 



Como se pode ver, não há aqui se- 
paração de grupos ou comparações par 
a par de valores, como na maioria dos 
métodos já estudados: as cartas (núme- 
ros) são alinhadas da esquerda para a di- 
reita em ordem crescente, depois de al- 
gumas trocas de posição. 

Esse processo ê muito semelhante ao 
usado por um jogador de baralho ao 
analisar e ordenar uma mão de cartas. 
De fato, a ordenação por inserção é 
também conhecida como ordenação do 
jogador de cartas. 

Vejamos agora um grupo de núme- 
ros um pouco maior, num estágio em 
que alguns valores já foram ordenados: 

grupo não ordenado g. ordenado 

34 



E, para completar: 



102> >>>>>>> 
26 1 
73 1 



O número 102 é colocado na sua po- 
sição correia e a rotina prossegue des- 
locando os valores remanescentes: 

grupo não ordenado g. ordenado 

26> >>>>>>> 



73 >>>>>>>> 
193 



26 
34 



193> >>>>>>> 

Adicione as linhas abaixo ao progra- 
ma de demonstração para observar a ve- 
locidade dessa rotina de ordenação: 



90 GOSUB 6000 

5999 BEM ORDENAÇÃO POR INSERÇÃO 

6000 FOR 1=1 TO AA-1 
6010 LET K=A(I+lf 

6020 FOR J=T TO 1 STEP -1 

6030 IF k>-A(.I) THEN GOTO 6070 

6040 LET A(J+1>=A(J) 

6050 NEXT J 

6060 LET J=0 

6070 LET A{J*1)-K 

6080 NEXT I; RETURN 



167 

Em seguida, o número 73 é inserido 
na sua posição; resta agora, como se po- 
de observar, apenas um valor não or- 
denado: 

grupo não ordenado g. ordenado 



DUM [UE] 



AO** 

6000 FOR 1-1 TO AA-1 

6010 K-A(I+1> 

6020 FOR J-I TO 1 STEP -1 

6030 IF K>=A(J) THEN 6070 

6040 A(J+1)-A{J) 

6050 NEXT J 

6060 J-0 

6070 A(J+1) -K 

6080 NEXT I : RETURN 

O valor da variável K é o próximo nú- 
mero da lista não ordenada a ser com- 
parado. O laço externo que começa na 
linha 6000 "varre" a lista ordenada, 
passando dos menores para os maiores 
valores, até encontrar a posição para K. 
Então, a rotina das linhas 6020 a 6050 
expande a lista ordenada para que haja 
lugar para o novo item. O programa 
continua até que todos os valores da lis- 
ta não ordenada tenham sido colocados 
nos seus lugares. 



ela não é encontrada com grande fre- 
quência em programas especialmente 
desenhados para as limitadas memórias 
dos micros domésticos. 

Seja como for, a ordenação instan- 
tânea é, sem dúvida, a mais veloz de to- 
das as rotinas que já examinamos até 
agora. Além disso, ela vai mais longe do 
que uma simples rotina de comparação 
e troca. E, embora seu algoritmo seja 
bastante complexo (a ponto de não po- 
dermos explicá-lo aqui), vale a pena 
conhecê-la e usá-la! 



90 GOSUB 7000 

6999 REM ORDENAÇÃO INSTANTÂNEA 

7000 LET K-0: LET 1-0 : DIH S (AA 

) 

7010 LET SlI + D-l: LET S(I + 2)-A 
A 

7020 LET K-K+l 

7030 IF K=0 THEN RETURN 

7040 LET K-K-l: LET I-K+K 

7050 LET A'SU + 1): LET B=S(I+2) 

7060 LET Z-A(A) : LET U-A: LET L 

= B+1 

7070 LET L-L-l 

7080 IF L=U THEN GOTO 7150 

7090 IF Z<-A(L) THEN GOTO 7070 

7100 LET A<U)=A(L) 

7110 LET U-U+l 

7120 IF L-U THEN GOTO 7150 

7130 IF Z>-A(U) THEN GOTO 7110 

7140 LET A(L)=A(U): GOTO 7070 

7150 LET A(U)-Z 

7160 IF B-U>-2 THEN LET I=K+K: 

LET S(I+1)=U+1: LET S(I+2>~B: 
LET K-K+l 

7170 IF L-A>-2 THEN LET I-K+K: 

LET S(I+1)=A: LET S(I+2)*L-1: 
LET K-K+l 
7180 GOTO 7030 



ORDENAÇÃO INSTANTÂNEA 



Embora seja considerada bastante rá- 
pida, a rotina de ordenação por inser- 
ção parece lenta quando comparada 
com a rotina de ordenação instantânea 
(ou qukksori, se você preferir). Esta úl- 
tima, contudo, além de ser complexa, 
exige muito espaço de memória. Assim, 



90 GOSUB 7000 

6999 REM **ORDENACA0 INSTANTANE 
A-« 

7000 K=0:I-0:DIM S (AA) 
7010 S(I+l)-l:S(I+2)-AA 
7020 K-K+l 

7030 IF K-0 THEN RETURN 
7040 K-K-l: I-K+K 
7050 A-S(I+1) :B-S(I+2) 
7060 Z-A(A) :U-A:L-B+1 
7070 L-L-l 

7080 IF L-U THEN 7150 
7090 IF Z<=A(L) THEN 7070 
7100 A(U)-A(L) 
7110 U-U+l 

7120 IF L-U THEN 7150 
7130 IF Z>-A(U) THEN 7110 
7140 A(L)-A(U) :G0T0 7070 
7150 A(U)-Z 
7160 IF B-U>-2 THEN I-K+K:S{I+1 
)-U+l:S(I+2)-B:K-K+l 
7170 IF L-A>-2 THEN I-K+K:S(I+1 
)-A:S(I+2)-L-l:K-K+l 
7180 GOTO 7030 
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CONVERSÃO DE PARTITURAS 



EM PROGRAMAS 


■ 


ACIDENTES 


■ 


RITMO 


■ 


EXECUÇÃO DE MELODIAS 



Seu micro é capaz de executar, 
sozinho, melodias inteiras. 
Aprenda a converter partituras 
em linhas de programas BASIC e ouça, 
então, suas canções prediletas. 



A música compõe-se de dois elemen- 
tos básicos: som e ritmo. Nosso primei- 
ro artigo sobre música em micros (veja 
'página 721) limitou-se à produção de 
notas musicais. O computador emitia 
uma nota conforme a tecla pressionada 
e o ritmo ficava a cargo do usuário. 
Mostraremos agora como informar ao 



computador o ritmo desejado. Além dis- 
so, daremos as noções de notação mu- 
sical necessárias à tradução de qualquer 
partitura, o que lhe permitirá executar 
no micro sua melodia predileta. 



Em geral, as partituras musicais são 
escritas em um ou dois grupos de cinco 
linhas horizontais, paralelas e equidis- 
tantes, denominados pauta. Sobre uma 



ou entre duas linhas colocam-se os sím- 
bolos que representam as notas. A po- 
sição destas na pauta, no sentido verti- 
cal, determina a tonalidade; no sentido 
horizontal, a ordem de execução. O for- 
mato dos símbolos, por sua vez, deter- 
mina a duração da nota. 

Notas alinhadas verticalmente devem 
ser tocadas ao mesmo tempo, em acor- 
des; estes, porém, não foram incluídos 
em nossos programas, que só tocam 
uma nota de cada vez. 

Linhas verticais, as barras dividem 
a música em grupos de notas. A dura- 
ção de cada um desses grupos deve ser 
a mesma, embora cada um deles possa 
ter um número diferente de notas. 



PROGRAMAÇÃO BASIC 




O programa que apresentamos no ar- 
tigo anterior transformou seu computa- 
dor em uma espécie de instrumento mu- 
sicai. Como você já deve ter observado, 
ele funciona muito bem. Contudo, o nú- 
mero de melodias que pode executar é 
reduzido, em razão do pequeno núme- 
ro de notas disponíveis. Além disso, o 
usuário, que, muitas vezes, jamais to- 
cou qualquer tipo de instrumento, é 
obrigado a executar cada música. 

Pode-se facilmente converter uma 
partitura nos números que o computa- 
dor precisa para tocá-la, mesmo sem ter 
grandes informações sobre música. Na 
página 743, fornecemos uma tabela de 
conversão justamente com esta finalida- 
de. Ames, porém, devemos ampliar um 
pouco nossos conhecimentos a respeito 
de notação musical. 



LER EM VEZ DE OUVIR 



A figura I exibe um trecho de parti- 
tura. Nela estão representadas todas as 
notas disponíveis no teclado, em uma sé- 
rie crescente — é a chamada escala cro- 



mática. 



Os símbolos no inicio das pautas são 
denominados claves: o da pauta de ci- 
ma é a clave de sol, mais aguda; o da 
pauta de baixo, a clave de fá, mais gra- 
ve. As claves determinam a tonalidade 
da pauta. Sem uma clave, as mesmas 
notas poderiam ser tocadas numa tona- 
lidade mais alta ou mais baixa. 

Os símbolos das notas ficam sempre 
entre duas ou exatamente sobre uma das 
linhas da pauta. Para escrever as notas 
que ficam acima ou abaixo destas, 
usam-se linhas suplementares. Na figu- 
ra I, por exemplo, a oitava e as três úl- 
timas notas estão desenhadas sobre li- 
nhas suplementares. 

Para colocar as notas da partitura em 
um programa BASIC é necessário cal- 
cular os valores da duração bem como 
de tonalidade correspondentes a cada 
uma delas. Qualquer pessoa pode se 
confundir nessa demorada tarefa. Mas 
não desanime: há uma maneira mais fá- 
cil de realizá-la. 

Voltemos à figura 1 : observe que ca- 
da tecla foi marcada com um valor de 
1 a 37. Esses números serão usados pa- 
ra calcular aqueles que, efetivamente, 
farão parte do programa. 

Poderíamos consultar a mesma figu- 
ra sempre que quiséssemos "traduzir" 
uma melodia, mas o processo de com- 



paração entre a partitura e o desenho 
também seria bastante cansativo. Para 
simplificar o trabalho, o mais prático se- 
ria o uso de um dispositivo ou "gabari- 
to" que, colocado sobre qualquer nota 
de partitura, mostrasse o valor corres- 
pondente à sua tonalidade. 



UM GABARITO MUSICAL 



Não há nenhum segredo na constru- 
ção de um dispositivo desse tipo: preci- 
samos simplesmente desenhar uma es- 
cala musical numa folha de papel, o que 
leva alguns poucos minutos. Provavel- 
mente, melodias diferentes exigirão ga- 
baritos diferentes, já que o tamanho das 
pautas pode variar. 

A primeira coisa a fazer é pôr o pa- 
pel sobre a partitura e copiar as linhas 
das pautas, indicando todas as possíveis 
posições verticais de uma nola. Em se- 
guida, basta assinalar o valor correspon- 
dente a cada marca. Para identificar os 
valores que deveremos usar nos progra- 
mas, colocamos o gabarito sobre a par- 
titura e lemos nota por nota com sua 
ajuda. 

Os valores correspondentes a cada to- 
nalidade estão representados na tabela 
de conversão. O Spectrum, o Apple e o 
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TABELA DE CONVERSÃO 






Escala 
principal 


Spectrum 


Apple 


TK-2000 


TRS-Color 


MSX 


1 


-12 


192 


192 


C 


C 


2 


- 1 1 


182 


182 


C + 


c + 


3 


- 10 


172 


172 


D 


D 


4 


-9 


162 


162 


D + 


D + 


5 


-8 


154 


154 


E 


| 


6 


-7 


146 


146 




r 


7 


-6 


137 


137 


F + 


F + 


8 


- 5 


128 


128 


G 


G 


9 


-4 


121 


121 


G + 


G + 


10 


-3 


114 


114 


A 


A 


1 1 


-2 


108 


108 


A + 


A + 


12 


- 1 


102 


102 


B 


B 


13 


0 


96 


96 


C 


C 


14 


1 


90 


90 


C + 


c + 


15 


2 


85 


85 


D 


D 


16 


3 


80 


80 


D + 


D + 


17 


4 


76 


76 


E 


E 


18 


5 


72 


72 


F 


£ 


19 


6 


67 


67 


F + 


F + 


20 


7 


64 


64 


G 


*j 


21 


8 


60 


60 


G + 


G + 


22 


9 


56 


56 


A 




23 


10 


53 


53 


A + 


A + 


24 


1 1 


50 


50 


B 


§ 


25 


12 


47 


47 


C 


c 


26 


13 


45 


45 


C + 


c + 


27 


14 


42 


42 


D 


D 


28 


15 


40 


40 


D + 


D + 


29 


16 


37 


37 


E 


E 


30 


17 


35 


35 


F 


F 


31 


1 8 


33 




F + 


F + 


32 


19 


31 


31 


G 


G 


33 


20 


29 


29 


G + 


G + 


34 


21 


28 


28 


A 


A 


35 


22 


26 


26 


A + 


A + 


36 


23 


25 


25 


B 


B 


37 


24 


23 


23 


C 


C 



TK-2000 usam números, enquanto o 
MSX e o TRS-Color usam letras. Para 
saber o que escrever junto a cada mar- 
ca do gabarito, compare os números da 
figura 1 com os da tabela e procure o 
valor correspondente na coluna dedica- 
da ao seu micro. 



BEMÓIS E SUSTENIDOS 



Nem todas as melodias são escritas na 
escala "C maior" ("dó maior", como 
vimos no artigo anterior); portanto, às 
vezes precisaremos traduzir ós bemóis e 
sustenidos das partituras. 

Se observarmos os acidentes fixos — 
explicados mais adiante — , distinguire- 
mos os bemóis ou sustenidos da canção. 



Poderemos, assim, substituir o valor da 
nota natural no gabarito pelo valor do 
bemol ou do sustenido. 

Bemóis e sustenidos são as teclas pre- 
tas, e o valor de suas tonalidades está 
na tabela. O menor valor de um C sus- 
tenido é 2 (usando os números da esca- 
la principal da tabela, você descobrirá 
o valor correspondente em sua máqui- 
na). D bemol tem o mesmo valor, que 
está entre 1 e 3 (valores de C e D, res- 
pectivamente). 

Símbolos para bemóis e sustenidos 
não foram introduzidos na figura I pa- 
ra não torná-la confusa. Quando se quer 
representar o sustenido de uma nota, ela 
aparece precedida pelo símbolo corres- 
pondente (parecido com o caracter # 
"cardinal" de seu computador). Da 




Como o computador produz sons? 

Para que um dispositivo digital, co- 
mo o computador, possa gerar um fe- 
nómeno analógico (continuamente va- 
riável em intensidade), como o som. é 
necessário ligá-lo a um aparelho espe- 
cial, chamado conversor digital-analó- 
gico (DAI. Este tem a função de con- 
verter uma lista de números armazena- 
da ou gerada no computador em uma 
onda continuamente variável. 

No nosso caso, cada número da lis- 
ta representa a amplitude ou intensida- 
de da onda em um determinado mo- 
mento. A lista de números, com valo- 
res de amplitude tomados a intervalos 
regulares (geralmente milissegundos), 
constitui, assim, uma amostragem da 
onda a ser produzida. O inverso do in- 
tervalo de amostragem, denominado 
frequência de amostragem, depende- 
rá da frequência máxima que o som de- 

O conversor analógico-digital <AO) 
funciona de modo inverso ao conver- 
sor DA, transformando uma onda ana- 
lógica em uma lista de números. Esse 
dispositivo é utilizado, por exemplo, em 
sistemas de reconhecimento de voz pa- 
ra microcomputadores ou na conversão 
de entradas provenientes de jovsticks 
analógicos. 

O conversor DA só pode ser empre- 
gado nos micros que dispõem de gera- 
dores internos de sons, como o TRS- 
Color, o MSX e o Spectrum, Colocan- 
do-se vários conversores DA lado a la- 
do, a placa geradora de som desses mi- 
cros torna-se capaz de emitir várias no- 
tas ao mesmo tempo. 
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SELEÇÂO DE PARTITURAS 

Se você sabe ler partituras, não te- 
rá a menor dificuldade em encontrar as 
músicas de sua preferência para "lo- 
car" no computador, usando o progra- 
ma deste artigo. Mas, se você dispõe 
apenas de noções elementares de no- 
tação musical, precisará contornar 
suas deficiâncias selecionando partitu- 
ras simplificadas. Uma excelente fon- 
te são os álbuns de exercícios musicais 
para iniciantes de instrumentos menos 
complexos, como a flauta doce. Neles, 
melodias não harmonizadas (isto é, 
sem acordes) são apresentadas na for- 
ma de partituras tão simples que você 
não terá dificuldade nenhuma em 
acompanhar. 

A seleção de músicas será um pou- 
co mais difícil para quem não lê abso- 
lutamente nada de uma partitura. Mas, 
ainda assim, testa o popular recurso de 
"tocar por números". Alguns fabrican- 
tes de instrumentos musicais para 
crianças publicam partituras em que as 
notas são acompanhadas por números. 
Estes indicam a tecla a ser pressiona- 
da. Estabelecendo a correspondência 
entre os números e as teclas do com- 
putador, você poderá executar músicas 
completas sem saber sequer o que é 
um "dó". 
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mesma maneira, símbolos de bemol (pa- 
recidos com um b minúsculo) precedem 
as notas correspondentes. 

A figura 2 mostra as primeiras notas 
"C maior", incluindo bemóis e suste- 
nidos, na clave de sol. Observe que C 
sustenido e D bemol são a mesma nota, 
mas ocupam posições verticais diferen- 
tes na pauta. Notas isoladas podem, as- 
sim, representar bemóis e sustenidos, 
desde que sejam precedidas pelos sím- 
bolos correspondentes — denominados 
acidentes. O efeito de um acidente du- 
ra, para a nota que o segue, até a próxi- 
ma barra, a menos que seja cancelado 
antes do fim do compasso. É um tercei- 
ro símbolo, chamado bequadro, que 
cancela o acidente e restaura a tonalida- 
de natural da nota. A figura 3 mostra 
um trecho de partitura onde aparece um 
G sustenido. O G seguinte tem sua to- 
nalidade natural preservada pelo bequa- 
dro que o precede. 



ACIDENTES FIXOS 



Quando uma canção é executada em 
uma escala que inclui um bemol ou um 
sustenido, essa nota será usada o tem- 
po todo, no lugar do valor natural cor- 
respondente. Para evitar a repetição do 
símbolo, ele é colocado após a clave, no 
inicio da pauta. Nesse local, o símbolo 
é chamado de acidente fixo e, por meio 
dele, pode-se identificar a escala em que 
é tocada a canção. 

A ausência de um acidente fixo indi- 
ca que a escala é "C maior", e, ao con- 
trário, qualquer acidente fixo indica que 
se trata de outra escala. Se, por exem- 
plo, uma pauta apresenta um sustenido 
como acidente fixo na linha do F, todos 
os F, em todas as oitavas, serão sus- 
tenidos. 

No artigo anterior, mostramos que 
um F sustenido é necessário para preser- 
var o arranjo de intervalos na escala "B 
maior". Um sustenido na posição do F 
como acidente fixo indica ao músico que 
a melodia foi escrita em "B maior". 
Não se esqueça, portanto, de modificar 



no gabarito os valores das tonalidades 
correspondentes, sempre que a partitu- 
ra tiver acidentes fixos. 

A figura 4 mostra um trecho de par- 
titura em "F maior". Nele vemos um 
acidente fixo bemol. Os valores das to- 
nalidades estão indicados: note que o da 
quarta nota, um B bemol, é 23. Aqui o 
gabarito revela toda a sua utilidade. Se 
a música que está sendo transcrita tem 
um B bemol como acidente fixo, colo- 
camos o valor correspondente ao bemol 
na marca do B. Assim, a tradução dos 
acidentes se torna tão fácil quanto a das 
notas naturais. 

Mas tenha cuidado: muitas vezes al- 
guns acidentes isolados — e naturais iso- 
lados — têm prioridade sobre os aciden- 
tes fixos. 



RITMO 



Depois de calcular a tonalidade das 
notas, devemos cuidar da duração de ca- 
da uma delas e da tradução das pausas, 
que têm seus próprios símbolos. A figu- 
ra 5 mostra os símbolos das notas e das 
pausas com duração equivalente e o va- 
lor relativo da duração. 

Durações relativas são utilizadas pa- 
ra que um andamento — velocidade de 
execução — defina, posteriormente, a 
verdadeira duração. Podemos, assim, 
experimentar diversos andamentos, até 
que um deles nos soe melhor. O progra- 
ma do final do artigo permitirá esse ti- 
po de ajuste. 

As pausas mais longas são represen- 
tadas por meio de pequenos retàngulos 
prelos, desenhados acima ou abaixo da 
linha média da pauta. Quando um pon- 
to sucede uma nota ou uma pausa, sua 
duração é multiplicada por um e meio. 
Uma nota pontuada duas vezes tem uma 
duração uma vez e três quartos maior 
que a nota sem pontos. 

Além do acidente fixo, junto à clave 
aparecem dois algarismos, dispostos co- 
mo fração numérica. O de baixo indica 
a espécie de notas em que o compasso 
está dividido; o de cima, o número des- 
sas notas no compasso. Na figura 6, por 
exemplo, vemos a fração 6/8 depois da 
clave, o que significa que há seis col- 
cheias por compasso. 

Para nossos fins essas noções de no- 
tação musical são suficientes: vamos ape- 
nas transcrever a partitura para criar um 
programa. 



TRADUÇÃO DE UMA MELODIA 



Vamos agora traduzir uma pequena 
partitura em números (ou letras, confor- 



me sua máquina) que o computador 
possa utilizar para determinar tonalida- 
des e durações de notas. 

A figura 6 mostra a partitura de uma 
canção infantil inglesa, Three Blind Mi- 
ce (Três Ratinhos Cegos) acompanhada 
dos números que representam a tonali- 
dade na escala principal, previamente 
definida. Para identificar os números 
correspondentes em seu computador, 
use a tabela de conversão. Os valores pa- 
ra a duração relativa também estão in- 
dicados. 

Observando a partitura em questão, 
você verá que, sempre que três colcheias 
(veja figura 5) aparecem juntas, elas são 
ligadas por um traço horizontal. Não es- 
tranhe: a única finalidade dessa forma 
de notação — não obrigatória — é fa- 
cilitar a leitura. As notas permanecem 
exatamente as mesmas, não havendo 
modificações nem na altura nem na 
duração. 

Já no oitavo compasso, há duas no- 
tas ligadas, mas por uma linha curva, e 
não reta. Nesse caso há mudança: a li- 
nha, chamada ligadura, indica que a se- 
gunda nota não deve soar separadamen- 




te, ou seja, que o som da primeira se 
prolongará pelo tempo correspondente 
à duração de ambas as notas. Podería- 
mos ter, também, ligaduras com várias 
notas. Para transcrevê-las em dados 
computáveis, bastaria somar as dura- 
ções correspondentes, o que nos daria 
uma nota mais longa. 



Os números das tonalidades e dura- 
ções devem ser colocados em linhas DA- 
TA, para que o programa possa obtê- 
los com READ no decorrer da execu- 
ção. Os números correspondentes à can- 
ção da figura 6 foram incorporados ao 
programa dessa maneira. Cada linha 
contém dois compassos (exceto no TRS- 
Color e no MSX), o que torna mais fá- 
cil a compreensão das linhas DATA. 

A duração total de cada compasso 
deve ser a mesma — doze unidades, no 
nosso caso. Assim, se você transcrever 
uma música e o ritmo parecer incorre- 
to, verifique se cada compasso tem a 
mesma duração, corrigindo os erros en- 
contrados. Use as funções de edição de 
seu computador para duplicar compas- 



sos iguais ou semelhantes, economizan- 
do tempo de digitação. 



Os valores da duração de cada nota 
são relativos, já que podemos variar o 
andamento (velocidade) que se imprime 
à execução de um trecho da melodia. O 
programa solicita um valor para o an- 
damento, logo que é executado. Como 
valores menores correspondem a maio- 
res velocidades de execução, podemos 
considerar o valor que fornecemos co- 
mo o inverso do andamento. 

Há um detalhe importante sobre o 
funcionamento do programa que se apli- 
ca a todos os micros. Suponhamos que 
a melodia contenha um compasso com 
uma única nota bem longa, seguido por 
outro compasso com várias notas cur- 
tas. No segundo caso, as linhas que lêem 
e testam os dados são executadas mais 
vezes que no primeiro. Devido ao tem- 
po de operação extra, a velocidade de 
execução do segundo compasso será um 
pouco menor. Deve-se imprimir, por- 
tanto, a maior velocidade possível à exe- 
cução dessas linhas BASIC. Por isso, 



não há no programa linhas que testem 
o fim dos dados: o programa termina 
simplesmente com uma mensagem de er- 
ro indicando que não há mais dados. 

Se, porém, ao traduzir suas músicas 
prediletas, você quiser um fina] mais ele- 
gante, coloque um laço FOR...NEXT 
que leia exatamente a quantidade de nú- 
meros que as linhas DATA contêm. 

Segucm-se os programas que execu- 
tam a partitura da figura 6. 



10 INPUT "TEMPO tl-50J",t: 
LET t-t/100 

20 1F K0.00Í OH t>0.5 THEN 
COTO 10 

30 FOR n-0 TO 1 STEP Or READ 
a,b: SOUND a*t.b: NF.XT n 

100 DATA h, 4,6,3,12. 0,6, 4, 6, 2. 

12,0 

1 1 0 DATA 6 , 7 , 4 , 5. 2 , 5 , 12 , 4 >6 , 7 1 

4, 5. 2, 5, 10. 4, 2, 7 

130 DATA 4, 12. 2. 13.3.11.2,9,3. 



130 DATA 4,12 

140 DATA 3,12 

.9.2,11 

1 50 DATA 4.12 

1 60 DATA 7,12 

.9,2,11 



2,7,4,7.2,7 
2.12.2,12,2.11 



2.7,4,7,2,7 
2, 12,2, ] 7,2, 11 



Ao rodar o programa, devemos res- 
ponder, com um número entre 1 e 50, 
à solicitação do computador de um va- 
lor para o andamento. Como já foi ex- 
plicado, trata-se do inverso do anda- 
mento. O programa nada mais faz do 
que multiplicar cada duração pelo va- 
lor do andamento — portanto, quanto 
maior o valor, menor a velocidade. 

Usamos o inverso do andamento pa- 
ra tornar o programa mais simples e rá- 
pido. Um comando IF...THEN verifi- 
ca se o andamento está na faixa permi- 
tida. A linha 30 executa a melodia. Um 
laço FOR...NEXT obtém com READ 
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Tonalidadel7 
Duração 6 




25 25 25 24 22 24 25 20 20 20 20 25 25 24 22 24 
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dois valores para cada nota: um para a 
tonalidade e outro para a duração. Um 
comando SOUND emite o som antes 
que outros dados sejam lidos. 

Ao executar suas próprias canções, 
acerte os valores do laço FOR.. .NEXT 
para a leitura do número exato de no- 
tas. Por enquanto, o laço nunca termi- 
na, pois tem um STEP de valor 0. 



TNPUT "ANDAMENTO (1-50)" ; TP 

IF TP<] THEN J0 

PLAY "T" + STP.$(INT(32+223/TP) 

FOR 1-1 TO 48 

READ AS. D 

PLAY "L-+STBS UNT (1+63/D) )+" 
-+AS 

NEXT I 
00 DATA E,6.D,6,C,12 
10 DATA E,6.D.6.C,12 
20 DATA G,6.F.4,F,2,E,12 
30 DATA G.6.F,4,F.2,£,10 



1040 DATA G , 2 ,04C, 4 ,04C, 2 ,B, 2. A 
, 2 ,B, 2 ,04C,4 ,G, 2 ,G, 4 ,G, 2 
1050 DATA G4C , 2 , 04C , 2 , 04C , 2 , B , 2 
, A , 2 , B . 2 . 04C ,4,G,2,G,2,G,2,G,2 
1060 DATA 04C.4 , 04C, 2 , B, 2, A, 2 ,B 
,2,04C,2,G,2,G,2,G,4,F,2 
1 070 DATA E.6, D, 6.C. 12 

O programa do MSX começa pedin- 
do que o usuário informe o andamento 
desejado. A linha 20 verifica se o valor 
escolhido é válido — se não for, o pro- 
grama volta à linha 10. A linha 30 cui 
da de estabelecer o andamento, selecio 
nando um valor adequado para o argu 
mento"T" do comando PLAY..O va 
lor escolhido no início deve ser transfor- 
mado em cordão pela instrução STR$, 
para que possa servir como argumento 
de PLAV. 

A linha 50 obtém os valores de tona- 
lidade e duração das notas. A linha 60 
produz o som, também usando o co- 
mando PLAV. Para determinar a dura- 
ção de cada nota, STRS transforma em 
cordão o valor obtido nas linhas DATA 



e o coloca logo após "L". O "03" que 
se segue determina a oitava (eventual- 
mente, é cancelado pelo "04" de uma 
nota). Finalmente, a variável AS esta- 
belece a altura da nota. 

Para executar a música, usamos um 
laço FOR... NEXT (linhas 40 a 70). Evi 
tamos, assim, a emissão de uma men- 
sagem de erro que, além de deselegan- 
te, causa problemas no MSX. Como es- 
se computador possui um microproces- 
sador específico para a produção de 
sons, a música continua tocando, mes- 
mo após a execução do programa. H: 
vendo uma mensagem de erro, o siste- 
ma operacional do MSX suspende ' 
diatamente todas as atividades periféri- 
cas em andamento — tela gráfica, mo- 
tor do gravador e som. Assim, se dei- 
xássemos passar um erro, a música se- 
ria interrompida. 



1 0 HOME 

20 FOB I « 0 TO 22: READ A: PO 

KE BOO + I.A: NEXT 

30 DATA 160.0.174,133,3.236.4 

6, 192,136, 208.5,206. ] 12.3.240,6 

,202,208.245.76.34,3,96 

40 INPUT "ANDAMENTO (1-50) "sT 

50T-T7 3.3 

60 READ A.B 

70 POKE 900,1 + B * T: POKF. 90 
1 ,A: CAI.L 800 

80 FOB I " í TO 100: NEXT 
90 GOTO 60 

100 DATA 76,6,85.6,96,12 
110 DATA 76 . 6 , 85 , 6 , 96 , 1 2 
120 DATA 64.6,72,4,72.2.76,12 
130 DATA 64.6,72.4,72,2.76.10 



140 DATA 47, 
50,2 

150 DATA 
160 DATA 
50, 2, 50, 2 



.47,2,50,2,56.2. 




IIIIIIIIIIHH 



■■■■■lllllllll! 



1 70 DATA 4 7 . 4 , 64 . 2 . 64 , 2 . 64 . 2 . 

J80 DATA 47. 4. 47. 2. 50, 2, 56, 2 
,50,2 

190 DATA 47.2,64,2.64,2,64,4. 

72.2 

20(1 DATA 76.6.85,6,96.12 

O programa do Apple usa a rolina 
em código explicada no artigo da pági- 
na 706. As linhas 20 e 30 colocam essa 
rolina na memória, depois que o HO- 
ME da linha 10 limpou a tela. 

A linha 40 solicita o valor desejado 
para o andamento da canção e a linha 
50 corrige seu valor. O fator de corre- 
ção aqui escolhido é compatível com du- 
rações relativas com valores até 16 (se- 
mibreve). Como em nossa canção não 
existem notas com duração tão longa, 
podemos alterar o valor para 2.5, se qui- 
sermos. Nesse caso, porém, a duração 
máxima de cada nota deverá ser 1 2 (mí- 
nima pontuada). 

A linha 60 obtém os valores de tona- 
lidade e duração e à linha 70 cabe exe- 
cutar a nota. Para chamarmos a rotina 
(CALL 800) que produz o som, o ende- 
reço 900 deve conter a duração e o 901 , 
a tonalidade. 

O problema de tempo, que mencio- 
namos ao tratar dos demais comput; 
dores, não se aplica ao micro Apple. A 
linha 80 produz um pequeno atraso, fa- 
zendo com que a música não seja exe 
cutada muito rapidamente. 

A linha 90 manda o programa de vol 
ta à linha 60 para que o programa obte 
nha o valor de uma nova nota. O pro- 
grama termina com uma mensagem de 
erro. informando o fim dos dados. 



Embora o programa anterior funcio- 
ne no TK-2000, seus usuários devem fa- 
zer algumas modificações. Primeiro, co- 
mo a rotina de produção de sons não é 
necessária, as linhas 20 e 30 podem ser 
apagadas. Além disso, devemos substi- 



tuir os comandos na linha 70 do progra- 
ma do Apple pelo comando SOUND. A 
linha 80 também precisa ser modifica- 
da, já que o TK-2000 é mais lento que 
o Apple. Aqui estão as modificações: 



10 IN PUT" ANDAMENTO (1-50) ";TP 
20 IF TP<1 THEN 10 
30 READ AS. D 

40 PLA¥"T"+STRS(INT (1+255/ (TP"D 

)>)+"03"+AS 

50 GOTO 30 

1000 DATA E,6,D,6.C,12 

1010 DATA E.6.D.6.C.12 

1020 DATA G,6.F,4,F,2.E.12 

10 30 DATA G.6.F.4.F.2.E.1? 

1040 DATA 04C,4.04C,2,B,2,A,2,B 

, 2.04C.4.G. 2,G,4,G, 2 

1050 DATA O4C,2,04C.2.04C,2,B,Z 

,A,2,B.2.04C.2 r G,2,G,2,G,2.G.2 

1060 DATA 04C.4.04C.2,B,2,A,2,B 

.2.04C,2,G,2,G,2,G,4,F.2 

1070 DATA E.12,D,12,C,12 

O programa do TRS-Color começa 
pedindo o valor da velocidade de exe- 
cução desejada — ou andamento — por 
meio de um comando INPUT. 



A linha 20 verifica se o valor forne- 
cido está dentro dos limites válidos, re- 
tornando à linha 10 se o andamento for 
menor que 1. 

A linha 30 lê dois valores para cada 
nota: um para a tonalidade — represen- 
tada por meio de uma letra — e outro 
para a duração. Para simbolizar os sus- 
tenidos, usamos um sinal "cardinal" ou 
um "mais" antes da nota e, para os be- 
móis, um sinal "menos" no mesmo lu- 
gar. A linha 40 toca a nota, através de 
um comando PLAY. O T entre aspas 
faz com que o número que vem a seguir, 
entre I e 255, determine o andamento 
da melodia. Esse número é calculado 
invertendo-se o valor inicialmente for- 
necido ao programa. Para ser utilizado 
como argumento de PLAV, o número 
deve ser convertido em um cordão por 
intermédio do comando STRS- 

O cordão "03" seleciona a oitava 
apropriada; a parte final da tinha ( + AS) 
cuida da tonalidade da nota. 

Após produzir o som de uma nota, 
o programa volta à linha 30, onde 
READ lê um novo par de dados nas li- 
nhas DATA. Isto se repete até que o 
conteúdo das linhas DATA se esgote. O 
programa c interrompido com uma 
mensagem de erro, ao tentar prosseguir 
a leitura de dados — que já acabaram. 
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Começamos aqui a programação de um 
videogame completo; Avalanche. Em cada 
nova seção você encontrará uma 
surpresa... e aprenderá um pouquinho 
mais sobre código de máquina! 

Os princípios mais importantes da 
linguagem de máquina podem ser ensi- 
nados por meio da programação de jo- 
gos, E, sem duvida, aprender desse jei- 
to é muito mais divertido. Desenvolve- 
mos, assim, um videogame completo, 
especialmente construfdo para demons- 
trar os recursos de programação do 
Spectrum, do MSX c do TRS-Color. 
Não haverá programas para as linhas 
Apple. TK-2000, TRS-80 e ZX-81. 



-1 Vltfal 



de Keystone Kappers, exigindo rapidez e 
agilidade Uo jogador, que precisa cor- 
rer e saltar para escapar dos perigos que 
o ameaçam. 

Serão criadas quatro telas, uma pa- 
ra cada nivel de dificuldade — o jogo 
vai se tornando cada vez mais difícil. O 
personagem central de toda a ação é 
Wiliie. Nosso herói decide fazer um pi- 
quenique em uma montanha à beira- 
mar. Depois de encontrar um bom lu- 
gar para estender sua toalha, vai dar um 
passeio pelas redondezas. Ao voltar, 
descobre que alguns cabritos monteses 
espalharam seu lanche por toda a encos- 
ta. Para recuperar o que trouxe, preci- 



sará ir até o topo da montanha — o que 
deve fazer o mais rápido possível, 
levando- se em conta que a maré está su- 
bindo. Wiliie morrerá afogado se não 
chegar tá em cima a tempo. 

Na primeira etapa do jogo, nosso he- 
rói é bombardeado por uma avalanche 
de pedras que rolam montanha abaixo. 
Para isso, utilizamos a primeira tela, que 
mostra as pedras descendo a encosta. 
Wiliie precisa saltá-las, se quiser conti- 
nuar vivo — qualquer descuido pode ser 
fatal. A corrida e os saltos do persona- 
gem são controlados pelas teclas NcM. 
Se uma pedra atingi-lo, é morte certa. 
Felizmente, ele tem cinco vidas. 

Quando Wiliie ehega ao topo da 
montanha e recupera parte do que per- 
deu, é obrigado a voltar ao nivel do mar. 
O jogo recomeça, então, na segunda te- ' 
la. Desta vez, ao tentar subir o monte, 
encontrará pelo caminho enormes bura- . 
cos, verdadeiras armadilhas cavadas na ' 
encosta, Se cair num deles ficará enter-/L r* 
rado... e morto. ^» 

Chegando ao cume da segunda mon- 
tanha, nosso herói será colocado aos pés 
da terceira e precisará enfrentar uma no- 
va escalada. A encosta continua cheia 
de huracos, mas, agora, cada um deles 
è habitado por uma serpente venenosa, 
que tentará picar o personagem quan- 
do este saltar. 

Na quarta tela, Wiliie terá que_mosJ^*- ' 



trar toda a sua habilidade, pois será 
bombardeado pela avalanche enquanto 
salta sobre os buracos habitados petas 
serpentes "assassinas". 

Nas quatro etapas do jogo a rapidez 
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é fundamental, pois a maré está sempre 
subindo. Os pontos do jogador são con- 
tados conforme seu sucesso em escalar 
a montanha, havendo um bónus para 
quem conseguir passar as quatro telas 
sem perder nenhuma vida. 

Além de ensinar os truques da pro- 
gramação em código de máquina, Ava- 
lanche é um jogo envolvente e cheio de 
emoções. Publicaremos suas seçòes em 
várias partes. O funcionamento de ca- 
da uma e seu papel na estrutura global 
do programa serão explicados detalha- 
damente na medida em que forem apre- 
sentadas. Sempre que possível, indica- 
remos as alternativas de utilização de de- 
terminadas rotinas. No final da série, 
você terá um videogame tão bom como 
os disponíveis em cartuchos. 



A ESTRUTURA DO PROGRAMA 



s caracteres móveis são 
todos desenhados com blocos gráficos. 
Colocamos o cenário na tela por meio 
de laços que obtêm os caracteres corres- 
pondentes em bancos de blocos criados 
previamente na memória. 

Os buracos e as cobras são superpos- 
tos ao cenário original, de maneira que 
não precisamos redesenhá-lo para mon- 
tar as demais telas. 

A parte principal do programa con- 
siste em uma rotina de controle que de- 
termina o andamento e a prioridade dos 
eventos. Cada evento em si é executado 
por uma sub-rotina especifica. 

A animação do personagem central 
e das serpentes '"assassinas" é feita em 
saltos de meio caractere, procedimento 
viabilizado pela criação de dois conjun- 
tos de caracteres. 

Com esse tipo de animação, pode-se 
obter suavidade nos movimentos sem 
complicar demais o programa ou atrasá- 
lo — o que comprometeria o desenvol- 
vimento do jogo, já que a velocidade, 
no caso, é muito importante. 



A primeira coisa que se programa em 
qualquer jogo é uma tela exibindo o tí- 
tulo. Embora a rotina de impressão es- 
teja em código de máquina, será mais 
fácil colocar as letras na memória usan- 
do um programa BASIC. 

Antes de executar o programa, pro- 
teja a região da memória corresponden- 
te com CLEAR 57434. 



.10 FOR N = l TO 38 
40 POKE X.CODE A$[N! 
50 LET X=X+1 
60 NEXT N 

70 DATA " AVALANCHECR 1 AC AO : A . D 
O E PROGRAMA : P . ÍTLARK" 

O programa cria na memória uma ta- 
bela com os códigos ASCII das letras 
que compõem a tela. Essa parte da me- 
mória deve ser gravada juntamente com 
o resto do programa em código; assim, 
na realidade, o programa BASIC não 
será necessário à execução do jogo. 
Grave-o, contudo, para auxiliar na 
montagem do programa completo. 

Para que o Assembler de INPUT 
funcione a contento, faça as seguintes 
modificações: na linha 5120, troque o 
número 6 por 22; na linha 61 10, adicio- 
ne :GOSUB6150; na linha 6150 troque 
GOSUB 6260 por GOSUB 6160. Carre 
gue, então, o Assembler e digite esta pri- 
meira rotina: 

40 REM oro 580.15 

50 REM ti rali cl 

n0 REM id a, 2 

70 REM out 254 . a 

BO HEM ld a, 16 

90 REM ld (23624) .a 
1 00 BEM ld IX, 57435 
110 REM ld h.9 



120 HEM 



, 70 



30 REM ld hl ,299 
140 REM call me 
150 REM ld b. 15 
160 REM ld a, 7 
.70 REM ld hl. 616 



180 
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] 90 REM ld b , 1 8 
200 REM ld hl. 679 
210 REM cal 1 me 
220 REM ld b,2 
230 REM Idp ld hl .65000 
710 REM ld de.O 
250 REM ldq der. hl 
260 REM puah hl 
270 REM abe hl ,de 
Z80 REM | 



290 



EM jr 



, ldq 



300 REM djnz ldc 

301 REM nop 

302 REM nop 

303 REM nop 

304 REM nop 

305 REM nop 

306 REM nop 

307 REM nop 

308 REM nop 
310 REM ret. 

Grave os mnemónicos usando a op- 
ção correspondente do Assembler. De- 
pois, monte a primeira rotina e grave o 
programa em código — se preciso, re- 
corra ao monitor de linguagem de má- 
quina. Digite, então, mais esta rotina: 



270 I 
280 I 
290 I 



REM 

' REM 1 
REM 

REM 1 

REM l 

REM | 

REM : 

REM i 

REM ] 

REM i 

REM : 

REM : 

REM l 

REM ( 

REM í 

REM . 
REM 



íi EM 

REM 
' REM 
1 REM 
i REM 



a, 254 
t 1 .a 
nz.ktt 

puah bc 
ah af 
a, (ix+0) 



int 



pop b< 
pop h 



puah hl 
push bc 
puah hl 



320 REM 

3 10 REM < 
340 REM 
350 REM i 
360 REM i 

3 70 REM : 
380 REM ! 
390 REM l 
400 REM . 
410 REM 

4 20 REM 
430 REM 
440 REM 
450 REM 
460 REM 
470 REM 
480 REM 
490 REM 
500 REM puah de 
510 REM ld de . 1792 
520 REM add hl .de 
530 REM pop de 
540 REM ld a. d 
550 REM cp 1 

560 HEM jr z.next 
570 REM puah de 
580 REM ld de, 1792 
590 REM add hl , de 
600 REM pnp de 
b 1 D HEM next puah d. 
620 REM ld de. 16384 
630 REM add hl , de 
640 REM pop de 
650 REM ld a, 8 
660 REM pop bc 
670 REM puah af 
680 REM rept. td a . (I 
690 REM ld (hl) .a 
700 REM inc h 
7 I 0 REM inc bc 
720 REM pop af 
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/SO REM push af 

760 BEM jr rept 

/?[) REM exit pop hl 

7B0 REM pop af 

/ti) REM push de 

BOO REM ItJ de, 22528 

H 1 1] REM add hl .de 

B20 REM pop de 

930 REM ld (hli .a 

B4() REM push de 

HM) REM pop hl 

M BEM rei 

Grave essas duas rotinas separada- 
menie. O programa pode ser executado 
pelo comando RAND USR 58035, co- 
mo de costume. Lembre-se, porém, de 
que a tabela com dados em ASCII — 
que começa em 57435 — deve estar na 
memória para que o programa funcione. 



0 PROGRAMA BASIC 



O programa escrito em BASIC 
resume-se a um laço FOR...NEXT que 
coloca as letras das palavras da página 
inicial na memória, formando uma ta- 
bela ASCII que o programa em código 
pode utilizar. Ele apenas ajuda a mon- 
tar o programa, não sendo necessário ao 
funcionamento do jogo depois que a ta- 
bela tiver sido gravada. 



OS COOIGOS 



O programa consiste em uma rotina 
principal que chama as demais rotinas. 
Podemos, assim, cuidar de cada rotina 
separadamente, o que facilita muito a 
detecção e correçâo de erros. 

A primeira instrução call cl chama a 
sub-rotina de limpeza da tela. Os co- 
mandos ld a,2 e out 254,a definem as co- 
res da borda, como foi explicado na pá- 
gina 556. O uso do comando oul modi- 
fica apenas temporariamente a cor da 
moldura. Para tornarmos essa alteração 
permanente, precisamos modificar o va- 
lor da variável do sistema corresponden- 
te, que fica na posição 23624. 

A cor da moldura especificada no co- 
mando out é 2, ou vermelho. Mas, pa- 
ra que o 2 seja colocado em 23624, de- 
vemos "deslocá-lo" — operação SHUT 
— três bits para a esquerda, resultando 
no valor 16. 



IMPRESSÃO NA TELA 



A rotina rotulada com me controla 
a impressão de caracteres na tela. Cer- 
tos parâmetros devem ser fornecidos a 
ela para que possa imprimir o texto cor- 
reto na posição desejada. 



O comando ld ix,57435 coloca no re- 
gistro IX o endereço do primeiro byte 
da tabela ASCII, a fim de que a rotina 
de impressão saiba o que imprimir. 

O acumulador contém o atributo do 
caractere que será impresso. Tanto em 
linguagem de máquina quanto em BA- 
SIC o funcionamento é o mesmo. Quan- 
do o bit 7 está ligado, o caractere é cin- 
tilante — FLASH. O bit 6 dá brilho ao 
caractere — BRIGHT. Os próximos três 
bits determinam a cor do fundo, e os 
três seguintes são responsáveis pela cor 
dos caracteres. 

No programa- fonte, colocamos 70 — 
010001 10 em binário — , que tem o bit 
6 ligado, os bits que controlam a cor do 
fundo nulos e os bits dos caracteres va- 
lendo 6. Teremos, assim, caracteres 
amarelos sobre fundo preto, brilhante 
e não cintilante. 

O registro B funciona como contador 
de caracteres. O valor nele colocado de- 
termina o comprimento do texto que se- 
rá impresso. Na primeira vez que a ro- 
tina me é chamada, B contém 9 — as 
nove letras de A VALANCHE. 

O registro HL contém a posição da 
tela a partir da qual o texto deve ser im- 
presso. Essa posição é calculada em nú- 
meros de posições a partir do canto es- 
querdo da tela. Quando HL contém 
139, o primeiro caractere da primeira ca- 
deia de caracteres — ou seja, o "A" de 



.4 VALANCHE — é colocado na quin- 
ta linha da tela, onze posições a partir 
do lado esquerdo. 

A rotina me é chamada três vezes pa- 
ra imprimir cada uma das três linhas da 
tela inicial. 



PROGRAMAÇÃO DE PAUSAS 



Para que o jogador possa ler o titu- 
lo, devemos incluir uma pausa no pro- 
grama. Colocamos 2 no registro B, de 
modo que o laço responsável pela pau- 
sa seja executado duas vezes. 

O número 65000 é colocado no regis- 
tro HL. O conteúdo desse par diminui 
em uma unidade a cada volta do laço in- 
terno — rotulado com Idq. HL é guar- 
dado e recuperado da pilha somente pa- 
ra ganharmos tempo. 

Pode parecer estranho subtrair zero 
— conteúdo de DE — de HL a cada vol- 
ta do laço. Mas trata-se apenas de um 
recurso utilizado para afetar o indica- 
dor de zeros, que não reage à instrução 
pop. O comando jr nz depende desse in- 
dicador para que o programa possa sair 
do laço. Quando HL for reduzido a ze- 
ro e sub hl, de executar a próxima sub- 
traçào, o resultado obtido será zero; ati- 
vado o indicador de zeros, o processa- 
dor sairá do laço. 

Quando completo, o programa pros- 
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seguirá imprimindo a página de instru- 
ções. Mas, por enquanto, a instrução ret 
provoca o retorno ao BASIC. 

Não se importe com os comandos 
nop que aparecem no final do progra- 
ma. Eles não têm nenhum efeito sobre 
o microprocessador e sua função aqui 
é somente preencher espaço. 



Algumas rotinas de apoio ao progra- 
ma principal foram montadas. A que 
tem o rótulo ktt aguarda que pressione- 
mos uma certa tecta, e ainda não será 
usada. O princípio de verificação do te- 
clado aqui utilizado é igual ao explica- 
do no artigo da página 381. 

A rotina me , encarregada de contro- 
lar a impressão na tela, começa guar- 
dando os conteúdos de BC e AF na pi- 
lha. Em seguida, o conteúdo da posição 
de memória apontada pelo registro IX 
(que contém o endereço inicial da tabe- 
la ASCII) é colocado no acumulador 
por Id a,(ix +0), comando que emprega 
o endereçamento indexado. 

Os registros IX e IY são chamados de 
registros -índices, e dispõem de dezesseis 
bits para acomodar um endereço de me- 
mória. A sintaxe desse tipo de coman- 
do — muito utilizado, aliás, quando tra- 
balhamos com tabelas — é ix + d ou 
iy + d. onde d é um valor entre 0 e 256 
que pode ser somado ao endereço apon- 
tado pelo registro-índice. 

Depois de colocar em A o código do 
caractere que deve ser impresso na tela. 



o programa chama a sub-rotina ase, que 
calcula a posição do padrão do caracte- 
re dentro de uma tabela de padrões exis- 
tente na ROM (veja o artigo da página 
381). O endereço inicial do padrão do 
caractere está em BC, quando o proces- 
sador retorna da sub-rotina. Recupera- 
se o valor de AF da pilha e uma nova 
sub-rotina — Iprint, que cuida da im- 
pressão propriamente dita — é chama- 
da. Quando o processador retorna de 
Iprint, HL contém a posição da tela on- 
de houve impressão — na realidade, a 
posição do byte superior do padrão do 
caractere. A instrução inc hl aumenta es- 
te valor em uma unidade. O índice IX 
também é aumentado, passando a apon- 
tar para a próxima letra da tabela 
ASCII. 

O par BC (B continha originalmente 
o comprimento do texto a ser impresso) 
é recuperado da pilha; enquanto seu 
conteúdo não for zero, a instrução djnz 
me diminui B em uma unidade e repete 
o processo de impressão. 

A rotina ase calcula a posição do pa- 
drão do caractere a ser impresso. Em 
primeiro lugar, ela coloca temporaria- 
mente na pilha, por push hl, a posição 
de impressão que está em HL, pois va- 
mos usar esse par de registros. Nele é co- 
locado o endereço inicial da tabela de 
padrões — 15608. O número 8 é, então, 
colocado em DE e o 31, em B. A ins- 
trução sub b subtrai 31 de A. A opera- 
ção é necessária porque a tabela de pa- 
drões começa com o caractere de códi- 
go 32 — espaço em branco. Os códigos 
com valores menores que 32 são coman- 
dos BASIC e não caracteres. 

Um caractere é formado por oito 
bytes, cada qual correspondendo ao pa- 
drão de uma das linhas que compõem 
a letra. Assim, cada oito bytes consecu- 
tivos na tabela de padrões correspondem 
a um caractere. O laço com o rótulo asb 
vai pulando de oito em oito bytes, até 
encontrar a posição do caractere que 
queremos imprimir. Para isso, utiliza A 
como contador. Em outras palavras, 
add hl.de soma 8 a HL e dec a subtrai 
um de A. A instrução Jr nz, ash repete 
o processo até que A se reduza a zero. 
O endereço do byte inicial do padrão de- 
sejado estará, então, em HL. Este va- 
lor é transferido para a pilha e, em se- 
guida, recuperado em BC. O valor ori- 
ginal de HL — posição na tela — tam- 
bém é recuperado da pilha e a sub-rotina 
termina. 

A sub-rotina Iprint cuida da impres- 
são do caractere. Ela começa guardan- 
do na pilha os pares AF, HL e BC. A 
continha o atributo do caractere, HL, 
a posição de impressão na tela, e BC, 
o endereço inicial do padrão do carac- 



tere. As linhas seguintes realizam uma 
série de testes com a posição de impres- 
são. Ao final deles, DE contém a posi- 
ção de impressão na tela. 

O programa continua no rótulo nexl. 
Ali, push de coloca a posição de impres- 
são na pilha e Id de, 16384 coloca em DE 
o endereço inicial da tela. O endereço da 
RAM em que vamos colocar o padrão 
do caractere é a soma da posição de im- 
pressão com o endereço inicial da tela 

— add hl.de. O resultado fica em HL. 
Recupera-se a posição de impressão em 
DE e o acumulador recebe o valor 8, BC 
recupera o endereço inicial do padrão e 
AF é colocado na pilha, onde A servirá 
de contador. 

O rótulo repl representa o laço que 
desenha a letra. A instrução Id a,(bc) co- 
loca em A o byte que contém uma linha 
do caractere e Id (hl), a transfere este 
mesmo valor para a tela. BC aponta pa- 
ra a tabela de padrões, enquanto HL 
aponta para a tela. A instrução inc h so- 
ma uma unidade ao registro H, o que 
equivale a somar 256 a HL. O valor re- 
sultante aponta para o byte imediata- 
mente inferior ao anterior, de maneira 
que o caractere é desenhado linha por 
linha. 

BC também tem seu conteúdo au- 
mentado em uma unidade por inc bc. O 
contador do laço é recuperado da pilha 

— pop af — e A é diminuído em uma 
unidade. Se A não for igual a zero, a ins- 
trução jr z.exit é ignorada, AF volta pa- 
ra a pilha e o processador retorna para 
desenhar mais uma linha do caractere. 

Como A continha inicialmente o va- 
lor 8, serão desenhadas exatamente oi- 
to linhas, uma abaixo da outra, comple- 
tando uma letra. Quando A contém ze- 
ro, jr z,exil desvia o programa para o 
rótulo exit. O atributo do caractere é, 
então, colocado na tabela de atributos. 
Esse parâmetro determina a cor do ca- 
ractere. Recupera-se a posição de im- 
pressão em HL e o atributo vai para A 

— pop hl e pop af. 

O conteúdo de DE volta para a pilha 
e este par recebe o endereço inicial da 
tabela de atributos — 22528. A instru- 
ção add hl.de calcula o endereço da 
RAM correspondente e o atributo é co- 
locado nele por ld (hl), a. A posição de 
impressão na tela, preservada ora em 
DE, ora na pilha, volta para HL e a sub- 
rotina termina. 

A sub-rotina cl limpa a tela, sendo 
chamada diversas vezes no decorrer do 
programa. Primeiro, o registro IX rece- 
be o endereço inicial da tela — 16384. 
HL, por sua vez, recebe o número de 
bytes da mesma — 6912 — , servindo co- 
mo contador. A instrução Id a,0 coloca 
0 em A. A instrução Id (ix + 0),a coloca 
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O na posição da tela apontada por IX, 
o que, efetivamente, limpa aquele byte. 
O registro IX, aumentado em uma uni- 
dade, passa a apontar para o próximo 
byte da tela. HL é diminuído em uma 
unidade e, enquanto não chegar ao va- 
lor zero, a instrução jr nz.clp retornará 
para apagar o próximo byte da tela. Na 
realidade, existem quatro linhas entre 
dec hl e jr nz.clp; contudo, elas só têm 
a função de prolongar o tempo, como 
o rótulo Idq da rotina anterior. 



A primeira coisa a programar é uma 
página anunciando o videogame. As li- 
nhas seguintes criam essa página, obten 
do os dados necessários em uma tabe 
la, que montaremos mais tarde. Por en 
quanto, carregue o Assembler de IN- 
PUT com as seguintes modificações, pa- 
ra que funcione de maneira satisfatória: 
na linha 5120, troque o número 6 por 
22; na linha 6110, adicione :GOSUB 
6150; na linha 6150, troque GOSUB 
6260 por GOSUB 6160. Modifique a li- 
nha 5000 com CLEAR 1500.&CFFF. 
para proteger o topo da memória. Di- 
gite, em seguida, este programa: 

10 oro -122B8 

20 rali 106 

30 ld de, 296 

40 ld hl ,-14000 

r i0 ld bc.9 

60 call 92 

70 ld de. 493 

80 ]d hl. -13991 

90 ld bc,15 

ino call 92 

110 ld de , $72 



160 ldp ld 1 

170 ld de.n 

IRO Ido. dec 

190 push hl 

200 abe hl,< 

210 pop hl 



Grave o programa- fonte e depois 
monte-o. O programa em código pode 
ser gravado depois disso. 



O programa liga a tela de texto de 
quarenta colunas por intermédio de uma 
rotina da ROM cujo endereço é 108, em 



decimal. Em seguida, reserva uma por- 
ção da memória para os códigos ASCII 
do texto a ser impresso. Ela começa no 
endereço -14000. 

Uma outra rotina da ROM, que fica 
no endereço 92, encarrega-se da trans- 
ferência de uma área da RAM para a 
VRAM. Para que o texto certo seja co- 
locado na posição desejada, certos pa- 
râmetros devem ser fornecidos. 

O par DE precisa conter a posição 
inicial da área da VRAM em que vamos 
colocar o texto. O par HL, por sua vez, 
contém o endereço inicial da área da 
RAM que será transferida. BC, final- 
mente, funciona como contador de 
bytes, determinando que comprimento 
terá o texto que vai ser impresso. 

Essa rotina da ROM é chamada três 
vezes, uma para cada linha que aparece 
na tela inicial. Antes de cada comando 
call, os valores adequados são coloca- 
dos nos pares DE, HL e BC. 



PROGRAMAÇÃO DE PAUSAS 



Para que o jogador possa ler o títu- 
lo, devemos incluir uma pausa no pro- 
grama. Colocamos 10 no registro B, de 
modo que o laço responsável pela pau- 
sa seja executado dez vezes. 

O número 65000 é colocado em HL, 
cujo conteúdo diminui em uma unida- 
de a cada volla do laço interno — rotu- 
lado com Idq. HL é guardado e recupe- 
rado da pilha só para ganharmos tempo. 

Pode parecer estranho subtrair zero 
— conteúdo de DE — de HL a cada vol- 
ta do laço. Mas traia-se apenas de um 



recurso utilizado para afetar o indica- 
dor de zeros, que não reage à instrução 
pop. O comando jr nz depende desse in- 
dicador para que o programa possa sair 
do laço. Quando HL for reduzido a ze- 
ro e sub hl, de subtrair zero dele, o re- 
sultado será igual a zero; ativado o in- 
dicador de zeros, o processador sairá do 
laço. 

Quando o programa estiver comple- 
to, ele prosseguirá imprimindo a pági- 
na destinada à exibição das instruções. 
Mas, por enquanto, a instrução rei pro- 
voca o retorno ao BASIC. 



As linhas seguintes geram a tabela 
ASCII necessária ao funcionamento do 
programa em código. 



FOB 1=0 TO 



6f) X-UfiHI (0) 
70 CLS 
80 END 



C (MTDS (AS . I* 



A linha 5 limpa a tela e protege o to- 
po da memória que comerá a tabela. 

A linha 10 coloca o texto utilizado na 
página inicial dentro da variável AS. É, 
sem dúvida, bem melhor digitar uma ta- 
bela na forma de um texto do que digi- 
tar os números de todos os códigos AS- 
CII correspondentes. 
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Em seguida, um laço FOR... N EXT 
coloca os códigos ASCII na memória, 
criando a tabela ASCII. 

O próprio programa testa, então, a 
rotina em código — se ela estiver gra- 
vada na memória. 

O jogo não vai precisai desse progra- 
ma BASIC depois que a tabela tiver si- 
do gravada. Guarde-o, porém, para aju- 
dar na montagem. 



A primeira coisa que se programa em 
qualquer jogo é uma tela exibindo o tí- 
tulo. Embora a rotina de impressão es- 
teja em código, será mais fácil colocar 
os códigos ASCII das letras na memó- 
ria usando um programa BASIC: 

1 CLEAR 200,16999 
10 AD-17000 
30 READ AS 

40 POR A-l TO LEN (AS) : B-A.SC (MID 
S(AS.A.l)) 

50 1F B-CIH61 THEN POKE AD.B ELS 
E POKE AD.B-96 
I 60 AD-AD+1 



70 NEXT A 

80 DATA "avalanchecriacao: a. do 
e progcaia: b. kellauay e g. ha 
dley" 

Quando ele é executado, a tabela ne- 
cessária ao jogo é criada na memória do 
microcomputador. Para gravar a tabe- 
la, utilize CSAVEM "DADOS", 17000, 
17059, 19000. 

Se quiser usar o Assembler de IN- 
PUT, precisará ampliar a memória dis- 
ponível; se não o fizer, o espaço será in- 
suficiente para o Assembler e o progra- 
ma em código. Digite, então: 

POKE 25,6 
POKE 26,1 

NEW 

Depois, digite CLEAR 200,18999 pa- 
ra proteger o topo da memória e, em se- 
guida, o programa: 
10 OBG 19000 

20 JSR CTS 

30 LDX 41066 

40 LDY 117000 

50 LDB «9 



JSR LPRINT 
LDX #1384 
LDB tl5 
JSR LPRINT 

LDX «1445 

LDB |21 

JSR LPRINT 

LDX (1481 

LDB 112 

JSR LPRINT 

LDA 15 

PAUSE LDX 165535 
PAUSEI LEAX -1 ,X 
BNE PAUSEI 
DECA 

BNE PAUSE 
JSR CLS 
RTS 

LPRINT EQU 19174 
CLS EQU 19148 



Os mnemónicos podem ser gravados 
por meio da opção correspondente do 
Assembler. Monte o programa e grave- 
o em código — se não souber fazer is- 
to, utilize o monitor Assembler. 

Além desse programa e da tabela, as 
outras rotinas aqui apresentadas serão 
necessárias para que você veja o resul- 
tado por meio de EXEC 19000. 



O programa em BASIC começa re- 
servando uma boa quantidade de me- 
mória para armazenar o programa em 
código. Em seguida, as letras utilizadas 
na primeira tela são colocadas na me- 
mória, representadas por seus códigos 
ASCII. Em geral, é preciso subtrair 96 
de cada código para que eles correspon- 
dam aos códigos de letras invertidas. Al- 
gumas letras, porém — códigos meno- 
res que 61 , em hexadecimal — , não pre- 
cisam dessa operação. 



A rotina em código começa em 
19000, depois da tabela ASCII, e salta 
para a sub-rotina CLS, que começa em 
19148. Na primeira rotina, o endereço 
desse rótulo é definido por uma instru- 
ção EQU, para que os desvios sejam cal- 
culados. Eis a sub-rotina: 

10 ORG 19148 

20 CLS LDX 11024 

30 LDA (128 

40 CLSI STA ,X+ 

50 CMPX »1536 

60 BLO CLSI 

70 RTS 

O endereço inicial da tela — 1024 — 
é colocado no registro X e o código do 
espaço em branco — 128 — , em A. 
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STA.X + coloca esse código na posição 
apontada por X; o conteúdo de X au- 
menta em ama unidade. A rotina é re- 
petida várias vezes até que X seja maior 
que 1536, endereço final da tela. 

Como o conteúdo de X aumenta an- 
tes da colocação de 128 em um endere- 
ço da tela, um comando BLO — desvio 
se for "menor que" — é usado para sair 
do laço CLSI. Essa rotina deve ser gra- 
vada separadamente. 



Quando o microprocessador retorna 
da sub-rotina CLS, a rotina principal 
prepara os registros para que se faça a 
impressão na tela. 

O registro X contém a posição que 
desejamos para o primeiro caractere da 
linha a ser impressa. O "A" de Avalan- 
che será impresso, então, em 1066. 

O registro Y contém a posição de me- 
mória da tabela ASCII da primeira le- 
tra a ser impressa. Assim, 1 7000 é colo- 
cado em Y. O registro B contém o nú 
mero de caracteres a ser impresso. Co 
mo vamos começar escrevendo "AVA 
LANCHE", 9 é colocado em B. Em se 
guida, ocorre um salto para a sub-rotina 
LPRI.NT. Mais uma vez uma instrução 
EQU define o endereço 19174 para efei- 
to de cálculos de desvios. 



Esta rotina começa em 19174. Sua 
função consiste em obter os dados da ta- 
bela ASCII, colocando os códigos na te- 
la, um de cada vez. 

10 ORG 19174 

20 LPRINT LDA , Y+ 

30 STA ,X+ 

40 DECB 

50 BNE LPRINT 

60 RTS 

Os códigos da tabela apontados por 
Y são colocados em A e o apontador 
volta-se para a próxima posição. O co- 
mando STA.X+ coloca-os, então, na 
posição de tela apontada por X, e X au- 
menta em uma unidade, apontando pa- 
ra a posição seguinte. 

A instrução DECB subtrai uma uni- 
dade do conteúdo de B e a rotina é re- 
petida até que B chegue a zero. Quan- 
do isso ocorre, o microprocessador re- 
torna à rotina principal. Guarde esta ro- 
tina separadamente. 

A rotina prossegue até completar a 
página de rosto de nosso videogame, im- 
primindo linha por linha. 

Para escrever uma nova linha, a po- 



sição de impressão é colocada em X e 
o comprimento do texto, em B. 

Não há necessidade de colocarmos 
um novo valor em Y, já que esse apon- 
tador simplesmente percorre a tabela 
ASCII B caracteres de cada vez. 



Quando a última linha da página ini- 
cial tiver sido impressa, o microproces- 
sador fará uma pausa no programa, pa- 
ra que possamos lê-la, antes de ser subs- 
tituída pela tela de instruções. 

O número 5 é colocado no acumula- 
dor e o regislro X recebe o valor 65535. 
LEAX -1,X subtrai uma unidade de X 
e BNE PAUSEI retorna, de modo que 
vai diminuindo até ser reduzido a zero; 
A também é diminuído. O processo se 



repete até qué A também seja iguaJ a ze- 
ro e o comando BNE permita que o pro- 
cessador deixe o laço. 



O laço externo PAUSE — baseado 
no acumulador — repete-se, assim, cin- 
co vezes; a cada repetição, o laço inter- 
no PAUSEI é executado 65535 vezes. O 
uso de dois laços tem a vantagem de 
possibilitar o acerto do tempo. O laço 
externo nos dá um ajuste grosseiro e o 
laço interno, um ajuste mais fino. 

Por fim, a rotina CLS limpa a tela 
novamente. Em seguida, o computador 
passa à página de instruções, que apre- 
sentaremos no próximo artigo desta sé- 
rie. Por hora, uma instrução RTS retor- 
na ao BASIC. 
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Embora suas regras sejam bastante 
simples, o jogo do Otelo requer muita 
estratégia. Programá-lo é fácil: 
monte o tabuleiro, crie as peças 
e desafie sua máquina! 



Otelo é um jogo de estratégia que se 
desenvolve num tabuleiro de oito por oi- 
to posições — como os tabuleiros de xa- 
drez ou dama. As regras são bem fáceis 
e o jogo também. 

O objetivo é tomar o maior número 
possível de peças do oponente. A joga- 
da consiste basicamente na colocação 
das peças no tabuleiro, uma a uma, por 
um jogador de cada vez, até preenchê- 
lo totalmente. Cada jogador começa 
com duas peças e tenta tomar as do opo- 
nente, "cercando-as". Para consegui-lo, 
deve colocar as peças de maneira que as 
do oponente fiquem entre as suas — ou 
seja, que se forme uma trilha de peças 
adversárias com peças suas nas duas ex 
tremidades. Ao tomar uma trilha adver- 
sária, esteja ela na horizontal, vertical 
ou diagonal, todas as peças do oponen 
te serão substituídas por peças do joga- 
dor em questão. 

O placar de cada jogador correspon 
de ao número de peças que ele tem nt 
tabuleiro naquele momento. Será ven 
cedor aquele que tiver o maior número 
de peças no tabuleiro quando ele estivei 
totalmente cheio. 

Nesta versão para computador, esta- 
remos jogando contra a máquina que, 
além de mostrar o tabuleiro, também 
atualiza o placar. 



Para quem nunca jogou Otelo, as di- 
cas que se seguem serão muito úteis. 

As posições dos cantos são extrema- 
mente importantes, já que, uma vez con- 
quistadas, jamais serão roubadas. Em 
consequência, a ocupação de tais posi- 
ções é fundamental para garantir a vi- 
tória — mesmo que implique o sacrifí- 
cio de algumas de nossas peças ou im- 
peça jiinVoutro movimento que pudesse 
nos render mais peças do oponente. 

Se considerarmos que uma peça po- 
de completar mais de uma linha — na 
vertical, na horizontal e na diagonal — , 
concluiremos que o movimento aparen- 
temente mais óbvio nem sempre é o me- 
lhor, pois, nos estágios mais avançados 
do jogo, será possível tomar duas ou três 
Unhas de peças do oponente com a sim- 
| pies adição de uma peça. 



Pense sempre adiante. Podemos in- 
duzir o adversário a criar situações que 
nos ajudem a tomar posições vitais, sim- 
plesmente simulando ou fingindo que fi- 
zemos uma má jogada. 



Uma das grandes vantagens da ver- 
são de Otelo para computador sobre o 
verdadeiro tabuleiro é que nela o com- 
putador fica com todo o "trabalho pe- 
sado". Além de desempenhar o papel de 
adversário, ele substitui as peças con- 
quistadas e cuida do placar, deixando- 
nos livres para pensar só nas jogadas. 

O computador demora um pouco pa- 
ra fazer suas jogadas, pois leva em con- 
ta todos os movimentos possíveis. No 
decorrer do jogo, à medida que o nú- 
mero de posições vazias diminui, passa 
a tomar decisões com maior rapidez. 



Ao rodar o programa, o computador 
perguntará se você deseja fazer a primei- 
ra jogada ou não. Para executar uma jo- 
gada, é necessário fornecer-lhe duas 
coordenadas. Estas especificam a posi- 
ção da peça no tabuleiro e estão com- 
preendidas entre os valores 1 e 8. For- 
necemos primeiramente a coordenada 
da linha — ou seja, do eixo Y, com ori- 
gem no topo da tela — e, depois, a coor- 
denada da coluna — eixo X, com ori 
gem no lado esquerdo do tabuleiro. St 
fornecermos 0 (zero) para as coordena 
das, o jogo será encerrado; se fornecer- 
mos 9, transferiremos o direito de jogar 
para o computador. 



Digite agora a primeira parte do jo- 
go do Otelo. Se você rodar o programa 
como está, verá o tabuleiro na tela, mas 
ainda não poderá jogar. 

Salve as tinhas digitadas em disco ou 
em fita cassete para mais tarde incorpo- 
rá-las à segunda parte do programa, que 
será apresentada num próximo artigo, 
completando o jogo. 



10 BORDER 0: PAPEB 7- IKK li 

CLS 

15 PR1NT AT l.íli 1NVEBSE tl" 
OTHELt.0" 

20 PB TNT AT 1Q.2;"V0CE QUEH C 

OHECAH ? (S OU N) " ! TNPUT XS 
| IF XS="" THEN ROTO 20 

30 L. ET XS = XSO): J F XSO"S" 

AND XS<>"N" AND XSO"s" AND X 

SO"n" THEN GOTO 20 

•10 LET CP-1: IF X5="N" OB XS- 

"n" THEN LET CP = 2 
100 DIM B(S,8): DIM C(8): DTM 
DCH.Z): DTM X (60): DJMYÍfiO): 
UtM N(60) 

LIO LET BC4.41-1: LET B<4.5>=2 
: l.ET B(S,4)=2: LET B{5,5)-1 
120 FOR P"l TO ff: BEAD A: LET 
IXF.D-A: READ A: LET D(F,2)-A 
■ NEXT t 

13(1 DATA -1.-1,0. -1,1. -1,-1,0, 
1,0. -1,1, 0,Í,1,1 
140 FOB F = () TO 7: BEAD A.B.C: 
IK)KE UíiR "A"+F,A: POKE USR "8" 
■*F,B: POKE USB "C+F.Cl NEXT F 
150 DATA 204,0.0.51.60.60.204. 
1 26.66, 5.1 ,1 26. 66. 204 . 126. 66. 51 
60 , 5 ] , 0 , 0 



1 26. 66. 204 , 60 



10 HOME : VTAB (3): HTAB (15) 
15 INVERSE : PR1NT "OTELO 

" : NORMAL 
20 VTAB (10): PRINT "QUER JOGA 
R PRIMEIRO (S/N) * J : JNPUT XS ! 
IF XS - "" THEN 20 
30 XS = LEFTS (XS.D:CP - 1; I 
F XS - "N" THEN CP - 2 
40 IF XS < > "S" AND XS < > 
"N" THEN GOTO 20 
100 DIM B(8.8) ,C(8) ,D(8,2) ,X(6 
0) ,Y(60) ,N<60) 

110 B(4.4} - 1:B(4,S) = 2:B{5.4 
) - 2:B(5,5) - 1 

120 FOB F = 1 TO 8: READ A : D (F 
,1) - A ! READ A : D (F . 2) ■ A: NEX 



1 30 DATA 



-1.-1.0.-1,1,-1. 



5 COLOR 1,15.15:SCREEN2 

10 FOR X=l TO 16 : READ A :NEXTX :G 

OSUB 9200:BESTORE 
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■ AS REGRAS DO JOGO £ AS PE ÇAS 

■ DICAS PARA VENCER ■ INICIAL1ZA CÃ0 DO JOGO 

■ A PRIMEIRA TELA ■ DIGITANDO A ROTINA 

■ SELECÃO DOS GRÁFICOS PRINCIPAL 

" PARA O TABULEIRO ■ A VEZ DO JOGADOR 



15 DRAU"BM60.40;S25:C1":AS=" 
LO" : GOSUB 9300 

20 DRAWBM26, 120;S10;C2" :AS-"QU 
EH JOGAR PRIMEIRO" : GOSUB 9300:D 
RAWBM90 , ] 40" : AS-"S OU N":GOSUB 

9300 

21 XS = INKEYS ! IFXS- " "THEN 21 
25 C0LOR15,4,4 

30 IFXSO"S"ANDXS<>"3"ANDXSO"N 

"ANDXSO" n"THEN 21 

40 CP-l:IFXS-"N' , OP,XS-"n"THEN CP 

-2 

100 DIM B (8. 8) , C (8) .DIB. 2) , X (60 
) .Y<60) ,N(60) 

110 BI4.41-1 :B(4. 5 ) =2 : B (5 . 4) =2: 
B(5,5)-l 

120 FOR F=-l TO 8 : READ A:D(F,1)- 

A : READ A : D ( F . 2 ) -K : NEXTF 

130 DATA -1.-1.0.-1.1,-1.-1,0.1 

.0.-1.1.0,1,1.1 

150 GOSUB 1100 



□ 



gunta, destinada a definir quem jogará 
primeiro. A resposta, armazenada em 
X$, é depois reduzida à sua primeira le- 
tra, na linha 30. CP corresponde ao jo 
gador em questão e recebe o valor 1 
quando quem joga é você e 2 quando < 
o computador. A linha 40 faz a verifi 
cação por S e N. 

As linhas 100 a 1 30 inicializam as va 
riáveis e matrizes usadas no jogo. A li 
nha 100 cuida das matrizes. B(x,y) re 
presenta o tabuleiro; os valores arma- 
zenados em cada elemento representam 
o status do quadrado correspondente no 
tabuleiro. Se o valor for 0, o quadrado 
está vazio; se for 1 , uma peça pertencen- 
te ao jogador ocupa aquela posição; e 
se for 2, a posição está ocupada por uma 
peça do computador. C(x) é usado pa- 
ra verificar as jogadas do jogador. 



10 PMODE l,l:COLOR 4 , 1 : PCLS : SCR 
EEN 1,0:F0R X=l TO 16 : READ A: NE 
XTX:GOSUB 9200 : FiESTORE 
15 DRAW"BM60,40;S16":AS-"OTHE[.L 
0" :GOSUB 9300 

20 DRAW"BM26 , 120 ; SB ; C2" : AS"" Q 
UER JOGAR PRIMEIRO" : GOSUB 9300: 
DRAW"BM100.140":AS-"S OU N":GOS 
UB 9300 

21 XS-INKEYS:IF XS-*" THEN 21 
30 IF XSO"S" AND X3<>"N" THEN 

21 

40 CP-1:IF XS-"N" THEN CP-2 

100 DIM B(8,8) ,C(8) ,D{8, 2) .X(60 

) ,Y(60) ,N(60) 

110 B(4,4)-l:B(4.5)-2:B(5.4}-2: 
B(5.S)-1 

120 FOR F-l TO 8 : READ A:D(F.l)- 

ArREAD A:D(F.2)-A:NEXT F 

130 DATA -1,-1,0,-1,1,-1,-1.0,1 

,0,-1,1.0,1,1,1 

150 GOSUB 1100 



As linhas 10 a 40 geram a primeira 
tela que o jogador vé, ou seja, o título 
do jogo e a pergunta que o inicia. A li- 
nha 10 (linha 5, no MSX) se encarrega 
do ajustamento das cores e da limpeza 
da tela. O nome do jogo é gerado na li-, 
nha 15. Como nos programas para os. 
micros TRS-Color e MSX usou-se a te- 
la de alta resolução, existe uma rotina 
que desenha letras no final do progra- 
ma (a qual já utilizamos anteriormente 
em 1NPUT). 

A linha 20 apresenta a primeira per- 



D(x,y) contém os deslocamentos X e Y 
nas oito direçòes possíveis da jogada. 
X(x), Y(x) e N(x> são usadas nos cálcu- 
los para a jogada do computador. 

A linha 1 1 0 especifica as posições ini- 
ciais no tabuleiro. Cada jogador tem 
duas peças posicionadas em seu centro, 
no começo da disputa. As direçòes pos- 
síveis, partindo dessa posição, são defi- 
nidas pela linha DATA 130- Cada va- 
lor representa um deslocamento X ou Y, 
com os números negativos indicando es- 
querda ou topo do tabuleiro, respecti- 
vamente. 

Na versão para os microcomputado- 
res Spectrum, as linhas 140 e 150 geram 
UDG para o quadrado vazio e para as 
peças. A linha 140 procede à leitura dos 
dados apresentados pela linha 1 50 e cria 
os UDG A, B e C. 
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5D0 GOSIJB 1000 
505 IF CS+PS-64 THEN GOTO 
4000 

610 LET EG-0: TF CP-1 THEN 
GOSUB 2000: «OSUB 1.000: IF EG- 
1 THEN GOTO 4000 
515 IF CS+PS-64 THEN GOTO 
4000 

520 IF CP=2 THEN GOSUB 3000 
530 GOTO 500 



520, caso CP seja igual a 2 (sub-rotina 
3000). 



DESENHANDO 0 TABULEIRO 



CLS : PBINT TAB 11;"123456 
LET PS = 0: LET CS-0 
FOR F-l TO B: PBINT TAB 9; 
■ ; ! FOR G-J TO 8 
IF B(F.G)=0 THEN PRI.NT CH 



500 GOSUB 1000 

505 IF CS + PS ^ 64 THEN 4000 
510 EG = 0: IF CP = 1 THEN GOS 
UB 2000: GOSUB 1000: IF EG = 1 
THEN 4000 

515 IF CS + PS = 64 THEN 4000 
520 IF CP - 2 THEN GOSUB 3000 
530 GOTO 500 



NK 2 
1040 
NK 2 
1050 
105 2 
HEN 
1054 
HEN 
1060 
AB 20 
PS ; " 
1070 



500 GOSUB 1000 
505 IF CS+PS-64 THEN 4000 
510 EODrXF CP^l THEN 80 SOB 2 
0 : GOSUB 1000 : LINE [112 . 150) - ( 1 
,1801 ,1,BF:IF EG-1 THEN 4000 
515 TF CS + PS = f.4 THEN 4000 
520 IF CP-2 THEN GOSUB 3000 
530 GOTO 500 



500 GOSUB 1000 

505 IF CS+PS-64 THEN 4000 

510 EG-0:IF CP-1 THEN GOSUB 200 

OtGOSUB 1000:COLOR 1:LINE(118.1 

50)- (150. 180) , PSET. BF . IF EG-1 T 

HEN 4000 

515 IF CS+PS-64 THEN 4000 
520 IF CP-2 THEN GOSUB 3000 
530 GOTO 500 

O laço principal do programa está en- 
tre as linhas 500 e 530. A linha 500 cha- 
ma a sub-rotina que desenha o tabulei- 
ro. As linhas 505 e 515 verificam se o 
tabuleiro está cheio, ou seja, se a soma 
dos pontos do jogador, PS, com os do 
computador, CS, resulta em 64 (núme- 
ro de posições do tabuleiro). | « < 

A linha 510 ajusta o indicador dé fi- 
nal de jogo (EG) para 0 e chama a roti- 
na responsável pela vez do jogador, se- 
guida pela sub-rotina do tabuleiro. Se 
depois da execução dessas sub-rotinas o 
indicador EG for setado (valor 1), o pro- 
grama saltará para a sub-rotina de final 
de jogo, que começa na linha 4000. A 
f jogada do computador é feita pela linha 



F B(F.G)=1 THEN PRINT 
HRS 145; : LET PS-PS+l 
F B(F,G)-2 THEN PRINT 
HRS 146; ! LET CS-CS+l 



F : LINE (220 .110)-(228,118) .l.BF 

1065 LINE(5,60)-(42,80) ,1 .BF:LI 
NE (205,60) -(24 2.80) . J . BF 

1066 DRAW BM 12 ,62 ;S16:C15* : AS=K 
IDS (STR5 (PS) , 2) : GOSUB9300 : DRAW" 
BM212.62" :AS-MTDS (STRS(CS) ,2) :G 
OSUB9300 : DRAWS8" 

10 70 RETURN 

1100 CLS ; FOP. X = OTO 7 : DRAW" BM" +STR 
S(X"16+70)+",0;S8-+NUS(X+l) : NEX 
TX 

1110 LINE(64,12)-(192,140) .2.BF 

1120 FORX-0TOB: LINE (X* 16+64. 12) 

-(X*16+64,140) ,1:NEXT 

1130 FORY=0T08 : LINE (64 , Y* 16+1 2) 

-(192.Y-16+12) . 1:NEXT 

1140 FORY-0TO7 : DRAW"C) 5SBBM54 , * 

+STRS(Y*16+14)+NUS(Y+1) : NEXT 

1150 RETURN 



NEXT C: PRINT 
LET PS="PONTOS 
LET PS="PONTO" 
LET QS = "t J ONTOS 
LET QS="PONTO" 
PR TNT 1 ' INK 2 
COMPUTADOR-" 
PSíTAB 20;CS 
RETURN 



1000 HOME 
23456/8" : PS 
1010 FOR F 
B( 16) ;F 



PRINT TAB ( 18) ; " 1 
■ 0:CS ■ 0: PRINT 
- 1 TO 8: PRINT TA 
; : FOB G - l TO 8 
TF B(F,G) < > 1 AND B(F. 
G) < > 2 THEN B(F,G) = 0 
1020 IF B(F,G) - 0 THEN PR LNT 

1030 IE B(F,G) - 1 THEN PRINT 

CHBS (48) ; : PS - PS + 1 
1040 IF B(F.G) = 2 THEN INVER 



SE 



PRINT 



; : NORMAL 



1 



PRINT : NEXT F 
PONTOS" : TF PS = 
1 PONTO" 

PONTOS " : TF CS = 
1 PONTO" 

PRINT "JOGADOR : 
: "COMPUTADOR - " ; 
TNVEHSE ! PRINT " ": NORMAL : 
RI NT PS;P).S: TAB ( 25);CS;P2$ 
10 70 RETURN 



1050 NEXT G : 
1052 PIS - " 
THEN PIS - ' 
1054 P2S ■ " 

THEN P2S - 
1060 PRINT 
TAB ( 



1000 PS=0:CS-0 

1010 FOR F=1T08:FOR G-1T0B 

1030 IF B(F,G)-1 THEN LINE ( (G- 

) «16+64, (F-l) «16+1 2)- (GM6+64.! 

■16+12) . 15, BF : PS-PS+1 

1040 TF B{F,G)-2 THEN LINE ( (G- 

)* 16+64. (F-l)*16+12)-(G*16+64.: 

* 16+1 2) , 1 , BF : CS-CS+l 

1050 NEXTG.F 

1060 DRAW"BM10,90;C1" :AS="VOCE 
:G0SUB9 300 : DRAW"BM200 . 90" :AS="' 
OMPUT" :GOSUB9300 

1063 LINE(20,110)-(28.11B) .15,1 



1000 PS-0:CS-0 

1010 FOR F-l TO 8:FOR G-l TO 8 

1030 IF B(F,G)=1 THEN PAI NT (G*l 

6+54, F*16) ,1,3: PS-PS+1 

1040 IF B(F,G)-2 THEN PAINT(G"1 

6+54. F"l 6) ,4, 3 : CS-CS+l 

1050 NEXT G.F 

1060 DRAWBM0,15O:C2":AS = " VOCE 
":GOSUB 9300:DRAW"BM186.150": 
A3-"COMPUT" :GOSUB '9300 

1063 LINE(62. 150)-(/0. 158) .PSET 
,B:LINE (246. 150) -(256,158) . PSET 
,B 

1064 PAINT(248. 152) ,4,2 

1065 COLOR l:LINE(O.6O)-(32.80) 
, PSET, BF: LINE (216, 60)- (248.80), 
PSET, BF 

1066 DRAW"BM0.60;S16;C4':AS-MID 
S(STRS(PS) ,2) :G0SUB 9300:DRAW"B 
M216.60" :AS-MIDS(STRS(CS) , 2) :GO 
SUB 9300:DRAM"S8" 

1070 RETURN 

1100 PCLS1 :COLOR2 : FORX-0 TO 7;D 
RAW"BM"+STRS (X"16+70) +" , 0 ;S8"+N 
U$(X+1) : NEXT X 

1110 LINE (64,12) - (192. 140) , PSET 
, BF : COLOR 3 

1120 FOR X-0 TO 8:LINE(X*16+64, 
12) - (X*16+64 . 140) . PSET : NEXT 
1130 FOR Y-0 TO 8 : LINE (64 , Y*16+ 
12)- (192.Y-16+12) , PSET : NEXT 
1140 FOR Y-0 TO 7 : DRAWC2S8BM54 
,"+STRS(Y*16+14)+NUS(Y+l) : NEXT 
1150 RETURN 

A sub-rotina que tem início na linha 
1000 desenha o tabuleiro. Primeiro, lim- 
pa a tela, imprime (ou desenha, no ca- 
so dos microcomputadores das linhas 
MSX e TRS-Color) os números das co- 
lunas e zera os dois placares. 

O laço FOR.. .NEXT que fica enire 
as linhas 1010 e 1050 do programa de- 
senha o tabuleiro na tela, linha por li- 
nha. À medida que as peças são mos- 
tradas, incrementa-se o placar. 

As linhas 1052 e 1054 melhoram a 
"gramática" do placar, definindo se a 
palavra PONTO será usada no singular 
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ou no plural. A linha 1060, por sua vez, 
mostra o placar para o jogador. 

No micro TRS-Color e no MSX, as 
linhas 1100 a 1 150 constituem coman- 
dos extras de alta resolução para o de- 
senho do tabuleiro. 



2005 IF X-0 THEN [.ET EG-l : BET 
URN 

2006 IF X-9 THEN LET CP-2 : BET 
URN 

2010 IF X<1 OB X>B OB Kl OH Y> 

8 THEN GOTO 2000 

2020 IF B<X,Y)-0 THEN GOTO 207 

0 

2040 PHINT AT 17.0;" VOCE NAO P 
ODE TB PAHA UMA CASA OCUPADA!" 
! FOR F-l TO 500: NEXT F 
2050 PHINT AT 17,0;" 

: GOTO 2000 

2070 LET NF=0: FOH F=] TO 8: LE 
T CF=0: TF X+D(F,1)=0 OR X+D(F, 
1 ) = 9 THEN GOTO 2075 

2071 IF Y+D(F.2)-0 OH Y+D{F.2)= 

9 THEN GOTO 2075 

2072 IF B CX+D [F , 1 ) , Y+D {F , 2) ) =2 
THEN LET CF-1 : LET NF-1 

2075 LET C(F)=0: TF CF-J THEN 
LET C(F)=F 
71)80 NEXT F 
2090 STOP 



HEI 



2000 VTAB (15) : INPUT "QUAL i 

SUA JOGADA {LINHA, COLUNA) ? "; 
X.Y 

2005 IF X - 0 THEN EG-l: BET 
URN 

2006 IF X - 9 THEN CP-2: RET 
URN 

2010 IF (X < 1 OB X > 8) OB tY 
< 1 OR Y > 8) THEN 2000 
2020 IF BÍX.Y) = 0 THEN 2070 
2040 VTAB (17): PRINT "ESTE LU 
(".AR JA - ESTA ' OCUPADO": FOR F - 

0 TO L500 : NEXT 
2050 VTAB (17) : PRINT " 

" : GOTO 20 

00 

2070 NF = 0: FOR F = 1 TO 8 : CF 
- 0: IF X + D(F,1) - 9 OR X + D 
(F,l) - 0 THEN 2075 

2071 IF Y + D(F,2) - 9 OR Y + 
D(F,2) -i 0 THEN 2075 

2072 IF B(X + DÍF.D.Y + D(F,2 
) ) - 2 THEN CF - 1:NF - I 

2075 C(F) = 0: IF CF = ] THEN C 
IF) - F 



2000 LINE(0.1B2)-(255,191) ,1,BF' 
: LINE (112. 150) -{144. 180) ,1,BF:D 
RAU"CI5;BM10, 182" :AS-"SUA JOGAD 
A LINHA E COLUNA" :GOSUB9300 

2001 IS'INKEYS:IFIS<"0" OR IS>" 
9"THEN2001 

2002 X-VAL(IS) :DRAW"BM114, 154 ;S 
16;C15"+NUS(X) 

2003 I$=INKEYS:TFIS<"0" OR I$>" 
9"THEN2003 

2004 Y=VAL(IS) :DBAWNU3(Y)+"S8" 

2005 TFX=0 THEN EG= 1 : RETURN 

2006 IFX=9 THEN CP=2:RETURN 
2010 TFX<1 OR X>8 OR Y<1 OR Y>8 

THEN 2000 
2020 IF B(X,Y)=0 THEN 2070 
2040 LINE (0. 182) - (255 , 191 ),] ,BF 
:DRAW"S8C1 5BM50 ,182" : AS -"QUADRA 
DO OCUPADO" :GOSU89300 . FORF-1T09 
00 : NEXTF 
2050 GOTO 2000 

2070 NF = 0 : FORF= 1T08 :CF-0:TFX + D( 
F,1)=0 OR X+D(F,1)=9 THEN 2075 

2071 IFY+D(F,2)=0 OR Y+D(F,2)=9 
THEN 2075 

2072 IF B(X+D(F,l) ,Y+D(F,2))-2 
THEN CF=] :NF=1 

2075 C(F)"0:IFCF-1 THEN C(F)-F 

2080 NEXTF 



2000 COLOR 1:LINE(0,182)-(255,1 
91) , PSET. BF : LINE (118, 150) - (150, 
180) , PSET, BF :DRAW"C3 ; BM0 , 1B2" : A 
S-"PARA ONDE LINHA E COLUNA" 
:GOSUB 9300:SOUND 100,1 

2001 IS-INKEYS:IF IS<"0" OR I3> 
"9" THEN 2001 

2002 X-VAL(IS) :DRAW"BM118.150;S 
16 : C4"+NUS (X) 

2003 IS-INKEYS:IF IS<"0* OR IS> 
"9" THEN 2003 

2004 Y=VAL ( IS) : DRAW NUS(Y>+"S8" 

2005 IF X-0 THEN EG"1 : RETURN 

2006 IF X=9 THEN CP-2:RETUBN 
2010 IF X<1 OR X>B OH Y<1 OH Y> 
8 THEN 2000 

2020 IF B(X,Y)-0 THEN 2070 
2040 COLOR 1:LINE (0 , 1B2) - (255 , 
191) , PSET, BF : DRAW* S8C4BM0 , 182" : 
A3-"V0CE NAO PODE IH PARA AI":G 
OSUB 9300:FOR F=l TO 900:NEXT F 
2050 GOTO 2000 

2070 NF=0:FOR F-l TO B:CF-0:IF 
X*D(F.l)-0 OR X+D(F,l)-9 THEN 2 
075 













"C 
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2071 IF Y+D(F.2)-0 OR 5f*D(F,2)- 
9 TH EN 2075 

2072 IF B(X+D(F,1) T Y*DÍF.2) )-2 
THEN CF-1:NF-1 

2075 C(F)-0:IF CF-1 THEN C{F)-F 
2080 N EXT F 

Sua jogada está enire as linhas 2000 
e 2270, mas, por enquanto, o programa 
vai somente até a linha 2090 (2080, no 
MSX e no TRS-Color). 

O programa obtém as coordenadas X 
e Y do jogador na linha 2000. A linha 
2005 verifica se X é zero; se for, o indi- 
cador de fim de jogo é setado. 

A linha 2010 verifica se houve um 
eventual erro de entrada das coordena- 
das do jogador; se houve, volta para a 
iinha 2000. O programa checa, então, 
o quadrado escolhido, para se certificar 
de que está vazio, e salta para a linha 
2070. Caso o quadrado já esteja ocupa- 
do por outra peça, a linha 2040 impri- 
me uma mensagem de erro. 

As linhas finais desta parte do pro- 
grama (2070 a 2075) verificam se a peça 
em questão está ou não próxima de uma 
das peças do computador. 



ROTINA PARA DESENHAR LETRAS 



Para que possamos escrever na tela 
de alta resolução do MSX e do TRS- 
Color, precisaremos acrescentar esta ro- 
tina. Ela é bem semelhante à que foi des- 
crita no artigo da página 232. 



El 



9100 DATA BR4 , ND4R 3D2NL 3ND2BE 2 , 
ND4R3DGNL2FDNL JcíU4BR2 , NR3D4R3BU 
4BR2 , ND4R2FD2GL2BE4BR , NR3D2NR2D 
2R3BU4BR2 

9110 DATA NR3D2NR2D2BE4BR , NR3D4 

R3U2LBE2BR , D4BR3U2NL3U2BR2 , ND4B 

R2 , BD4REU3L2R3BR2 , D2ND2NF2E2BR2 

9120 DATA D4H3BU4BR2 , ND4FREND4B 

R2 , ND4F3DU4BR2 , NR3D4R3U4BR2 , ND4 

R3D2NL3BE2.NR.3D4R3NHU4BR2 

9130 DATA ND4R3D2L2F2BU4BR2 , BD4 

B 3U2L3U2R3BR2 . RND4RBR2 , D4R2U4BR 

2 , D3FEU3BR2 , D4EFU4BR2 

9140 DATA DF2DBL2UE2UBR2 . DFND2E 

UBR2 i R3G3DR3BU4BR2 

9150 DATA NR2D4R2U4BR2 , BDEND4BR" 

2 , R2D2L2D2R2BU4BR2 , NR2BD2NR2BD2 



R2U4BR2 . D2R2D2U4BR2 . NR2D2R2D2L2 
BE4 .D4R2U2L2BE2BR2 . R2ND4BR2 . NR2 
D4R2U2NL2U2BR2 , NR2D2R2D2U4BR2 
9200 DIM LE$(26) 

9210 FOR K-0 TO 26 : READ LES (K) : 
NEXT 

9220 FOR K-0 TO 9 : READ NUS(K):N 
EXT 

9230 RETURN 

9300 FOR K-l TO LEN(AS) 

9310 BS-MID3(A3.K.l) 

9320 IF B3>-"0" AND BS<-"9" THE 

N DRAW NUS {VAL (BS) ) .'GOTO 9350 

9330 IF B3-" " THEN N-0 ELSE N- 

ASC<B3)-64 

9340 DRAU LES (N) 

9350 NEXT 

9360 RETURN 




9100 DATA BR4.ND4R3D2NL3ND2BE2. 
ND4R3DGNL2FDNL 1BU4BR2 .NR1D4R3BU 
4 BR 2 , ND4R 2FD2G1.2BE4BR. NR3D2NR2D 
2R.1BU4BR2 

9110 DATA NR 3D2NR2D7BE4BR . NR3D4 
R3U2L8E2BR , D4BR3U7NI. 3UZBR2 , ND4B 
R2 . BD4REII3L2R.)BR2 . D2ND2NF2E2BR2 
9120 DATA D4R3B1J4BR2 , ND4FRFND4B 
R2,ND4F3DU4BR2,NR3D4R3U4BR2,ND4 
R3D2NL3BE7. NR3D4R3NHU4BR2 
9130 DATA ND4R3D2L2F2BU4BR2,BD4 
R3U2L3U2R3BR2 , RND4RBR2 . D4R2U4BB 
2 , D3FEU3BR2. D4EFU4BR2 
9140 DATA DF7DBL.2IJE2URR2 . DFND2E 
UBR2 , R3G3DR3BU4BR2 
9150 DATA NR2D4R2U4BR2 , BDEND4BR 
2 . R2D2L2D2H2BU4BR2 . NR2BD2NR2BD2 
R2U4BR2 . D2R2D2U4BR7 .NR2D7R2D2L2 
BE4 , D4R2U2L2BE2BR2.fi 2ND4BR2 , NR2 
D4R2U2NL2U2BR2 . NR2D2R2D2U4BR2 
9200 DIM LES f 27) 

9210 FOR K-0 TO 26 : READ LES (K) : 
NEXT 

9220 FOR K = 0 TO 9 : READ NUS(K)rN 
EXT 

92 30 RETURN 

9300 FOR K=l TO LENIAS) 
9310 BS=MTDS(AS.K. t) 
9320 IF BS>="0" AND BS<="9" THE 
N DRAU NUS (VAL (BS) ) : GOTO 9350 
9330 IF BS=" " THEN N = 0 ELSE N= 
ASC (BS) -64 
9340 DRAW LES (N) 
9350 NEXT 
9360 RETURN 
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AS INSTRUCÕE! 
D© JOG© 



■ 


MAIS TABELAS DE DADOS 


EM ASCII 


■ 


ESCREVA NA TELA 


■ 


COMO CHAMAR SUB-ROTINAS 


DA ROM 




Impressas na tela, as informações 
contidas no programa deste 
artigo permitirão que ajudemos o 
infortunado Wiiiie em sua 
incansável busca do lanche roubado. 



As informações devem ser bem claras e 
objetivas. Ao mesmo tempo, é convenien- 
te "temperar" o texto com algum enre- 
do, já que um videogame deve apelar à 
imaginação do jogador e não simplesmen- 
te testar seus reflexos. 



A primeira coisa a fazer é colocar o ti- 
tulo na tela. Em seguida, são fornecidas 
as instruções. Como estamos programan- 
do e conhecemos cada detalhe envolvido, 
às vezes esquecemos que outras pessoas 
não têm a menor idéia dos objetivos do 
jogo e não sabem como jogar. Assim, é 
necessário colocar na tela toda informa- 
ção relevante, de maneira que o usuário 
não seja obrigado a parar o jogo a cada 
momento para ler o folheto de instruções. 



Mais uma vez, utilizaremos um pro- 
grama em BASIC para colocar as instru- 
ções — letra por letra — na memória, 
criando uma tabela de códigos ASCII. 

Para que a tabela sirva aos nossos pro- 
pósitos, é importante que o número de 
códigos de caracteres transferidos para a 
memória seja exato - afinal, eles vão ser 
lidos pelo programa em código. Como o 
leitor pode ter problemas para descobrir 



o número de espaços em cada linha, va- 
mos conferir: no final da linha 100, há 
um espaço; no final da linha 120, três; na 
140, três; na 160, catorze; na 180, um; na 
240, dois; na 300, três, e na 320, 26 espa- 
ços em branco. Nas linhas 330 e 340 há 
quatro espaços entre as teclas e o hífen, 
e um espaço entre o hífen e a função da 
tecla. No final da linha 330 temos deze- 
nove espaços e no final da 340, dezenove 
espaços também. Todos os demais claros 
na listagem correspondem a um caracte- 
re de espaço apenas. Outra maneira de 
conferir os dados consiste em contar exa- 
tamente 32 caracteres em cada linha DA- 
TA, exceto na 320, que tem 34 caracteres. 

Antes de passar à execução, proteja o 
topo da memória com CLEAR 57434. 

Quando executarmos o programa, se- 
rá criada uma tabela com instruções. Ao 



Illllllll 
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final do programa, o laço FOR...NEXT 
enlre as linhas 500 e 520 projela na tela 
uma imagem da porção da memória que 
contém a tabela. 



10 LET x=57480 

20 FOR n=l TO 16 

30 READ aS' FOR o- 1 TO I 

: POKE x.CODE US (o TO i 

LET x-x+1 : NEXT o 
40 NEXT n 
100 DATA " Ap03 um pequei 



olta 



lli 
120 DATA " 

14 0 DATA " 

todo seu 
160 DATA " 



180 DATA "Agora ele di 

ao topo da " 
200 DATA "montanha e : 

220 DATA "enfrentando 

anche. cobras" 

240 DATA "e podendo a 

260 DATA "Para piorar 

280 DATA 1 

290 DATA 1 
judar Wil 
300 DATA 1 
aperte a 
320 DATA 



subindo i 
afogar. 



Esses dois programas — ou o seu pro- 
duto, criado após a execução ou a mon- 
tagem pelo Assembler — devem ser gra- 
vados da mesma maneira que a primei- 
rar parte do videogame Avalanche (veja 
artigo publicado à página 748). 

Para que tal rotina funcione adequa- 
damente, essa parte do jogo e a tabela 
criada pelo primeiro programa BASIC 
também devem estar na memória. Isso 
exige que elas sejam gravadas em códi- 
go; caso contrário, terão de ser monta- 
das novamente. 

Para gravar e ler código de máquina 
em fita cassete — o que inclui os códigos 
da tabela ASCII — . o usuário do Spec- 
trum tem à sua disposição comandos SA- 
VE e LOAD especiais. 



Para gravar os códigos de uma porção 
da memória, digite: 



s mesmos códigos da 

LOAD "nome" CODE endereço inlci 
al 

O endereco inicial pode ser omitido se 
for igual ao do momento da gravação. Os 
códigos das diversas partes do videoga- 
me Avalanche também devem ser grava- 
dos; caso isso não aconteça, o usuário 
gastará cada vez mais tempo na monta- 
gem, adicionando novas rotinas e tabe- 
las. Os endereços iniciais e finais devem 
ser anotados. O próprio Assembler dá es- 
sa informação durante a montagem. 



330 DATA "N 



.160 DATA " ou Ambos" 
500 FOR n=57435 TO 58000 
510 PRINT CHRS PEEK n: 
520 NEXT n 

Os dados que este programa coloca na 
memória usando POKE são utilizados pe- 
la seguinte rotina em Assembly: 



BEM 
BEM 
REM 
BEM 
Fi EM 
B EM 
f' EM 

■ H EM 
REM 

■ R EM 
B KM 

I REM 



org 58104 

call cl 

ld íx, 57480 



ld b.255 
call me 
ld b.138 

ld de, 39 
add hl.de 
ld b.100 



130 P FM ld . 



REM 

i REM 
i REM 
i REM 
l REM 
i REM 
l REM 
i REM 
I REM 



ktt ld a, 253 
in a. 254 
bit l.a 
jr nz.ktt 
ret 

org 58192 
cl * 

org 58155 
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Também é bom registrar os endereços dos 
rótulos, para utilizá-los em instruções com 
asteriscos (cálculos de saltos e desvios). 



ESCREVA AS INSTRUÇÕES NA TELA 



A rotina cl — que está na primeira 
parte do programa — é chamada para fa- 
zer a limpeza da tela. Já a rotina me será 
usada novamente para escrevermos na te- 
la; para isso, temos que colocar valores 
adequados em certos registros, que con- 
trolam as características do texto a ser im- 
presso. 

Para começar, alocamos no registro 
IX o endereço inicial da nova tabela de 
códigos ASCII criada pelo programa BA- 
SIC. A posição da tela em que começa- 




remos a escrever deve ser colocada no par 
de registros HL; a cor das letras, em A, 
e o comprimento do texto, em B. Para 
imprimir os vários segmentos do texto, é 
preciso chamar diversas vezes a rotina me. 
Antes de cada chamada, porém, devem 
ser distribuídos os parâmetros relaciona- 
dos — posição inicial na tela e número 
e cor das letras — nos registros ade- 
quados. 

Quando chamarmos me pela primeira 
vez, B estará contendo o valor 255, que 
corresponde ao comprimento do texto. 
Na segunda vez, B estará contendo 138. 
A rotina deve ser chamada duas vezes 
porque 255 é o maior número que o regis- 
tro B, de oito bits, pode abrigar. 138 é 
o restante do texto, que não pode ser im- 
presso de uma só vez por me. Não é pre- 
ciso definir novamente a posição de im- 
pressão na tela — HL — , já que a segun- 
da parte dos dados segue imediatamente 
a primeira e o conteúdo desse par é atua- 
lizado pela própria rotina de impressão 
(veja a rotina me na primeira parte do 
programa). 

Quando quisermos imprimir a tercei- 
ra parte do texto, contudo, precisaremos 
usar uma nova posição na tela. Isto é feito 
para criar um espaço entre o texto inicial 
— que conta os azares de Willie — e as 
instruções sobre o uso do teclado, que 
orientam sobre quais teclas apertar para 
saltar e/ou correr. Existem duas manei- 
ras de criar esse espaço: colocando uma 
série de códigos de espaço na tabela AS- 
CII, ou dando um novo valor a HL. Pro- 
curamos ilustrar as duas técnicas no pro- 
grama. Se consultarmos a listagem do 
programa BASIC que criou a tabela de 
dados, veremos que existem 26 espaços 
em branco na linha 320 (naturalmente eles 
foram transferidos para a tabela). Olhan- 
do a listagem Assembly, verificaremos 
que o número 39 foi colocado em DE pe- 
lo comando Id de,39- Depois disso, o con- 
teúdo de DE foi somado ao de HL. O par 
HL funciona como um acumulador de 
dezesseis bits, de forma que o resultado 
da operação permanece em HL, que é o 
local apropriado para o endereço de im- 
pressão na tela quando chamamos nova- 
mente a rotina me. 

O restante do texto tem cem caracte- 
res de comprimento e é impresso na cor 
amarelo brilhante — código 70 — e não 
mais em branco — código de cor 7 — , 
como as linhas iniciais. 



ESPERE PELO TIRO DE LARGADA 



As instruções permanecem no vídeo 
até que pressionemos a tecla S, dando ini- 
cia ao jogo propriamente dito. Para tor- 



nar isso possível, usamos uma rotina que 
detecta mudanças no teclado por meio do 
comando in. 

Esse comando permite o que chama- 
mos de "varredura do teclado", de um 
modo idêntico ao usado no programa 
Trace, do artigo Rastreamento no Spec- 
irum (página 381). Naquela ocasião, que- 
ríamos detectar as teclas <BREAK> e 
< SYMBOL SHIFT>; agora, nossas 
atenções estão na tecla S. É o valor colo- 
cado em A, antes da execução do coman- 
do in, que determina a porção do tecla- 
do a ser verificada. Assim, Id a,253 faz 
com que a linha in a,254 verifique o con- 
junto de teclas ao qual S pertence. 

O valor recebido através da porta 254 
é colocado em A. Se o bit I desse núme- 
ro estiver "ligado" é porque S foi pres- 
sionada. Quando isso acontece, o resul- 
tado da operação bit l,a é zero, ativan- 
do o indicador de zero. 

O processador ficará girando, preso no 
laço rotulado como ktl, até que a tecla 
S seja pressionada, ativando o indicador 
de zero e evitando o salto jr nz, ktt, já 
que a condição nz — resultado da última 
operação não é zero — não foi satisfei- 
ta. Normalmente, o programa prossegui- 
ria; por enquanto, porém, uma instrução 
rei provocará o retorno ao BASIC, ter- 
minando assim esta segunda parte de 
Avalanche. 

Note que os rótulos correspondentes a 
rotinas montadas em outras listagens de- 
vem ter seu endereço definido por org, se- 
guido do rótulo e de um asterisco. Esse 
procedimento permite ao Assem b ler cal- 
cular os saltos para tais rótulos (cl e me, 
neste caso). O asterisco impede que a po- 
sição de memória correspondente seja al- 
terada. 

Se chamarmos o programa tal como 
foi estruturado até aqui, ele escreverá a 
tela de instruções logo após a impressão 
da tela do título, e aguardará que pres- 
sionemos a tecla S. A instrução ret do fi- 
nal do primeiro programa foi apagada pe- 
la montagem da segunda parte, de modo 
a fazer das duas listagens um todo único 
e coerente. 



Assim como no exemplo precedente, 
utilizaremos aqui um programa escrito em 
"BASIC para colocar — letra por letra — 
as instruções na memória, criando uma 
tabela de códigos ASCII. Adicione as 
próximas linhas ao programa do artigo 
anterior. Antes de executá-lo, lembre-se 
de proteger o topo da memória com 
CLEAR 200, 17999. 

20 FOR 1-1 TO 4 
70 NEXT A.I 

S0 DATA "avalanchecr i acao : a. do 
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e prograia: a. kellaway O 9. ha 
dley- 

85 DATA " depois de U* pequeno 
passeio Vi 11 ia descobre Que 
cabritos «oníeses espalhara 
■ todo aau lanche pela encos 
ta. agora ele tea de 

subir ao topo ■ 
90 DATA ' da Montanha pegar sua 
s coisas. no casinho ele sera 
assacado por pedras , cobras 
e buracos. para piorar a situ 
aeao, a sare esta subindo, pod 
endo afoga-lo. para ajudar vi 11 
ie leia as instruções e ap 

erte "s* para jogar. 
100 DATA "■ - correm - saltar» 
n - aabos" 

Para que a tabela sirva aos nossos pro- 
pósitos, é importante que o número de 
códigos de caracteres transferidos para a 
memória seja exato (afinal, eles vão ser 
lidos pelo programa em código). Como 
o leitor pode ter problemas para desco- 
brir o número de espaços em cada linha, 
é conveniente conferi-los: no final da li- 
nha 85, aparecem conjuntos de espaços 
com os seguintes tamanhos: 2, 1, 4, 1, 4, 
4 e 12, segundo a ordem. Na linha 90, a 
sequência é a seguinte: 1, 2, 4, 3, 2, 1, 
6, 4 e 2. Na Unha 100, os espaços têm ape- 
nas um caractere em branco. 

A seguir, apresentamos o programa 
em código que utiliza a tabela ASCII cria- 
da pela listagem anterior. Para montá-lo 
na memória, recorra ao Assembler de IN- 
Pi/T. Antes disso, porém, use os coman- 
dos POKE que aumentam a memória dis- 
ponível e proteja o topo da memória com 
CLEAR 200,18999. 

10 OHG 190 54 

20 LDX «1024 

30 LDY 117058 

40 CL RB 

50 JSR LPRINT 

60 LDB 1137 

70 JSR LPRINT 

BO LEAX 24.X 

90 LDB |10 

100 JSR LPRINT 

110 LEAX 22.X 

120 LDB |10 

130 JSR LPRINT 

140 LEAX 22.X 

150 LDB 110 

160 JSR LPRINT 

170 KEY JSR 41409 

180 CHPA |83 

190 BNE KEY 

200 RTS 

210 LPRINT EQU 19174 

Esses dois programas — ou o seu pro- 
duto, criado depois de ter sido executa- 
do (ou montado) pelo Assembler — de- 
vem ser gravados da mesma maneira que 
a primeira parte do videogame Avalan- 
che (os endereços iniciais e finais devem 
I ser calculados e usados no comando de 



gravação dos códigos). Para que a rotina 
acima funcione adequadamente, a primei- 
ra parte do jogo e a tabela criada pelo 
BASIC completo devem estar na memó- 
ria também. 

Faça a gravação dos códigos corres- 
pondentes as tabelas e aos programas, 
empregando o comando CSAVEM, que 
tem a seguinte sintaxe: 

CSAVEM "nome" , endereço inicial, 
endereco final 



ESCREVA AS INSTRUÇÕES NA TELA 



Esse programa usa a mesma sub-rotina 
LPRINT que a rotina da página do títu- 
lo empregou para escrever na tela. Note 
que a tabela ASCII criada pelo progra- 
ma BASIC é uma continuação da que 
continha os códigos da página do título, 
de forma que o programa está utilizando 
a mesma tabela ASCII. 

Toda vez que chamarmos LPRINT, 
devemos colocar nos registros apropria- 
dos os parâmetros do texto a ser impres- 
so. Assim, X deve conter a posição da tela 
onde desejamos iniciar a impressão, B, o 
comprimento do texto, e Y, a posição do 
início do texto na tabela. 

Se olharmos para a listagem Assembly 
da sub-rotina LPRINT — apresentada na 
primeira parte — , veremos que o regis- 
tro Y tem seu valor aumentado na medi- 
da em que a tabela ASCII vai sendo "li- 
da" pelo programa. Desse modo, o pro- 
grama principal não precisará corrigir o 
valor de Y toda vez que a rotina for cha- 
mada; na verdade, Y é aumentado, gra- 
dativamente, indicando sempre, linha 
após linha, o início da porção apropria- 
da da tabela. 

Definida a origem do programa, o en- 
dereço inicial da tela é colocado em X por 
LDX # 1024 e o endereço inicial do tex- 
to das instruções é posicionado em Y por 
LDY # 17060. A instrução CLRB limpa 
o conteúdo de B, sendo um modo rápi- 
do de colocar zero nesse registro. O va- 
lor zero funciona como se fosse 256; as- 
sim, quando a rotina LPRINT for cha- 
mada por JSR LPRINT, serão impressos 
256 caracteres. 

Ao chamarmos LPRINT pela primei- 
ra vez, B estará contendo o valor 256, que 
corresponde ao comprimento do texto. 
Na segunda vez, B estará contendo 137. 
A rotina será chamada duas vezes, pois 
256 é o maior número que o registro B, 
de oito bits, pode conter. 138 é o resto 
do texto que não pode ser impresso todo 
de uma vez por LPRINT. 

As instruções LEAX somam valores 
adequados ao conteúdo de X para que a 
posição de impressão na tela correspon- 
da ao inicio da linha seguinte; é por isso 



que não há espaços entre as palavras que 
ficam no final e no início de linhas adja- 
centes. A sub-rotina LPRLNT é chama- 
da então mais quatro vezes para escrever 
as linhas que orientam as funções das te- 
clas. A cada chamada, o valor de B é 
acertado por uma instrução LDB; o va- 
lor de X é ajustado por um LEAX (Y é 
acertado pela própria rotina LPRINT). 

A sub-rotina KEY aguarda que a te- 
cla S seja acionada para que o jogo te- 
nha início. Para verificar o teclado, o pro- 
grama utiliza uma sub-rotina da ROM. 
Assim, a instrução JSR 41409 salta para 
essa sub-rotina, que verifica qual tecla es- 
tá sendo pressionada. 

Se alguma tecla estiver sendo pressio- 
nada, o processador retornará da sub- 
rotina trazendo o código da tecla corres- 
pondente dentro do acumulador. A ins- 
trução CMPA # 83 compara então o có- 
digo da letra S — 83 — com o conteúdo 
do registro A. Se S não tiver sido aciona- 
da, a condição de BNE KEY ("salta, se 
não for igual") estará satisfeita c o mi- 
croprocessador será enviado novamente 
ao rótulo KEY. O processo se repetirá até 
que seja pressionada a tecla S. Nesse ca- 
so, a condição de BNE não estará satis- 
feita e o programa seguirá seu curso até 
ser interrompido por uma RET. O rótu- 
lo correspondente a LPRINT deve ter o 
endereço especificado por uma instrução 
EQU; assim, o Assembler poderá calcu- 
lar os saltos para aquela sub-rotina. 



Mi 




O Assembly listado a seguir cria a tela' 
de instruções ao jogador. Para fazer is- 
so, ele utiliza dados de uma tabela de có- 
digos ASCII criada por um programa 
BASIC; nele incluímos uma rotina de 
"varredura" do teclado, que aguarda que 
pressionemos a tecla S: 

10 org -12233 

20 ld de.O 

30 ld hl .-13958 

40 ld bc.960 

50 call 92 

60 ktt call 159 

70 cp 93 

80 jr nz.ktt 

90 ret 

100 end 

Para montar esse programa, utilize 
nosso Assembler. Grave o programa- 
fonte e o programa-objeto da mesma for- 
ma que na primeira pane do videogame. 

Como das vezes anteriores, precisare- 
mos de um BASIC para colocar na me- 
mória os códigos das letras que compõem 
a tela de instruções. Digite-o, mas não o 
execute ainda. 
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10 SCREF.N O : CLEAfl 200 , - M 000 : KE 
Y O FF 

20 FOR 1=1 TO 22* READ AS: PRJ.N 
T TAB ( 1 ) ;AS : NEXT 
10 FOR T-B TO 959 

AU POKF. - 1 39bfl + l . VPEEK (HASEtO) 

SO NEXT 

60 CLS 

70 DEFU:iRl--122B8 
80 a=u;;hi [0) 
90 CLS 

100 END 

200 DATA " Apos um pequeno p 
ís.wia, Wilie" 

210 DATA "volta ao local onde p 
rrtendia fazer" 

220 DATA "seu pique-mque e liea 

2 10 DATA "bando de cabritos nnn 
r.p.ies e.ipaj hou" 

2 An DATA "todo seu lanche na en 

.Mb DATA 

250 DATA " Agora ele deve su 
bu ao r.opo da " 

260 DATA "montanha para recuper 

270 DATA "enfrentando uma avala 

280 DATA "venenosas e correndo 

o naco de cair" 

290 DATA "num buraco. " 

29b DATA 

100 DATA " Para piorar a stt 

310 DATA "está subindo e ele pa 
de se afogar." 

120 DATA "Se voe» quer ajudar U 
til ir. leia aa" 

130 DATA " instruçõe.i e pregaion 

e a tecla "S' . " 

135 DATA : DATA 

140 DATA "Use ! " 

350 DATA " N para 

360 DATA " M para 

Saltar" 

170 DATA " Amboa para um 

Salto Diagonal" 

As linhas 70 e 80 tentam executar o 
programa do jogo como foi publicado até 
o momento. Se a primeira parte dele não 
estiver na memória ainda, a execução do 
comando da linha 80 vai apagar toda a 
memória. 

Esse programa utiliza o comando 
READ para obter as frases da tela de ins- 
trução nas linhas DATA do final da lis- 
tagem. Depois de escrita, a tela é total- 
mente transferida para a memória pelo la- 
ço entre as linhas 30 e 50. A tabela AS- 
CII é criada assim: o comando VPEEK 
obtém os códigos diretamente na memó- 
ria de vídeo e o comando POKE os colo- 
ca na RAM. 

Para que a tela mantenha a tabulação 
original é bom conferir: no início das li- 
nhas 200, 250 e 300, há quatro espaços 
em branco. Nas linhas 350 e 360, cada va- 



zio no texto contém cinco espaços. Uma 
vantagem dessa técnica de transferência 
da tela para a memória é que você pode 
criar sua própria tela de instruções se não 
estiver satisfeito com o aspecto da nossa. 



COMO MONTAR 0 PROGRAMA INTEIRO 



Eis algumas explicações adicionais so- 
bre como montar o programa. 

A primeira coisa a fazer é carregar o 
Assembler na memória. Depois de tomar 
as providências necessárias para proteger 
a memória na linha 5000, monte o 
programa-fonte do artigo anterior. Du- 
rante a montagem é interessante anotar 
o endereço inicial, o endereço final e os 
endereços dos rótulos. 

Terminada a montagem, a rotina em 
código estará na memória. Quem ainda 
não a gravou em fita deve fazê-lo por in- 
termédio do comando: 

BSAVE "CAS:AVAL1".-1228B, -12233 

A seguir, o Assembly deve ser digita- 
do, gravado e montado (anote os ende- 
reços principais durante o processo de 
montagem). A rotina em código pode en- 
tão ser gravada da mesma maneira. 

Depois, digite NEW, apagando o As- 
sembler da memória, e carregue o BASIC 
que cria a tabela ASCII da tela-título, lis- 
tado no artigo anterior. Quem já gravou 
a tabela correspondente com o comando 
BSAVE pode carregá-la da fita com 
BLOAD, mas terá que proteger o topo 
da memória antes. Quem não fez isso ain- 
da deve executar o programa. As linhas 
finais deste último testam a rotina em có- 
digo; com a sua execução, a página-título 
surge na tela; após uma pequena pausa, 
esta se enche de caracteres aleatórios. Is- 
so acontece porque a rotina tenta escre- 
ver a tela de instruções, mas a tabela ne- 
cessária não se encontra ainda na memó- 
ria. Para continuar, aperte a tecla S e lim- 
pe a tela. 

Finalmente, carregue o programa BA- 
SIC apresentado linhas atrás e execute-o. 
As unhas finais testam a rotina comple- 
ta, que escreve o título, provoca uma pau- 
sa, apaga a tela, escreve as instruções e 
aguarda que a tecla S seja pressionada. 
A tabela ASCII completa pode ser então 
gravada com: 

BSAVE "CAS:A8CII*, -14000,-12998 

É aconselhável gravar os códigos das 
rotinas e tabelas usando o comando BSA- 
VE. Senão, teremos que gastar um tem- 
po cada vez maior para a montagem. 
Após gravar os códigos, proteja a memó- 
ria, digitando a instrução. 



CLEAR 200,-14000 

(proteção feita antes pelos programas BA- 
SIC). Posicione a fita nas rotinas em có- 
digo e carregue-as com: 

BLOAD "CAS : " 

Finalmente, posicione a fita nos códi- 
gos da tabela ASCII e carregue-a usando 
o mesmo comando BLOAD. Para exe- 
cutar o programa, digite: 

DEFUSB--122BB:A - USB(0) 



ESCREVA NA TELA 



. Esse programa recorre à mesma sub- 
rotina da ROM utilizada pela rotina da 
página do título para escrever na tela. A 
tabela ASCII criada pelo programa BA- 
SIC é uma continuação da que continha 
os códigos da página do título, de forma 
que o programa está utilizando a mesma 
tabela ASCII. 

Toda vez que chamarmos essa sub- 
rotina, devemos colocar nos registros 
apropriados os parâmetros do texto a ser 
impresso. Assim, DE deve conter a posi- 
ção da tela onde desejamos iniciar a im- 
pressão do texto; BC, o comprimento do 
texto; e HL, ã posição do início do texto 
na tabela ASCII. 

A sub-rotina ktl aguarda que a tecla 
S seja pressionada para que o jogo come- 
ce. O programa verifica o teclado utili- 
zando uma sub-rotina da ROM. Assim, 
a instrução call 159 salta para essa sub- 
rotina, ; que espera até uma tecla ser pres- 
sionada. 

Se alguma tecla for pressionada, o pro- 
cessador retornará da sub-rotina trazen- 
do o código da tecla correspondente den- 
tro do acumulador. A instrução cp 83 
compara então o código da letra 2 — 83 
— com o conteúdo de A. Se S não tiver 
sido pressionada, a condição do coman- 
do jr nz,klt ("salta, se o último resulta- 
do não for zero") estará satisfeita e o mi- 
croprocessador será novamente enviado 
para o rótulo kit. O processo se repetirá 
até que seja pressionada a tecla S. Nesse 
caso, a condição de nz não será satisfeita 
e o programa prosseguirá seu curso, até 
encontrar uma instrução ret. 

Ao executarmos o programa, veremos 
aparecer um cursor no canto superior es- 
querdo da tela de instruções. Ele é colo- 
cado ali pela rotina da ROM que verifica 
o teclado. Para tirá-lo dessa posição, te- 
ríamos que escrever nossa própria rotina 
para detectar o toque na tecla S. Depois 
que a tecla for pressionada e o programa 
terminar, o texto permanecerá na tela. Sa- 
bemos que a rotina terminou porque sur- 
ge a mensagem "OK" no meio do texto. 
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TUDO QUE SOBE, 
DESCE™ 



Um objeto lançado para o alto descreve 
uma curva parabólica. Isaac 
Newton (1642-1727) demonstrou que, se 
a altura de lançamento for muito 
grande, o objeto cairá fora da Terra. 



Segundo Galileu Galilei (1564-1642), 
lodo objeto lançado sobre a superfície 
da Terra sofre a ação de duas forças: a 
que o impulsiona para a frente (ou pa- 
ra o alto) e a que o atrai para o planeta 
(força de gravidade). A interaçào des- 
sas duas forças leva o corpo a descrever 
uma curva parabólica. O desenho desse 
tipo de trajetória torna-se muito simples 
quando se trabalha com um compu- 
tador. 

Um objeto lançado para cima, por 
exemplo, distancía-se — a principio, ra- 
pidamente — das superfície da Terra 
sob a ação do impulso inicial, perden- 
do velocidade por efeito da gravidade. 
Este artigo mostra como programar e si- 
mular o movimento de projéteis. 

Muitos jogos de combate são am- 
bientados no vácuo do espaço sideral 
porque lá se pode ignorar a ação da for- 
ça gravitacional e da resistência do ar no 
cálculo do movimento de naves e mís- 
seis. Isso não quer dizer que não exista 
nenhuma gravidade no espaço; existe, 
mas é tão pequena que pode ser despre- 
zada para efeitos práticos. 

Em contrapartida, batalhas simula- 
das na superfície terrestre têm que levar 
em conta a ação da gravidade e, fre- 
quentemente, a resistência do ár e o efei- 
to dos ventos. Além de jogos de guer- 
ra, podem surgir várias outras circuns- 
tâncias em que o conhecimento de co- 
mo se dá o movimento de projéteis seja 
essencial para um efeito realístico. En- 
tre elas estão muitos esportes e simula- 
ção de provas de atletismo, como lan- 
çamento de dardo e de disco, mergulho 
e todo o tipo de salto. 

Os projéteis citados (sejam pessoas 
ou objetos) têm uma coisa em comum: 
eles se movem segundo uma trajetória 
que pertence a um grupo de curvas co- 
nhecidas como parábolas. Escrever um 
programa para simular movimento em 
trajetória parabólica não é difícil, reque- 
rendo apenas a compreensão das forças 
que atuam sobre o objeto e o emprego 
de matemática elementar. 

Saber, por exemplo, que o movimen- 
to executado por uma bola ao ser chu- 
tada resulta da combinação de movi- 
mento em duas díreções já fornece sub- 
sídios suficientes para resolver o proble- 
I ma da programação. Uma dessas dire- 



ções é paralela ao eixo horizontal ou ei- 
xo X de um sistema cartesiano. A outra 
é vertical, paralela ao eixo Y. Nesta li- 
ção, estabeleceremos como premissa que 
o objeto se move com velocidade cons- 
tante na direção horizontal. Na realida- 
de, o objeto seria desacelerado pela re- 
sistência do ar, mas este é um detalhe 
que costuma ser ignorado, a não ser em 
trabalhos de grande precisão. 



MOVIMENTO HORIZONTAL 



Digite esse primeiro programa para 
simular o movimento horizontal, e cui- 
dado para não confundir a letra I com 
o número 1. Todos os programas são 
para o BASIC padrão da máquina. 



100 BORDER 7: PAPEH 7r INK 0: 

105 P0KE 23658.8 
110 PR TNT INVERSE 1 ;AT 2,12;" 
MENU " 

120 PHINT AT 6.0;"1-MOV1MENTO 
PURAMENTE HORIZONTAL" 
130 PH TNT AT 8 , 0 : "2-M0VIMENTO 
PURAMENTE VERTICAL* 
140 PRINT AT 10.0:"3- MOVIMENT 
O MISTO" 

150 PRINT AT 12,0;"4- ELEVACOE 
S" 

200 LET IS-INKEYS: IF IS-"" 
THEN GOTO 200 

205 IF I$<"1" OH IS>"4" THEN 
COTO 200 

210 GOSUB VAL I3"1000 

220 HUN 
1000 CLS 
1020 LET SP=30 

1030 PRINT "VELOC. HORIZONTAL M 

/S. . ." 

T040 FOR R-124 TO 29 STEP -16 
1045 LET T=0 

1050 PRINT AT 21- (R/8) , 0 ; SP 
1060 1NPUT "<ENTER> PARA ATIRAR 
", LINE ZS 

1090 LET X=SP*T: LET T=T+1 
1100 PLOT 30+X.R: SOUND . 1 , R/4 
1110 PAUSE 10 

1120 IF 30+SP«T<250 THEN GOTO 
1.090 

1T50 IF R = 28 THEN GOTO 1200 
1160 TNPUT "NOVA VELOCIDADE (0 
SAI) " , LINE IS 
1165 LET SP=VAL IS 
1170 IF SP<0 OH SPM000 THEN G 



OTO 1160 

1190 IF SP-0 THEN LET R = 28 
1200 NEXT R 
1210 RE TU RN 



100 CLS:PMODE 3 

110 PRINT #13,"»enu" 

120 PRINT Í128.-1-MOVIMENTO PUR 

AMENTE HORIZONTAL" 

130 PRINT ei92,"2-MOVIMENTO PUR 

AMENTE VERTICAL" 

140 PRINT «256, "3-MOVIHENTO MIS 
TO" 

150 PRINT «320,"4-ELEVACOES- 
160 AS-INKEYS:IF A3<"1" OR AS>" 
4" THEN 160 

170 ON VAL(AS) GOSUB 1000,2000, 
3000,4000 
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1090 T-T+l :X=5P*T 

1100 PSET (30+X/5 ,H) . IS : PLAY"N1 

9L19" 

1110 FOR 1=1 TO i0O:IF INKEYS < 

>CHRS(32) THEN NEXT I 

1120 IF SP*(T+l)/5+30<240 THEN 

1090 

1130 TF R>145 THEN 1200 

IMO FOR 1 = 1 TO 200:IF INKEYSO 

CHRS (13) THEN NEXT I 

1160 LINE (250.195)-(5,180) ,4,B 

F:PHINTIl."NOVA VELOC? (0 TERMT 

NA) :":SPS-"" 

1162 PRESET (210.180) :PRINTfl,S 
PS 

1165 AS=-INKEYS:TF A$ = CHRSU3) T 
HEN 1190 

1170 IF AS<"0" OR AS>"9" THEN 1 
165 

1180 SPS-SPS+AS-GOTO 1162 

1390 SP=VAL (SPS) : TF SP = 0 THEN R 

-160 

1195 IF SP<0 OR SP>999 THEN 116 



95 FOR I = 770 TO 795: READ Ar 

POKE I,Ai NEXT 
100 TEXT : HOME 
110 PH. TNT TAB { 16) ; "H E N U" 
120 VTAB 7: HTAB 5: PRINT "1 - 

MOVIMENTO HORTZONTAL PURO" 
130 UTAB 9: HTAB 5: PRTNT "2 - 

MOVIMENTO VERTICAL PORO" 
140 VTAB 11: HTAB 5i PRINT "3 

- MOVIMENTO COMBINADO" 

150 VTAB 13: HTAB 5: PRTNT "4 

- ÂNGULOS VARIÁVEIS" 

160 GET AS: IF AS < "1" OR AS 
> "4" THEN 160 

170 ON VAL (A$) GOSUB 1000,20 
00 , 3000 ,4000 

180 GET AS: IF AS = CHRS (13) 
THEN RON 



190 GOTO. 180 

1000 HGR : HCOLOR= 3 

1010 HPLOT 0,0 TO 279.0 TO 279 

, 159 TO 0 ,159 TO 0 . 0 

1020 SP - 30 

1030 HOME 

1040 FOR R = 30 TO 150 STEP 24 
:T ■ - 1 

1050 VTAB 21: PRINT "VELOC HOR 
JZ: ":SP;" M/S": VTAB 24: PRINT 

"TECLE <CR> PARA DISPARAR "; 
1060 GET AS: IF AS < > CHRS 
(13) THEN 1060 
1090 T = T + 1:X = SP * T 
1100 HPLOT X / 5,R:U = PEEK ( 

- 16336) :W = PEEK ( - 16336) 
1105 POKE - 1636B.0 
1110 FOR D = 1 TO 20: IF PEEK 

( - 16384) < 128 THEN POKE - 

1.6368,0: NEXT 
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279 



U20 TF SP 
THEN J090 
1130 IF El > 149 THEN 1200 
1135 POKE - 16.168.0 
1140 FOR D = 1 TO 300: TF PEE 
K ( - 16384) > 127 THEN D - 300 

1150 POKE - 1636B.0: NEXT 
1160 HTAB l: UTAB 23: CALL - 
958: VTAB 23: INPUT "NOVA VELOC 
IDADE (0 TERMINA) ";SP 
1170 IF SP < 0 OR SP > 999 THE 
N 1160 

1190 IF SP = 0 THEN R = 160 
1200 NEXT 
1210 BETURN 

5000 DATA 172.1.3,174.1.3,169 
.4. 32,168. 252. 17 3.48, 192,232.20 
8.253.136.208,239.206,0.3,208,2 
31.96 

Ao executar o programa, você verá 
um menu com quatro opções. Até ago- 
ra, só a rotina para a primeira opção foi 
digitada. Assim, se teclar as opções 2, 
3 ou 4, você obterá uma mensagem de 
erro. Ao pressionar 1, o programa vai 
para a sub-rotina 1000. Esta usa um la- 
ço FOR... NEXT (linhas 1040 a 1200) 
para permitir que um objeto seja lança- 
do horizontalmente em seis velocidades 
diferentes. Na primeira ve?., a velocida- 
de de 30 m por segundo é usada auto- 
maticamente e simulada no vídeo como 
uma série de pontos em linha reta. 

A seguir, você pode escolher uma ve- 
locidade diferente. Para sair do laço, 
pressione a tecla 0; o programa mostra- 
rá então o menu novamente. Digite um 
valor — 60, por exemplo — e pressione 
<ENTER> ou < RETURN > para 
disparar. A ação pode ser acelerada 
acionando-se continuamente a barra de 
espaços (tecla <ENTER> no Spec- 
trum) ou teclando-a repetidas vezes. 
Agora, compare o resultado com a linha 
de velocidade 30 m/s. Escolha e com- 
pare cinco outras velocidades. Depois 
disso, o menu será re apresentado. 

A parte do programa que desenha os 
pontos fica entre as linhas 1090 e 1 120. 
A variável T simula o tempo que, neste 
caso, é incrementado de um em um se- 
gundo. Desse modo, os pontos são es- 
paçados regularmente (o que é necessá- 
rio para conservar a velocidade constan- 
te) na direção horizontal. A distância 
entre os pontos é determinada pela ex- 
pressão SP*T na linha 1090. Ela faz com 
que, quanto maior a velocidade, maior 
o espaçamento entre os pontos. 

A expressão SP*T pode ser reconhe- 
cida como parte da formula DISTAN 
CIA = VELOCIDADE X TEMPO, co 
mo é ensinada nas aulas de física. Des 
se modo, fica bem claro que o progra- 
ma usa o espaçamento entre os pontos, 
a fim de simular a velocidade. 



MOVIMENTO VERTICAL 



Digite as próximas linhas para simu- 
lar o movimento em direção vertical: 



2000 CLS 

2020 LET O"l0: LST SP C 50 

20 30 PRINT ' "ACELERAÇÃO DA GRAU 



2060 INPUT "<ENTER> PARA ATIRAR 
-, LINE IS 

20B0 FOR T-0 TO 250 STEP .5 
2090 LET H=SP*T-0 . 5*G"T*T 
2100 IF H>143 THEN SOUND .05,1 
0: PAUSE 50: NEXT T: GOTO 2110 
2105 IF H> a 0 THEN PLOT R"B+4.H 
+32: SOUND .05, H/4: PAUSE 40: N 
EXT T 

2110 IF R>15 THEN GOTO 2180 
2140 INPUT "NOVA GRAV . (0 SAI!" 
, LINE IS 

2142 IF LEN IS-0 THEN GOTO 214 
0 

2145 I.ET G-VAL IS 

2150 IF NOT (LEN IS>0 AND G> = 0 

AND G<400) THEN GOTO 2140 

2170 IF G"0 THEN LET R>1B 

2180 NEXT R 

2190 RETURN 



mm 



2000 PCLS 

2010 LINE(O.O)- (255,191) .PSET.B 

2020 G-10:SP-50:CLS 

2030 PRINT «32 . "ACELERAÇÃO DA G 

RAV. :":PRINT"M/S/S. . . " 

2040 FOR R-0 TO 25 STEP 5 

2050 PRINT e416+R,"*"+MID3(STRS 

(G) .2) ; 

2060 PRINT S448, "<ENTER> PARA A 

2065 IF INKEYSOCHRSU3) THEN 2 
065 

2070 SCREEN 1,0 

2080 FOR T-0 TO 100 STEP .5 

2090 H-SP*T- . 5*G*T*T 

2095 IF H<0 THEN T-250:GOTO 210 

a 

2100 IF H>159 THEN SOUND 250,1: 
D-30 ELSE PSET (10+R*8 ■ 160-H . 2) 
: SOUNDH+10 . 1 :D-50 

2105 IF PEEKI345J-255 AND D>0 T 
HEN D-D-l:GOTO 2105 
2108 NEXT 

2110 IF R>20 THEN 2180 
2115 D-B0 

2119 AS-INKEYS 

2120 IF INKEYS-"" AND D>0 THEN 
D-D-l :GOTO 2120 

2140 PRINT §448, "".PRINT «448," 
NOVA GRAV. (0 SAI) : " ; : INPUT G 
2150 IF G<0 OR G>400 THEN 2140 
2170 IF G-0 THEN R-26 
2180 NEXT 
2190 RETURN 



2000 SCREEN 2,0,0 

2010 i INI'' (1.0) - (250 , 160) .15, B 

2020 3P-50:G-10 

2030 OPEN "GRP : " FOR OUTPUT AS 
1 1 : PB ES ET (5 . J 61) : PHTNTtl . "ACEL 

DA GRAVIDADE EM M/S/S" 
2040 FOR R = 0 TO 25 STEP 5 
2050 PRESET (H*8 , 1 50 ) : PR TNT» l , G 
: LINE (250, 195) - (5, 180) .4, BF: PH 
INTíl, "TECLE <RETURN> PARA DTSP 
ARAR" 

2060 IF INKEYSOCHRS (13) THEN 2 
060 

2060 FOR T=0 TO 100 STEP .5 

2090 H=SP*T- . 5*G*T*T 

2095 IF H<0 THEN T=250:GOTO 210 

8 

2100 IF HM59 THEN PLAY"N90L19" 
ELSE PSET (30 +R*8. 160-H) ,15: AS 
="N"+STRS(INT(H/2| ) +"L19" : PLAYA 
S 

2105 FOR 1=1 TO 100:IF INKEYS < 
>CHRS(32) THEN NEXT I 
210B NEXT T 

2110 IF R>20 THEN 21B0 

2120 FOR 1-1 TO 200:IF INKEYS < 

>CHRS (32) THEN NEXT I 

2140 LINE (250.195) - (5, 180) .4. B 

F : PRINTf l , "NOVA G? (0 TERMINA): 

- :04 a *" 

2142 PRESET (200,180) :PRINT|1 ,G 
S 

2145 AS - T NKE YS 1 I F AS=CHRS(1)> T 

HEN 2160LTST 2100- 

2150 IF AS<"0" OR AS>"9" THEN 2 

145 

2155 GS=GS+AS:GOTO 2142 

2160 G=VAL(GS):IF G=0 THEN R=26 

2170 TF G<0 OR G>400 THEN 2140 

2180 NEXT R 

2190 RETURN 



2000 HGR ! HCOLOR- 3 
2010 HPLOT 0,0 TO 279,0 TO 279 
,159 TO 0,159 TO 0,0 
2020 SP - 50 :G = 10 
2030 HOME : VTAB 21: PRINT "G: 
M/S/S" 

2040 FOB R = 0 TO 25 STEP 5 
2050 VTAB 2.1: HTAB R + 8: PRIN 
T G : VTAB 24: PR TNT "TECLE <CR> 

PARA DISPARAR " ; 
2070 GET AS: IF AS < > CHRS 
(13) THEN 2070 

2080 FOR T = 0 TO 100 STEP .5 
2090 H - SP * T - . 5 * G * T * 
T 

2095 IF H < 0 THEN T = 250: GO 
TO 2107 

21,00 IF H > 159 THEN POKE 769 
,200: POKE 768,2: CALL 770 

2102 IF H < 160 THEN HPLOT 50 
+ R * 7,160 - H: POKE 769.H: P 

OKE 768-, 2: CALL 770 

2103 POKE - 16368,0 

2105 FOR D * 1 TO 20: IF PEEK 
( - 16384) < 128 THEN POKE - 
16368,0: NEXT 

2107 NEXT T 
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2110 IF R > 20 THEN 2180 
2115 POKE - 16.168,0 
2120 FOB D - 1 TO 300: IF PEE 
K ( - 16384) > 127 THEN D - 300 

2130 POKE - 16363,0: NEXT 

2140 HTAB L: VTAB 23: CALL - 

958: VTAB 23: INPUT "NOVA ACELE 

RACAO (0 TERMINA) * ;G 

2150 IF G < 0 OR G > 400 THEN 

2140 

2170 IF G - 0 THEN H - 26 
21B0 NEXT R 
2190 RETURN 

Execute o programa e escolha a op- 
ção 2 desta vez. Pressione < ENTER> 
ou < RETURN > para ver uma série de 
pontos traçados verticalmente na tela. 
Note que tais pontos não são espaçados 
regularmente, como na opção anterior; 
quanto mais alta sua localização, mais 
perto eles ficam uns dos outros. 

Isso acontece porque o objeto é de- 
sacelerado pela ação da gravidade. E 
desta vez o som ajuda a explicar o que 
está acontecendo. Ã medida que o ob- 
jeto sobe, a tonalidade do som torna-se 
mais aguda e, à proporção que ele des- 
ce, o som fica mais grave. 

Como antes, a rotina lhe oferece seis 
tentativas (determinadas na linha 2040) 
de experimentar diferentes valores para 
o efeito da gravidade. Elas são armaze- 
nadas na variável G, que inicialmente é 
ajustada para 10 (linha 2020) e usada na 
linha 2090. 

A relação é a fórmula para distância 
de um objeto em queda livre. Sua for- 
ma usual é: 



S = VT 



GT - 



onde S é a distância; V, a velocidade ini- 
cial; T, o tempo, e G, a aceleração da 
gravidade. TxT é usado na linha 2090 
em vez de TT2 ou T2, porque os com- 
putadores são mais ágeis para multipli- 
car do que para calcular potências. A 
aceleração de um objeto em movimen- 
to é calculada em função da mudança 
de velocidade e do tempo decorrido. 
Peno da superfície da Terra, g tem um 
valor aproximado 10 m/s/s. Isso signi- 
fica que a velocidade de um objeto em 
queda aumenta de 10 m/s a cada segun- 
do. E a velocidade de um objeto em as- 
censão diminui de 10 m/s a cada segun- 
do. Esta é, portanto, uma aceleração ne- 
gativa; por isso, o sinal + (mais) da fór- 
mula padrão é substituída pelo - (me- 
nos) na linha 2090. 

O cálculo de G é comumente usado 
em relação a viagens espaciais. A acele- 
ração de uma es paço nave saindo da ór- 
I bita terrestre atinge cerca de 10 g. Isso 



significa que essa aceleração é de 10x10 
m/s/s ou 100 m/s/s (a notação m/s 
também é usada com frequência). 

Na primeira passada do laço que co- 
meça na linha 2040, a posição do obje- 
to é traçada a intervalos de um segun- 
do. A velocidade inicial é de 50 m/s e a 
aceleração é a da gravidade (10 m/s/s). 
Ambos os valores foram determinados 
na linha 2020. Como na primeira roti- 
na, apressa-se a ação pressionando-se a 
barra de espaços (ou <ENTER>, no 
Spectrum). O valor de G pode ser mu- 
dado quando um novo valor é solicita- 
do na tela. (Compare o efeito dos seis 
valores diferentes.) Antes de se comple- 
tar o laço, pode-se voltar ao menu 
pressionando-se 0 para aceleração. 



MOVIMENTO COMBINADO 



Para simular o movimento de um 
projétil, é necessário apenas combinar 
essas rotinas de maneira que o objeto se 
mova na horizontal e na vertical, ao 
mesmo tempo. Digite estas linhas para 
montar a terceira rotina: 



3000 CLS 

3020 LET G-10: LET SP-50 

3030 FOR R=l TO 6 

3040 PRINT AT 0,0; "GRAV. ■* ; G ; "m 

/a/B "' "VELOCIDADE-" ;SP; "m/B " 

3050 INPUT "<ENTER> PARA ATIBAR 

". LINE 13 

3070 FOR T-0 TO 250 STEP .5 
3060 LET H-SP*SIN { (PI/180) *45) 
*T- . 5*G*T*T 

3090 LET X-SP*C0S ( (PI/180) *45> 
*T 

3100 IF JK175 AND X<25í THEN G 
OTO 3105 

3102 IF H>0 THEN SOUND .05,10: 
PAUSE 25: NEXT Ti GOTO 3110 

3103 LET T-250: NEXT T: GOTO 31 
10 

3105 IF H>-0 THEN PLOT X,H: SO 
UND .05, H/4: PAUSE 40: NEXT T: 
GOTO 3110 

3106 LET T-250: NEXT T 
3110 IF R=6 THEN GOTO 3230 
3120 PAUSE 50 

3140 INPUT "NOVA GRAV. (0 SAD" 
, LINE 13 

3150 IF LEN IS-0 THEN GOTO 314 

0 

3155 LET G-VAL 13 
3160 IF NOT (LEN IS>0 AND G>=0 
AND G<1000) THEN GOTO 3140 
3170 IF G-0 THEN LET R-6: GOTO 
3230 

3190 INPUT "NOVA VELOC . " , LINE 
IS 

3195 LET SP-VAL IS 
3200 IF NOT (LEN I3>0 AND SP>0 
AND SP<1000) THEN GOTO 3190 
3230 NEXT R 



324 0 RETURN 



3000 PCLS 

3010 LINE(O.O)- (255, 191) .PSET.B 

3020 G-10:SP-50 

3030 FOR R-l TO 6:CLS 

3040 PRINT "G -"iG;"M/S/S":P 

RI NT "VELOCIDADE-" : SP : "M/S" 

3050 PRINT 8448 , *<ENTER> PARA A 

3060 IF INKEY30CHRSU3) THEN 3 
060 

3065 SCREEN 1 . 0 

3070 FOR T-0 TO 200 STEP .5 

3080 H-SP*SIN(ATN(1))*T-.5*G*T* 



3100 IF X>251 THEN T-250 :GOTO 3 

106 ELSE IF H>189 THEN SOUND 25 

0,l:D-25 ELSE PSET (X+2 , 190-H. (R 

+3)/2):SOUND H+10,l:D-35 

3104 IF PEEK(345)-255 AND D>0 T 

HEN D-D-1:GOTO 3104 

3106 NEXT 

3110 IF R>5 THEN 3230 
3115 D-100 

3119 AS-INKEYS 

3120 IF INKEVS-"" AND D>0 THEN 
D-D-l:GOTO 3120 

3130 PRINT #416."":PRINT #446," 

3140 PRINT #416, "NOVA GRAV. (0 
SAI) " ; : INPUT G 

3160 IF G<0 OR G>9999 THEN 3130 
3170 IF G-0 THEN R-6:GOT0 3230 
3180 PRINT #448,"" 
3190 PRINT #448, "NOVA VELOC.:*; 
: INPUT SP 

3200 IF SP<0 OR SP>999 THEN 318 



3000 SCREEN 2,0,0 

3010 LINE (5.0) - (250. 160) .15, B 

3020 SP=50:G=10 

3025 OPEN "GRP : " FOR OUTPUT AS 
II 

3030 FOR R=l TO 6 
1040 LINE (250,195)-(5,161) ,4,B 
F:PRINT#1."G =";G:"M/S/S VE 
L =" i SP ; "M/S'' 

3050 LINE (250,195) - (5. 180) ,4, B 
F: PP.TNTI1 . "TECLE <RETURN> PARA 

3060 IF INKFYSOCHRS (13) THEN 3 
060 



3100 IF X>245 THEN T=250:GOTO 3 
106 ELSE IF H>159 THEN PLAY"N90 
L19" ELSE PSET (X+6 . 160-H) , 15 : A 
S*"N"+STRS ÍINTIH/2) ) +"L3 9" : PI.AY 
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AS 

3104 FOR 1 = 1 TO LOO-IF INKEYS < 

>CHRS(32) THEN NEXT I 

3106 NEXT T 

3110 IF R>5 THEN 3230 

3120 FOB 1=1 TO 200-IF INKEYS < 

>CKRS(32) THEN NEXT I 

3140 LINE [250, 195)- (5, 180) ,4.B 

F : PRINTI 1 . "NOVA G? (0 TERMINAI : 

■:GS-"". 

31-92 PRESET (200,180) :PBINTil,G 
S 

3145 AS'INKEYS:IF AS -CHBS (23] T 
HFN 3160 

3150 IF AS<"0" OR AS>"9" THEN 3 
145 

3155 GS-GS+AS:GOTO 3142 

3160 G=VAL (GS) : IF G = 0 THEN R = 6: 

GOTO 3230 

3170 IF G<0 OR G>9999 THEN 3140 
3180 LINE (250,195)-{5.180) ,4,B 
F : PRINTI 1 , "NOVA VELOC? " : SPS" " " 
3182 PRESET (200,180) : PH TNTt 1 , S 

PS 

3185 AS^INKEYS : TF AS=CHRS(13) T 

HEN 32104180 RETURN 

3190 IF AS<"0" OR AS>"9" THEN 3 

185 

3195 SPS-SPS+AS:GOTO 3182 
3210 SP=VAL(SPS) 

3220 IF SP<0 OR SP>999 THEN 318 



3150 HTAB 1: VTAB 23: CALL - 
958: VTAB 23: INPUT "NOVA ACEI.fi 
RACAO (0 TERMINA) "iO 
3160 TF G < 0 OR G > 9999 THEN 
3150 

3170 IF G - 0 THEN R = 6: GOTO 
3230 

3180 HTAB l: VTAB 23: CALL - 
958: VTAB 23: INPUT "NOVA VELOC 
IDADE (0 TERMINA) " jSP 
3200 IF SP < 0 OR SP > 999 THE 
N 3180 

3230 NEXT R 
3240 RETURN 

Execute o programa e escolha a op- 
ção 3. Após <ENTER> ou < RE- 
TURN > lerem sido pressionados, serão 
traçados pontos segundo uma curva que 
começa no canto inferior esquerdo da 
tela e termina em algum lugar em dire- 
ção ao canto inferior direito. Essa é a 
trajetória de um objeto lançado a uma 
velocidade inicial de 50 m/s sob gravi- 
dade G. 



GB 



3000 HGR : HCOLOR= 3 

3010 HPLOT 0,0 TO 279,0 TO Z79 

, 159 TO 0 . 159 TO 0,0 

3020 G' = 10:SP - 50 

3030 FOR R = 1 TO 6: HOME 

3040 VTAB 22: PRINT "G- ":G;" 

M/S/S " ; "VELOCIDADE 3 " ;SP:" M 

/S": VTAB 24: PRINT "TECLE <CR> 

PARA DISPARAR " : 
3060 GET AS: IF AS < > CHRS 
[13) THEN 3060 

3070 FOR T ■ 0 TO 200 STEP .5 
3080 H = SP • SIN [ ATN (D) * 

T-.5*G"T«T 
3090 X = SP ■ COS ( ATN ( l ) ) * 

T 

3095 IF H < 0 THEN T - 250: GO 
TO 3125 

3100 ih x > 7.7R tu KN T - MO: 
GOTO 3125 

3105 IF H > 160 THEN POKE 769 

,200: POKE 768,2: CALL 770 

3110 IF H < 160 THEN HPLOT X 

+ 2,160 - H: POKE 769, H: POKE 7 

68,2: CAI.L 770 

3115 POKE - 16368,0 

3120 FOR D = 1 TO 20: IF PEEK 

( - 16384) < J28 THEN POKE - 

16368.0: NEXT 
3125 NEXT T 

3130 IF R > 5 THEN 3230 

3135 POKE - 1636B.0 

3140 FOB D - 1 TO 300: IF PEE 

K ( - 16384) > 127 THEN D = 300 

3145 POKE - 16368,0: NEXT 



A estrutura da rotina é similar às an- 
teriores. O cálculo e o traçado são fei- 
tos em um laço FOR.. -NEXT (linhas 
3030 a 3230), que permite comparar seis 
trajetórias diferentes, cinco das quais es- 
pecificadas pelo usuário. Um valor 0 
provoca o retorno ao menu. Mas é mais 
provável que você queira digitar um no- 
vo conjunto de valores para comparar 
as trajetórias. 

Coloque o valor 5 em G e mantenha 
SP em 50; pressione < ENTER > . Des- 
ta vez, o objeto irá mais alto e mais lon- 
ge. Mantenha G em 5 e reduza SP para 
25. Compare os resultados. 

Continue experimentando: modifi- 
que tanto G quanto SP e preste atenção 
aos sons. Estes foram especialmente pla- 
nejados para ajudá-lo a compreender o 
movimento do objeto na tela. Dessa ma- 
neira, sons cada vez mais agudos indi- 
cam um movimento ascendente. A que- 
da, por sua vez, é marcada por sons ca- 
da vez mais graves. 



Lembre-se de que a trajetória do ob- 
jeto é Iraçada como coordenadas H no 
eixo Y e coordenadas X no eixo X. Es- 
sas duas variáveis são calculadas nas li- 
nhas 3080 e 3090. A única diferença en- 
tre elas é que a coordenada H tem a ve- 
locidade (SP) multiplicada pelo seno do 
ângulo e a coordenada X tem SP multi- 
plicada pelo co-seno do mesmo ângulo 
(45°). Isso explica por que, quando G é 



pequena e SP grande, a trajetória pare- 
ce uma linha diagonal a 45 u . 



SENO, C0-SEN0, TANGENTE 



Essas funções trigonométricas são ne- 
cessárias para calcular a f ração do mo- 
vimento que se aplica a cada uma das 
duas direçòes. Tais frações, por sua vez, 
são chamadas de componentes horizon- 
tal e vertical do movimento. Se este tem 
uma velocidade inicial de 50 m/s, por 
exemplo, as duas componentes serão 
menores que 50. Somadas, elas dão exa- 
tamente 50 m/s. 

Como você deve estar lembrado, a 
componente vertical é SP*SEN A e a 
horizontal, SP*COS A, onde A é o ân- 
gulo de inclinação do lançamento. 



VISUALIZE 0 MOVIMENTO 



Para compreender como esses valo- 
res são obtidos, é conveniente dar uma 
olhada em um esquema. O desenho da 
página 768 mostra um projétil inician- 
do seu movimento com velocidade real 
V em um ângulo A com a horizontal. 
As linhas tracejadas, por sua vez, mos- 
tram as componentes da velocidade (Vh 
e Vx) nas duas direçòes. 

O seno do ângulo A é Vh/V; temos 
assim uma relação que pode ser lida co- 
mo Vh = V*SEN A. Da mesma forma, 
o co-seno de A é Vx/V, de onde inferi- 
mos a equação Vx = V*COS A. 

Seguindo esse padrão, temos 
SP*SEN 45 para a componente vertical 
da velocidade e SP*COS 45 para a com- 
ponente horizontal. 

No programa, isso aparece de um 
modo um pouco diferente. Ã exceção do 
Spectrum, usa-se a função ATN(l). Es- 
sa função (arco tangente) fornece o ân- 
gulo cuja tangente é 1 (nosso caso): o 
ângulo de 45°. O computador, porém, 
utiliza tal valor em radianos. Por isso, 
recorremos à função — que fornece o 
valor na unidade adequada — e não ao 
valor 45, diretamente. No Spectrum usa- 
se o valor pi/180, que equivale a 1 grau, 
multiplicado por 45. 



COMO MUDAR 0 ÂNGULO 



Neste ponto, você pode estar queren- 
do saber por que o ângulo foi fixado em 
45°. Na verdade, tanto o ângulo quan- 
to a velocidade inicial podem ser alte- 
rados para mudar a trajetória do projé- 
til. Mais frequentemente, varia-se o ân- 
gulo, deixando a velocidade constante. 
E o que faremos agora: 



um 



PROGRAMAÇÃO BASIC 
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COMO É PEITA A SIMULAÇÃO OE 
UM MOVIMENTO 

Todos os programas que simulam 
fenómenos físicos de natureza conti- 
nua, como o movimento de um corpo 
no espaço, utilizam o mesmo tipo de 
modelo matemático: as equações de 
diferenças finitas. Por esse motivo, é 
interessante saber qual o seu significa- 
do e como funcionam. Assim, seus es- 
forços de programação em muitas 
áreas, inclusive jogos, serão bem mais 
profissionais. 

Uma equação de diferenças finitas 
diz qual é a lei matemática que rege a 
maneira pela qual uma variável muda 
com o tempo. Tomemos como exem- 
plo o movimento de um corpo com ve- 
locidade constante. Suponhamos nes- 
se caso que a distância percorrida pe- 
lo corpo em um intervalo de tempo bem 
pequeno — que chamaremos de DT — 
é DD. Como consequência, a equação 
que rege DD em função de DT é: 

DD = V •DT, 
onde V é a velocidade do corpo. 

Na realidade, o que acontece na na- 
tureza é um movimento contínuo, ou 
seja, podemos imaginar um DT infini- 
tesimalmente pequeno. Porém, se der- 
mos agora o nome D â distância total 
percorrida pelo corpo, teremos a se- 
guinte equação, que é bem mais útil 
que a primeira: 

D = D + VT 

Essa é a forma a ser colocada em 
um programa de computador e se cha- 
ma equação de diferenças finitas. Ela 
é calculada repetidamente, começan- 
do com o valor de D - 0. O valor de 
D é então incrementado a cada inter- 
valo DT por um "pedacinho" calcula- 
do pela fórmula VDT. Esse processo 
simples corresponde a uma integração 
da distância ao longo do tempo (inte- 
gração é um termo específico da parte 
da matemática chamada cálculo dife- 
rencial e integral). 

Como não é possível trabalhar em 
um computador com uma grandeza in- 
finitamente pequena para DT, usa-se 
um OT pequeno mas finito. 



4000 CLS 
4010 LET FL-0 

4020 RESTORE : FOP N-0 TO 7 : BE 
AD A : POKE USR "A"+N,A: NEXT N 
4040 LET A-70: LET SP-50 
4060 PRINT AT 0,0,' "ANGULO"" : A ;C 
HRS 144iCHRS 32 

4070 INPUT "<ENTER> PARA ATIRAR 



", LINE 13 

4080 FOR T=0 TO 250 STEP .5 
4OQ0 LET H-SP*SIN ( (PI/180) *A> * 
T-.5"10*T*T: LET X-50*COS ( (PI/ 
180) «A) «T 

4100 IF H>-0 THEN PL0T X.H+16: 
SOUND .05, H/4: PAUSE 40: NEXT 
T: GOTO 4110 
4105 LET T-250: NEXT T 
4110 PAUSE 50 

4130 INPUT "NOVO ANGULO (0 SAI) 
", LINE IS 

4135 IF LEN IS = 0 THEN GOTO 413 
0 

4140 LET A-VAL IS 
4150 IF NOT (LEN IS>0 AND A> = 0 
AND A<90) THEN GOTO 4130 
4160 IF A-0 THEN LET FL-1 
4170 IF NOT FL THEN GOTO 4060 
4180 RETURN 

5000 DATA 24,36,36,36,24.0.0.0 



El 



4092 IF H<0 THEN T=250:GOTO 410 
0 

4094 IF X>245 THEN T=250:GOTO 4 
100 ELSE IF HM59 THEN PLAY"N90 
L19" ELSE PSET (X+6 , 160-H) . 1 5 : A 
S="N"+STRS (INTCH/2) )+"L19" : PLA? 
AS 

4096 FOR 1 = 1 TO 100 : IF INKEVS < 
>CHRS(32) THEN NEXT I 
4100 NEXT T 

11 .10 I.TNJ? (750 . 19M - [!i . 1 RO] .0 .» 
F : PBINTtl . "NOVO ANGULO? (0 TEUM 
INA) :":GS-"" 

4132 PP.ESET (220.180) :PR1NT*1.C 
S 

4135 AS=INKEY$:IF AS=CHPS(13) T 
HEN 4150 

4140 IF AS<"0" OB AS>"9" THEN 4 
135 

4145 GS=GS+A$:GOT0 4132 

4150 A=VAL(GS):IF A=0 THEN 4180 

4160 IF A<0 OR A>B9 THEN 4130 

4170 GOTO 4060 

4180 RETURN 



4040 A-70:3P-50 

4060 CLS:PRINT "ANGULO - ";A;"G 
RAUS" 

4070 PRINT §448,"<ENTER> PARA A 
TIRAR" 

4072 IF INKEYSOCHRSÍ13) THEN 4 
072 

4075 SCREEN 1 , 0 : AN-A«ATN (1) /45 
4080 FOR T-0 TO 250 STEP .5 
4090 H-SP*SIN(AN)*T-.5*10*T»T:X 
-SP*COS(AN) *T 

4092 IF H<0 THEN T-250: GOTO 410 
0 

4094 IF X>251 THEN T-250:OOTO 4 

100 ELSE IF H>189 THEN SOUND 25 

0.1:D-25 ELSE PSET(X+2,190-H,2) 

: SOUND H+10. 1 :D-35 

4096 IF PEEK(345)-255 AND D>0 T 

HEN D-D-l:GOTO 4096 

4100 NEXT 

4110 AS-INKEYS 

4120 IF INKEYS-" THEN 4120 

4130 PRINT 8448 , "NOVO ANGULO (0 

SAI) :"; : INPUT A 
4160 IF A<0 OR A>-90 THEN 4120 
4170 IF A>0 THEN 4060 
4180 RETURN 



4000 SCREEN 2.0,0 

4020 LINE (5,0)-(250.160) ,15,B 

4040 SP=50:A=70 

4050 OPEN "GRP:" FOR OUTPUT AS 
II 

4060 LINE (250,175)-(5.161) ,4.B 
F : PRINT|1 . "ANGULO -";A;"GBAUS" 
4070 LINE (250.195)-{5.180) ,4.B 
F : PRINTJ1 , "TECLE <RETUHN> PABA 
DISPARAR" 

4072 IF INXEYSOCHBS (13) THEN 4 
072 

4075 AN-A*ATN (11/45 

4080 FOR T-0 TO 250 STEP .5 

4090 H-SP"SIN(AN)*T-.5*10*T*T:X 

=SP*COS(AN)*T 
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SB 



4000 HCR : HCOLOR- 3 

4020 HPLOT 0.0 TO 279. 0 TO 279 

.159 TO 0,159 TO 0,0 

4040 SP = 50:A = 70 

4060 HOME : UTAB 21: PP.INT "AN 

f!ULO =' ;A: " GRAUS " 

4065 VTAB 24- PRINT "TECLE <CR 

> PARA DISPARAR * ; 

4070 GET AS: IF AS < > CHBS 

(13) TH EH 4070 

4075 AN = A * ATN [1) / 45 

4080 FOR T = 0 TO 250 STEP .5 

4090 H = SP * SIN (AN) ' T - . 

5 * 10 * T * T:X = SP * COS (A 

ti) * T 

4092 IF H < 0 THEN T = 250; GO 
TO 4100 

4093 IF X > 275 THEH T - 250: 
GOTO 4100 

4094 IF H > 160 THEN POKE 769 
.200: POKE 768,2: CALL 770 



4095 IF H < 160 THEN HPLOT X 
+ 2.160 - H: POKE 769, H: POKE 7 
68,2: CALI. 770 

4097 POKE - 16368.0 

4098 FOfl D = 1 TO 20: IF PEEK 
( - 16384) < JZB THEN POKE - 
16368.0: NEXT 

4100 HEXT T 

4130 HTAB 1: UTAB 23: CALL - 
958: VTAB 23: INPUT "NOVO ANGUL 
O (0 TERMINA) " ;A 
4160 TF A < 0 OR A > 89 THEN 4 

130 

4170 IF A > 0 THEN 4060 



Ao executar a quarta opção, você po- 
derá ver a irajetória de um objeto lan- 
çado com uma velocidade inicial de 50 



m/s e a uma inclinação de 70° (ambos 
os valores determinados na linha 4040 
e usados na linha 4090). 

A rotina funciona como as preceden- 
tes, exceto pelo fato de que se pode dar 
entrada a tantos ângulos quantos se de- 
sejar (entre I o e 89°). Assim, toda vez 
que essa rotina for usada, a variável A 
da linha 4090 armazenará o ângulo que 
você escolheu. Desta vez, a rotina é um 
laço infinito, de modo que só se volta 
ao menu teclando-se 0 para um ângulo. 

Usando esta rotina, tente encontrar 
o ângulo que lhe dá a maior distância 
de percurso nas direções vertical e hori- 
zontal. Será fácil descobri-lo: é o nosso 
conhecido ângulo de 45°. 

Esse ângulo, porém, permite obter a 
maior distância apenas no caso em que 
os pontos de partida c de chegada estão 
no mesmo nível, pois é preciso levar em 
conta a resistência do ar. 
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PROGRAMAÇÃO BASIC 



PROBABILIDADE 



Um dos pioneiros da matemática moderna, 

o francês Blaise Pascal foi 

o criador de um triângulo de números 

extremamente importante 

para o cálculo das probabilidades. 



A força de um computador está na 
sua capacidade de obedecer instruções 
repetidamente, com precisão e velocida- 
de. Entretanto, quando comparado aos 
processos instantâneos de raciocínio do 
ser humano, o computador pode pare- 
cer lento e obsoleto. A mente humana 
é boa principalmente no que diz respei- 
to a julgar e comparar parâmetros, tais 
como distância, velocidade e intensida- 
de de luz. 

Mas até o mais sofisticado dos órgãos 
comete erros ao calcular o resultado de 
eventos. Ainda assim, é essencial, por 
exemplo, poder dizer que, "para fins de 
seguro de vida, uma pessoa vive de 65 
a 70 anos", ou que "não é provável que 
a terra volte a tremer no México em 
1986". Tais afirmações são muito co- 
muns no nosso dia-a-dia. Além disso, 
são importantes para fins sociais, co- 
merciais e científicos. Assim, quando 
empregamos expressões como prós e 
contras, estimativa, dúvida, expectativa, 
estamos fazendo cálculos mentais de 
probabilidade. 



A PROBABILIDADE EXPLICADA 



Probabilidade é uma ferramenta 
científica para se medir o acaso. Usada 
para calcular o provável resultado de um 



evento, ela se baseia na existência de um 
número mensurável de resultados, como 
num jogo de futebol, ou num lançamen- 
to de dados, ou de moedas, num jogo 
de cartas etc. Naturalmente, temos que 
poder medir ou quantificar os resulta- 
dos; por isso, eventos como corridas de 
cavalo ou jogos de futebol são assuntos 
difíceis para o cálculo de probabilida- 
des. Quando dizemos "espero vencer", 
na verdade, estamos afirmando ser alta 
a probabilidade de conseguir a vitória 
e não apenas nosso desejo de triunfar. 

A maioria das pessoas apóia-se na in- 
tuição como principal ferramenta no 
cáJculo do acaso (ou probabilidade). En- 
tretanto, se quisermos examinar os efei- 
tos possíveis e, dentre eles, aqueles que 
são mais prováveis, num problema de 
probabilidade, podemos chegar a um re- 
sultado bastante preciso. Não é difícil 
aprender a prever os resultados mais 
prováveis, e mesmo que não possamos 
garanti-los, a possibilidade de acerto é 
bem maior que a de uma estimativa fei- 
ta a esmo. 



PROBABILIDADE E COMPUTAÇÃO 



Qual será então a relação entre pro- 
babilidade e computação? Embora o ti- 



po de probabilidade descrito até agora 
seja muito vago e dependente de estima- 
tivas, é possível deduzir fórmulas ma- 
temáticas para determinados aconteci- 
mentos que nos permitam prever os re- 
sultados mais prováveis com um certo 
grau de precisão. 

Existem duas maneiras pelas quais o 
computador pode ser útil aqui. A pri- 
meira delas consiste em programá-lo pa- 
ra simular o próprio evento — é bem 
mais cómodo fazer com que a máquina 
jogue um dado 2000 vezes e depois ana- 
lise o resultado do que termos nós mes- 
mos que fazê-lo. A segunda maneira, 
entretanto, só funciona quando conhe- 
cemos as formulas para um certo even- 
to; nesse caso, podemos fazer com que 
o computador calcule o resultado. 

Visto por alguns como um exercício 
puramente teórico, esse tipo de cálculo 
serve de base para muitas aplicações 
úteis do computador. Uma dessas apli- 
cações consiste nos jogos onde, por 
exemplo, os pontos ganhos dependem 
da probabilidade de certos resultados. 
Do mesmo modo, poderíamos escrever 
um programa que estabelecesse as pro- 
babilidades de chover num determina- 
do dia. Por enquanto, porém, vamos 
concentrar nossa atenção apenas na teo- 
ria. Mais adiante, trataremos da cons- 
trução de alguns desses aplicativos. 
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COMO MEDIR A PROBABILIDADE 



A teoria de medição da probabilida- 
de requer que sejam conhecidos os re- 
sultados possíveis de um evento, e que 
eles ocorram com uma certa frequência, 
passível de ser medida. A probabilida- 
de de acontecer um certo evento é o nú- 
mero de vezes com que ele se repete (fre- 
quência), comparado com o total de to- 
dos os resultados possíveis. Ou, em ou- 
tras palavras, é a frequência expressa em 
fração do conjunto dos resultados pos- 
síveis. 

Devemos notar que, se um aconteci- 
metfto se repetir toda vez que ocorrerem 
certas circunstâncias, então sua proba- 
bilidade será igual a 1. Isso porque sua 
frequência será igual ao número de re- 
sultados possíveis, e a divisão de dois 
números iguais resulta em 1 . Temos, en- 
tão, que 1 é a maior probabilidade pos- 
sível, e que a soma das frações de pro- 
babilidade de todos os resultados pos- 
síveis resultará invariavelmente nesse 
número. 

Um dos métodos mais simples e an- 
tigos de visualizar a probabilidade é lan- 
çar uma moeda e prever o resultado, ou 
seja, que face terá ao cair: cara ou co- 
roa. Como a moeda tem só dois lados, 
podemos inferir que, qualquer que fos- 



se o número de lançamentos, devería- 
mos obter cara, metade das vezes, e co- 
roa a outra metade, ignorando a remo- 
ta possibilidade de a moeda cair em pé. 
Para ilustrar melhor esse método, digi- 
te e rode o primeiro programa: 



30 



INPUT "QUAL O TESTE (1-4) ? 

I 

HOME : IF X < 1 OR X > 4 TH 



fffi 



10 COLOR 1,3,3:CLS 
20 INPUT"QUAL O TESTE (1-4) " i X 
30 CLS:IF X<1 OR X>4 THEN 10 
40 ON X GOTO 70,70,180.460 

50 REM probabilidade 

60 REM. .. lançamento de moedas 
70 H=0:T'0 

80 LOCATE5 , 3 : PR INT" PRESSIONE A 
TECLA DE ESPAÇO" 
65 LOCATE9.4:PRINT"PARA LANÇAR 
A MOEDA" 

90 LOCATE13,7:PRINT"CAHAS: 0": 

PB FNTTAB (13) "COROAS? 0" 

100.AS=INKEyS:IFAS=CHRS(13) THE 

N SCREEN0 : RUN 

105 IFASO" "THEN 100 

110 IF X*2 THEN FORN=l TO 100 

120 IFINTJHND(1)*2)+1«1 THEN H- 

H+l ELSE T^-T+l 

130 LOCATE20,7:PRINTH:LOCATE20, 
8 : PRINTT 

140 IF X=l THEN 100 
160 NEXTN :GOTO 100 



mm 



EN 5 

40 ON X GOTO 70,70,160,460 

50 REM PROBABILIDADE 

60 REM . . LANÇAMENTO DE MOEDAS 
70 H - 0:T - 0 

60 PR INT "PRESSIONE A TECLA DE 
ESPAÇO" 

85 PRINT " PARA LANÇAR A MO 

EDA" 

90 VTAB (4): PRINT "CARAS : 0" 

: PRINT "COROAS: 0" 

100 GET AS: IF AS = CHRS 113) 

THEN TEXT : RUN 
105 IF AS < > - - THEN 100 
110 IF X = 2 THEN FOR N = 1 T 
0 100 

120 IF INT ( RND (1) * 2) + 1 

- 1 THEN H = H + l: GOTO 130 
125 T = T + 1 

130 VTAB (4): HTAB (9): PRINT 
;H: HTAB (9) : PRINT ;T 
140 IF X - 1 THEN ) 00 
160 NF.XT N: GOTO 100 



10 PMODE 3,1:CLS 

20 INPUT-QUAL O TESTE {1-4) ";X 
30 CLS:IF X<1 OR X>4 THEN 20 
40 ON X GOTO 70,70.180,460 

50 REM PROBABILIDADE 

60 REM .... LANÇAMENTO DA MOEDA 
70 H-0:T-0 
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80 PRINT «65, "PRESSIONE A BARRA 
DE ESPAÇOS PARA LANÇAR A MO 
EDA" 

90 PRINT «288 . "CARAS - 0*: PRINT 
■COHOAS- 0" 

100 A3-INKEYS:IF ASO" " THEN 1 
00 

110 IF X-2 THEN FOR N-l TO 100 
120 IF RND(2)-1 THEN H-H+1:PRIN 
T «204. "CA": PRINT «295,H;ELSE T 
-T+l: PRINT «207,"CO-:PRINT «327 

.Ti 

130 IF X-l AND PEEK<345)<>247 T 
HEN 130 

140 PRINT «204. "" 

150 IF X-l THEN FOR D=0 TO 400: 

NEXT : GOTO 120 ELSE NEXT 

160 A3«INKEYS:IF ASOCHRSU3) T 

HEN 160 ELSE END 



5 BORDER 7: PAPER 7: INK 9: 

ci.a 

10 DIM n(4) 

20 RESTORE 9000: FOR n-l TO 4 
: READ n(n) : NEXT n 
30 JNPUT "Qual o teate (1 a 4 
)?".x: CLS 

40 BORDER X: GOTO n (x) 

50 REH Probabilidade 

60 REM Lançamento de Moeda 

70 LET h=0: LET t=0 

80 PRINT AT 2 , 1 ; "Pressione <S 

PACE> para lançar" 

90 PRINT AT 20 . 10 i "CARAS - 0" 

; AT 21.10; "COROAS- 0" 
100 IF INKEYSOCHRS 32 THEN 
GOTO 100 

110 IF x=2 THEN FOR n=I TO 
100 

120 IF INT (RND«2)-1 THEN LET 

h=h+l: PRINT AT 10, 15 ; "CA" ; AT 

20,ia : h: GOTO 130 

125 LET t»t+l: PRINT AT 12,15; 

"CO" ;AT 21 ,16; t 

130 IF x=l THEN IF 1NKEXSO 

CHPS 32 THEN GOTO 130 



140 PRINT AT 10.15;" " i AT 12, 

15i" " 

150 IF x=l THEN FOR m=l TO 

100: NEXT BI : GOTO 120 
155 NEXT n: STOP 
9000 DATA 70,70.170,460 

Este programa será incrementado mais 
adiante. Ao rodá-lo, seremos perguntados 
a respeito do número do teste que dese- 
jamos fazer. Esse primeiro programa con- 
tém somente os dois testes iniciais. Digi- 
te I e estaremos prontos para lançar a 
moeda — usando a tecla de espaço. O 
ponto crucial do programa está na linha 
120, que gera aleatoriamente valores 1 
(para cara) e 0 (para coroa), além de fa- 
zer a contagem do número de caras e co- 
roas obtidas). A linha 150 no programa 
do Spectrum e também no do TRS-Color 
provoca uma pausa entre as jogadas. 

Poucos lançamentos, provavelmente, 
fornecerão valores diferentes para cara 
e coroa, representados no programa pe- 
las variáveis H e T, respectivamente. 
Quanto maior o número de jogadas, 
mais próximas uma da outra serão as 
frequências de H e T — tendendo, cada 
uma, à metade do número total de lan- 
çamentos (ou 50%). Para demonstrar 
esse efeito, rode o programa novamen- 
te, mas, desta vez, selecione o teste 2. 
Ao ser pressionada a tecla de espaço, um 
laço preparado pela linha 1 10 lançará a 
moeda cem vezes. Noie que as duas va- 
riáveis, H e T, estão bem próximas de 
50. Mude o 100 da linha 110 para 1000, 
rode o programa e observe como cara 
e coroa tendem para 500. 

Pode acontecer que, num teste de 
poucas jogadas, todas elas sejam coroa. 
Apesar disso, a probabilidade de se ob- 
ter coroa será sempre igual a 1/2 (meio). 
Convém não nos esquecermos disso, 




principalmente quando estivermos tra- 
balhando com mais de um evento. Mui- 
tos acreditam que, se dez lançamentos 
seguidos de uma moeda derem cara, a 
possibilidade de se obter coroa na 
décima-primeira jogada será maior do 
que antes. Isso não é verdade; a possi- 
bilidade de dar coroa ainda será de 50%. 
Os eventos passados não têm influência 
sobre os lançamentos seguintes. No en- 
tanto, se lançarmos onze moedas ao 
mesmo tempo, a chance de se obter on- 
ze coroas será menor que a de obter dez 
coroas e uma cara. A maior chance é de 
que o número de coroas seja próximo 
ao número de caras. 



MÚLTIPLOS EVENTOS 



Quando há vários eventos, algumas 
informações adicionais são necessárias 
para se poder prever a probabilidade de 
cada resultado. Uma informação essen- 
cial é o número total de resultados pos- 
síveis. Por exemplo, se lançarmos duas 
vezes uma moeda, teremos três resulla- 
dos possíveis: duas caras, uma cara e 
uma coroa, e duas coroas. A primeira 
vista, pareceria que cada resultado po- 
de ocorrer 1/3 das vezes. Na verdade, as 
probabilidades são duas caras acontece- 
rem 1/4 (25%) das vezes; duas coroas, 
1/4; e uma cara e uma coroa, 1/2. Para 
entender essa terceira probabilidade, pre- 
cisamos de outra informação essencial, 
que dê conta de quantas vezes cada re- 
sultado ocorre. Uma cara e uma coroa 
acontecem duas vezes, porque existem 
duas maneiras de se obter tal resultado: 
uma cara e depois uma coroa, ou uma 
coroa e depois uma cara. Conseguimos 
assim um total de quatro resultados, três 
dos quais diferentes entre si. 

Na prática, costuma-se usar dois re- 
cursos matemáticos que nos poupam o 
trabalho de calcular a ocorrência de ca- 
da resultado: o teorema binomial e o 
triângulo de Pascal. Binomial significa 
"dois termos". Se um evento tem só dois 
resultados possíveis e conhecemos a pro- 
babilidade de cada um deles, podemos 
usar o teorema binomial para calcular 
tais probabilidades. O teorema binomial 
nos diz o que devemos esperar de testes 
repetidos de um evento com dois resul- 
tados possíveis. Chamaremos P à pro- 
babilidade de um dos resultados e Q à 
do outro (lembremos que a soma de P 
e Q deve ser igual a 1). Denominaremos 
N o número de eventos. 

No exemplo do lançamento de uma 
moeda, P (digamos, a possibilidade de 
dar cara) e Q (coroa) serão iguais a 1/2 
para cada jogada. De acordo com o teo- 
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rema binomial, a chance de que qualquer 
evento aconieça duas vezes seguidas é a 
probabilidade de que ocorra uma vez 
multiplicada por ela mesma. Em geral, 
a regra consiste na probabilidade do even- 
to elevado à potência N. Portanto, para 
o caso de duas caras seguidas, PTN = 
1/2 x 1/2 = 1/4. Existe então uma chan- 
ce em quatro de que obtenhamos duas 
caras seguidas. Do mesmo modo, a pos- 
sibilidade de se conseguir cinco coroas 
sucessivas é PTN = (l/2 T 5), ou 1/32. 

Como veremos mais tarde, podemos 
usar esse método para calcular a proba- 
bilidade cm qualquer caso onde existam 
somente dois resultados possíveis 
(sim/não ou caia/coroa, por exemplo). 
Mas qual seria a chance de se obterem 
três caras e duas coroas em cinco lança- 
mentos? Para responder a essa pergun 
ta, precisamos de um modelo mais com 
plexo. Muito útil neste caso é o triân- 
gulo de números, desenvolvido pelo ma 
temático, físico e filósofo francês Blai 
se Pascal. Esse triângulo fornece todo: 
os resultados possíveis de um evento bi 
nomial, e pode ser entendido como al- 



gumas fileiras de 
ras sete fileiras são: 

Fileira 0) 
Fileira I) 

Fileira 2) 1 
Fileira 3) 1 
Fileira 4) 1 4 
Fileira 5) 1 5 
Fileira 6) I 6 



. As primei 



15 20 15 6 



Para construir um triângulo como es- 
se, escreva primeiramente as fileiras 0 e 
1 , as mais fáceis de serem lembradas. A 
fileira 2 começa com um 1 à esquerda 
da fileira I e termina com um I à direi- 
ta. O número do meio é obtido pela so- 
ma dos dois algarismos imediatamente 
acima dele (1 + 1). Da mesma maneira, 
a fileira 6 é obtida somando-se 5+1, 
5 + 10, 10+10, 10 + 5 e 5 + 1. Se conti- 
nuarmos com esse processo, teremos um 
triângulo com um número de fileiras ca- 
da vez maior, o que seria difícil de con- 
seguir com a utilização de qualquer ou- 
tro método. 

O triângulo de Pascal nos dá todas 
as informações de que precisamos quan- 
do lançamos diversas moedas (ou uma 
moeda várias vezes). O número de moe- 
das (ou de lançamentos) estabelece o nú- 
mero da fileira que devemos olhar; o nú- 
mero de itens na fileira determina o de 
resultados diferentes. Por exemplo, exis- 
tem duas possibilidades para uma moe- 
da (1 e 1 na fileira 1) e sete para seis 
moedas (1, 6, 15, 20, 15, 6, 1 na fileira 
6). A soma dos itens na fileira nos dá 




o número total de resultados (2 para 
uma moeda, 4 para duas moedas, e as- 
sim por diante). 

Cada número na fileira define a pro- 
babilidade. Por exemplo, na fileira 2, o 
primeiro número (I) é a probabilidade 
para duas caras; o segundo (2), a pro- 
babilidade para uma cara e uma coroa; 
o terceiro (I), para duas coroas. Eviden- 
temente, a frequência tem que ser divi- 
dida pelo número total de resultados (4, 
neste caso) para se obter a probabilida- 
de. Note que o resultado da adição dos 
números em cada fileira é sempre uma 
potência de dois (1, 2, 4, 8, 16). Isso 
acontece porque, para qualquer um dos 
eventos, há só duas opções: cara ou 

A praticidade desse método é posta 
à prova quando queremos, por exemplo, 
calcular as probabilidades de lançamen- 
to de trinta moedas; a construção de um 
triângulo com trinta fileiras seria muito 
trabalhosa, além de tomar muito espa- 
ço. Existe, porém, um método gráfico 



ao qual podemos recorrer em tais situa- 
ções, e é aqui que entra a ajuda do com- 
putador. 



CURVAS DE DISTRIBUIÇÃO 



Onde existirem muitos resultados 
com probabilidades não muito claras, 
conseguiremos quase sempre calcular o 
que precisamos, plotando (ou seja, mar- 
cando num gráfico) uma curva de dis- 
tribuição, definida pela frequência dos 
resultados que conhecemos. Como em 
qualquer método gráfico, as informa- 
ções nele contidas são percebidas logo 
de início. Se, por exemplo, uma moeda 
for lançada trinta vezes (o que seria o 
mesmo que lançar trinta moedas de uma 
só vez), podemos traçar um gráfico com 
o número de caras obtidas. Digite a pró- I 
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xima seção de programa, mas não apa- 
gue a anterior: 

m 

170 BEM picoa randOnieoa 

180 SCREEN2:FORX-5 TO 255 STEP 
4 

190 GM-0: GOSUB 610 
200 FORY-0 TO H*6 STEP 2 
210 PSET(X,188-Y> .1 
220 NEXT Y.X 

230 IFINKEYS-""THEN230 ELSE RUN 

610 H=0:T-0 

650 FORS-1 TO 30 

660 IFINT(RND(1)*2)+1-1 THEN H- 
H+l ELSE T-T+l 
670 NEXT 
680 BETURN 

[HEI 

170 REM PICOS ALEATÓRIOS 

180 HGR ! HCOLOR- 3: FOR X = 4 

TO 275 STEP 10 
190 GM = 0: GOSUB 610 
200 FOB N ■ 0 TO H: HPLOT X,16 
0 - (N * 6) : NEXT H 
220 NEXT X 

230 GET AS: IF AS = THEN 23 
0 

235 TEXT : RUN 

610 REM LANÇAMENTO 

620 H - 0:T - 0 

630 HOME : VTAB (22) : PRINT "C 

ARAS ! ": PRINT "COROAS: ' 

640 IF GM < > 0 THEN VTAB (2 

2): HTAB (31): PRINT "JOGO: ";G 

M: HTAB <17): PRINT "CARAS EM 3 

0 LANÇAMENTOS" 

650 FOR S = 1 TO 30 

660 IF INT ( RND (1) » 2) + 1 

■= 1 THEN H - B + li GOTO 668 
665 T-T+l 

668 VTAB (22): HTAB (10): PBIN 
T ;H: HTAB (10) : PRINT ;T 
670 NEXT S 
680 BETURN 

Q 

170 REM .... GRÁFICO 

180 PCLS4:SCREEN 1,0: FOR X-0 TO 

255 STEP 4 
190 OM-0: GOSUB 610 



200 FOR Y-0 TO H*6 STEP 2 

210 PSET(X,1BB-Y,2) 

220 NEXT Tf,X 

230 GOTO 160 

610 H-0:T-0 

650 FOR TS-1 TO 30 

660 IF RND(2)-1 THEN H-H+l ELSE 

T-T+l 
670 NEXT 
680 RETURN 





170 REM Gráfico 

175 PLOT 0.0: DRAM 180,0 

180 FOR x-4 TO 160 STEP 4 

190 LET gm-0: GOSUB 610 

200 FOR n=Q TO h: PLOT x,n*6: 

NEXT n 

220 NEXT x 

230 STOP 

610 REM Lançamento 

620 LET h-0: LET t-0 

630 PRINT AT 4,22i"CARAS -"ih[ 

AT 6,22; "C0BOAS-" ; C 

640 IF gmOO THEN PRINT AT 0, 

0;"JOGADAS-";gni;AT 21, 3 i "CARAS 

EM 30 LANÇAMENTOS : " 

650 FOR a-l TO 30 

660 IF RND>-.5 THEN LET h=h+l 

: PRINT AT 2,24;" CA";AT 4,29 

;h;" ": GOTO 670 

665 LET t-t+l! PE INT AT 2,24;" 

CO " ; AT 6. 29; t ; " " 

670 NEXT 3 

6B0 RETURN 

Ao rodar o programa, desta vez, se- 
lecione o teste 3. Devemos ver na tela 
um gráfico com uma série de pontos 
chegando a vários picos. Esta é uma das 
muitas formas possíveis nesse tipo de 
análise. Os picos são os números de ca- 
ras em cada trinta lançamentos ao lon- 
go do eixo Y, espaçados igualmente ao 
longo do eixo X. Existem mais picos al- 
tos do que baixos. A razão disso é que 
a possibilidade de se obter cerca de quin- 
ze (ou de doze a dezessete) caras é mui- 
to maior que a de se obter um número 
menor ou maior. Isso também pode ser 
observado no triângulo de Pascal, onde 
os valores mais altos se encontram na re- 
gião centrai. 

A linha 180 gera um laço para espa- 
çar os pontos ao longo do eixo X. A va- 
riável GM (número de jogadas) é zera- 
da na linha 190 e uma rotina (linhas 610 
a 680) é chamada para executar cada ba- 
teria de trinta lançamentos. Essa rotina 
usa os elementos do segundo teste, mas 
lança a moeda "eletrônica" trinta vezes 
e não cem. Com exceção do TRS- 
COLOR e do MSX, ao rodarmos esse 
teste, notaremos o placar para cara e co- 
roa que aparecerá na tela. Uma vez atin- 
gidos os trinta lançamentos, o número 
de caras que foi acumulado na rotina so- 
frerá um ajuste de escala na linha 200 
e será plotado na coordenada Y pela li- 
nha 210 (linha 200, no Spectrum e no 
Apple). 

Para tirar o máximo proveito de uma 
análise desse tipo, precisamos rearran- 
jar as informações, de modo que obte- 
nhamos uma das curvas mais conheci- 
das no meio estatístico: a distribuição 
normal. Digite mais estas linhas para 
obtermos tal curva: 
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450 BEM. . .distribuição normal 
460 DTM G(30) 

470 CLS:SCBEEN2:LINE{6,0>-(6,19 
1) ,15:LINE-(255. 191) . 15 
460 GOSUB 560 

485 AS'INKEY$:IFAS<>" "THEN 485 
560 DEF FNN(X)=l/<4. 4429*2. 718' 
( (X*X) 72) ) 

570 DBAW"BM7 , 190" : FOBX=2 TO 255 
STEP2 

580 LINE- (X, 191~640*FNN< (X-127) 
724) ) .1 

590 NEXT : BETURN 



470 HPLOT 0.0 TO 0,159: 

TO 279,159 
480 GOSUB 560 
485 GET AS: IF AS < > 1 
N 485 
490 END 

560 BEM . . .GRÁFICO 
565 DEF FN N(X) = 1 7 



2.718 



((X 



570 FOR X = 1 TO 280 S' 
580 HPLOT X.158 - 660 
(X - 140) / 24) 
590 NEXT X: BETURN 



450 REM .... DI STB, . NORMAL 
460 DIM G(30) 

470 PCLS:SCREEN 1,0: LINE (0 , 0) - { 
0, 191) , PSET : LINE- (255 , 191) , PSET 
480 GOSUB 560 



485 AS-INKEYS:IF A3<>" " THEN 4 
85 

560 DEFFND(X)-1/{4.4429»2.718"( 
(X*X)/2)) 

570 COLOB 2,3:DRAW"BM2.190':FOR 

X-2 TO 255 STEP 2 
580 LINE-(X.191-640*FND((X-127) 
/24)) , PSET 
590 NEXT : BETURN 



450 BEM Diatr .Normal 
460 DIM g(30) 

470 PLOT 4,150: DRAW 0,-140: 
DRAW 245,0 
480 GOSUB 560 

485 IF 1NKEYSOCHRS 32 THEN 

GOTO 4B5 

560 REM Graf . 

570 PLOT 4.10: FOR x=0 TO 1200 
STEP 20 

580 DRAW 4.600*FN n (ABS ( <X- 
600) 7140) ) +10-PEEK 23678 
590 NEXT x: RETURN 
600 DEF FN n ix) =1/ (PI*1 . 41 42* 
2. 718" { (x"2) /2) ) 

Desta vez, rode o programa e selecio- 
ne o teste 4, que é o de uma curva de 
distribuição do tipo normal. A linha 460 
dimensiona uma matriz que será usada 
posteriormente na contagem das caras 
obtidas. 

A linha 470 desenha os eixos das 
coordenadas X e Y e a linha 480 chama 
a rotina que desenha a curva. Essa roti- 
na usa uma função matemática (linha 
580) para desenhar a curva, o que ex- 
plica a forma "perfeita" desta última. 
A função é definida pelas linhas 560 



(MSX e TRS-Color), 565 (Apple e 
TK-2000) e 600 (Spectrum). Por enquan- 
to, porém, não aperte nenhuma tecla, 
pois a rotina está incompleta. Aguarde 
o desenvolvimento do programa. 

Quando usamos informações reais, 
torna-se difícil plotar uma curva contí- 
nua. Isso já era de se esperar, pois esta- 
mos lidando com probabilidades e não 
com certezas. A probabilidade de um re- 
sultado, tal como o de chover na índia 
na época das monções, pode ser alta; 
mas, no caso do exemplo, têm sido re- 
gistrados períodos em que a seca toma 
o lugar das chuvas. 

O próximo teste ilustra muito bem es- 
se ponto. Ele repete várias vezes os ex- 
perimentos anteriores das moedas e co- 
loca no gráfico (plota) os resultados ob- 
tidos. Digite então a segunda parte do 
leste 4: 

im 

490 FOR GM-1 TO 500 

500 GOSUB 610 

510 G (H) -G (H) +1 

520 PSET(H*8+7.192-C(H)*2) ,1 

530 NEXT 

540 GOTO 2 30 

BEBO 

490 FOB CM = 1 TO 200 

500 GOSUB 610 

510 G(H) = G{H) + 1 

520 HPLOT 20 + 8 * H.160 - G IH 
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490 FOB GM-1 TO 500 

500 GOSUB 610 

510 G(H)-G(H)+1 

520 P3ET(H*6+7,192-G(H)*2.3) 

530 NEXT 

540 GOTO 160 



490 FOB g=l TC 200: LET <jni=o 

500 GOSUB 610 

510 LET g(h)-g(h)+l 

520 PLOT B+8*h, 1 0+4*9 (h) 

5.10 PR 1 NT AT 21 . 27 ;h; " " 

540 NEXT g 

550 STOP 

Agora, rode novamente o quarto tes- 
te. Quando a curva ideal tiver sido de- 
senhada, pressione a tecla de espaço pa- 
ra iniciar o lançamento. Aparecerá en- 
tão uma série de pontos "crescendo" 
para preencher o espaço compreendido 
pela curva. Quando o leste estiver com- 
pletado, quinhentos pontos (duzentos 
no Spectrum e no Apple) terão sido co- 
locados no gráfico (especificados na li- 
nha 490). Em alguns micros, tal como 
no Spectrum, o tempo de execução des- 
se leste é de alguns minutos. Para 
acelerá-lo, costuma-se inserir desvios 
(GOTO) em lugares apropriados ao lon- 
go do programa, mas na maioria das ve- 
zes isso traz alteração no funcionamen- 
to dos outros testes. 

Esta seção do programa chama a ro- 
tina (linha 500) que lança a moeda trin- 
ta vezes (no Apple e no Spectrum, os 
lançamentos são mostrados na tela, co- 
mo no terceiro teste). Cada bateria de 
trinta lançamentos forma um jogo, e po- 
de resultar em certo número de caras en- 
tre 0 e 30. Portanto, na matriz da linha 
460, H pode variar de 0 a 30. Se anali- 
sarmos pela óptica da lei das probabili- 
dades, veremos que muito dificilmente 
H assumiria valor 0 ou valor 30 numa 
bateria de trinta lançamentos. Uma si- 
tuação assim é conhecida como "ocor- 
rência rara", justamente pela maneira 
com que os números aleatórios são ge- 
rados. Na verdade, números extrema- 
mente pequenos ou extremamente gran- 
des de caras em lançamentos como esse 
não acontecem com frequência. Sua 
ocorrência é possível, mas a probabili- 
dade é muito baixa. 

A linha 510 faz a contagem do resul- 
tado de cada jogo por intermédio de 
uma matriz. Por exemplo, toda vez que 
o resultado de um determinado jogo for 
onze caras, o elemento de matriz G(ll) 
será incrementado de 1 . Da mesma ma- 
neira, toda vez que o resultado for quin- 
ze caras, G(15) será também incremen- 
I tado de 1. Inicialmente, todos os ele- 



mentos da matriz são iguais a zero. 

Após cada jogada, a linha 520 altera 
a escala do valor de H (número de ca- 
ras em trinta lançamentos), a fim de 
compatibilizá-lo com os eixos X e Y. A 
próxima vez que ocorrer o mesmo resul- 
tado, um ponto será plotado na mesma 
coordenada X, mas uma unidade acima 
na coordenada Y. 

A linha 530 faz a contagem do H em 
cada jogada, verificando também o nú- 
mero de jogadas. 



COMO USAR A CURVA 



Rode algumas vezes o teste 4 para ter 
uma idéia de como variam os pontos sob 
a curva; depois, rode-o com menores va- 
lores finais para GM na linha 490. Mes- 
mo sem a curva ideal, seremos logo ca- 
pazes de imaginar uma curva idealiza- 
da passando pelos picos. Na prática, o 
inverso desse processo imaginário é ex- 
tremamente importante, pois quando 
conhecemos o perfil de uma curva po- 
demos fazer a previsão do resultado de 
testes futuros. 

O valor de H no pico central tem um 
interesse especial. Ele é a média dos 31 
possíveis valores ao longo do eixo X 
(neste caso, 15). A média identifica o pi- 
co da curva, e constitui também o valor 
mais provável; sozinha, porém, ela não 
é muito informativa. Embora possamos 
dizer que 15 seja o resultado mais pro- 
vável, 14 e 16 são quase tão prováveis 
quanto ele. Existe uma faixa de valores 
comuns em torno do pico, e é importan- 
te conhecer a largura desta faixa. A mé- 
dia é usada na especificação de um ou- 
tro parâmetro estatístico importante — 
o desvio padrão — , que é a medida da 
largura da faixa de pontos comuns. A 
fórmula para o desvio padrão é relati- 
vamente complicada. Uma vez calcula- 
do esse parâmetro, podemos atribuir 
uma probabilidade para qualquer um 
dos pontos na curva. 

O desvio padrão mede o quanto os 
valores variam nos dois lados da média. 
Por exemplo, uma seção de curva com 
desvio padrão de 1,96 em cada lado da 
média englobará 95% dos resultados. Se 
aumentarmos o desvio padrão para 
2,58, a curva passará a conter 99% dos 
resultados. 

Os pacotes comerciais de software es- 
tatístico calculam o desvio padrão com 
grande facilidade e rapidez. 



SEIS RESULTADOS POSSÍVEIS 



Existem muitos casos de eventos on- 
de temos mais do que dois resultados 



possíveis. Em tais casos, calcular a chan- 
ce de algum evento não é tão simples co- 
mo olhar uma fileira do triângulo de 
Pascal. 

Por exemplo, quando jogamos um 
dado, podemos conseguir um entre seis 
resultados. Se o dado não for viciado, 
todos os resultados são equiprováveis, 
ou seja, têm a mesma possibilidade de 
vir a acontecer. 

Os resultados para o lançamento de 
dois dados podem ser calculados por in- 
termédio da construção de uma tabela; 
mas, quanto mais resultados tivermos, 
mais complicado ficará o método que te- 
remos de seguir. 

Aqui está uma tabela com todos os 
resultados possíveis no lançamento de 
um par de dados: 

Valor do primeiro dado 
1 2 3 4 5 6 

Valor do I 2 3 4 5 6 7 

segundo 2 3 4 5 6 7 8 

dado 3 4 5 6 7 8 9 

4 5 6 7 8 9 10 

5 6 7 8 9 10 11 

6 7 8 9 10 11 12 

Como vemos na tabela, existem 36 
maneiras diferentes de os dados caírem 
(seis linhas vezes seis colunas), embora 
haja somente onze resultados diferentes. 
A tabela apresenta várias outras infor- 
mações. Existe uma possibilidade em 36 
de obtermos os pontos mínimo e máxi- 
mo (2 ou 12 aparecem somente uma vez 
na tabela); em contrapartida, há seis 
possibilidades em 36 (1/6) de obtermos 
7 como resultado. Existe também uma 
chance em 36 de jogarmos repetido. Es- 
sa chance é mostrada na diagonal que 
vai de 2 (duas vezes o número 1) até 12 
(dois 6). 

Combinando o teorema binomial 
com essa tabela, podemos calcular as 
probabilidades para muitos jogos. Um 
bom exemplo de evento de múltiplo lan- 
çamento de dados é o jogo Monopólio, 
onde o jogador, caso esteja na "ca- 
deia", tem direito a três lances para ten- 
tar conseguir uma dupla (dois dados 
iguais). Intuitivamente, pode parecer 
que ele conta com 50/50 de possibilida- 
des de sair da "cadeia" (três jogadas, 
cada uma com 1/6 de chance), mas isso 
não é verdade. Pela tabela, podemos ve- 
rificar que a chance de o jogador não 
conseguir uma dupla é de 30/36 (5/6) 
para cada jogada. Usando o teorema bi- 
nomial, perceberemos facilmente que a 
chance de ele não conseguir uma dupla 
três vezes seguidas é 5/6 elevado à po- 
tência 3, ou 125/216. Isso equivale, 
aproximadamente, a 58% de possibili- 
dades de fracasso. 
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SIMULÂCÔI 
ISFÂCÍâÍS 



ESCOLHA DA TRAJETÓRIA 



AVALIAÇÃO DA DISTANCIA 



CIRCUNDANDO A TERRA 



MANOBRAS NO ESPAÇO 



MOVIMENTO PL ANETÁRIO 



Atingir as estrelas é um antigo sonho 
do homem. Com nossos programas, 
que permitem simular a trajetória de 
um corpo no espaço, você estará 
mais perto da realização desse sonho. 



No artigo sobre trajetórias (página 
766), vimos como a velocidade de um 
projétil pode ser separada, para fins de 
análise, em uma componente vertical e 
outra horizontal. Vimos também como 
a distância do ponto de partida ao pon- 
to de chegada pode mudar conforme o 
ângulo de lançamento e a velocidade ini- 
ciai. Neste artigo, avançamos mais um 
pouco no estudo dos corpos em movi- 
mento. Analisamos objetos que se mo- 
vem em campos de baixa gravidade, si- 
mulando sua trajetória a partir de pe- 
quenas distâncias da superfície da Ter- 
ra e estudando corpos em órbita. 

Digite este primeiro programa. Ele é 
um bom exemplo de como utilizar seu 
conhecimento de trajetórias para mon- 
tar jogos que usam disparos ou outros 
lançamentos mais desafiadores. 



10 FOR n=0 TO 31: READ , 
POKE USR "a"+n.a: NEXT i 




PAPER 0: INK 9: 
CLS 

70 LET a-INT (RND*5) : LET b- 
INT (BND*5)+26: LET c-INT t 
BND*8)+2: LET h-INT (RND»B)+2 
: LET at-INT <RND*100-c*8)+l: 

LET d=0 
90 LET d=d+l 
100 CLS : GOSUB 300 
110 INPUT "ANGULO ?",a2 
120 IF a2>89 OH a2<l THEN 
GOTO 110 

130 INPUT "VELOCIDADE ?",e 
140 IF e=0 THEN GOTO 100 
160 LET an=a2* (PI/180) : LET 
x=0 

170 LET x2-x+(a+l>«8 

180 LET y=8+(x*TAN an-4*x"x/ te 



•COS , 



•COS ■ 



i) ) 



1B5 IF AT TB (21-1NT (y/8),INT 

(x2/8))=6 THEN GOTO 245 

190 IF y< = 0 THEN GOTO 245 

200 IF (y>175 OR x2>255) AND d 

<10 THEN GOTO 90 

205 IF y>175 OR x2>255 THEN 

GOTO 270 

210 PLOT INK 8;x2,y: SOUND 

.01 , y/10 

220 LET X-X+3 

230 GOTO 170 

245 IF x2>=b«8+3 AND x2<=b*8+ 
10 THEN PBINT AT Z.l .biCHRS 
145: FOR n-20 TO 0 STEP -1: 
SOUND .Ol.n: NEXT n: GOTO 270 

246 IF d<10 THEN GOTO 90 
270 IF d=10 THEN PBINT AT 8. 




10 ; "ERROU ! " : GOTO 280 
275 PRINT INVERSE 1;AT 8,)0j" 
BOM TIRO !";AT 10.5;"VOCE CONS 
EGUIU APOS " ;d 

280 PAUSE 100: PRINT BBIGHT 1 
; PAPER 2: INK 6 ; AT 13,8;"OUTR 
A VEZ?" : PAUSE 200 
290 GOTO 70 

300 PRINT INK 5 ; AT 21,a;CHBS 
144jAT 21,b;CHRS 146 
310 FOB n-1 TO c: PRINT AT 21- 
n+1,12;: FOB m=l TO c: PRINT 
INK 6;CHRS 147l! NEXT m: NEXT 
n 

320 RETURN 

500 DATA 3,6,60,40,104,60,126, 
255 

510 DATA 36.90.165.90,60,155, 
24.60 

520 DATA 24,36,66.153.153.66, 
36,127 

530 DATA 28,42,85,170,127.170. 
85,255 



10 PMODE 4:DIH G (1) , E (1) , T (1) ,B 

(D 

20 FOR K-1536 TO 2529 STEP 32 :R 
EAD A:POKE K . A : NEXT 
30 GET (O,0)-(7,7) ,C.G: GET<0 . 6) 
-(7,15) ,S,0 

40 GET (0,16>-<7,23) ,T.G:GET(0, 
24)-(7,31) .B,0 

50 DATA 3,6,60,40,104,60,126,25 
5,36.90,165,90,60,155,24,60 I 
60 .DATA 24.36,66,153,153,66.36, 
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127.20.42,85,170,127,170,85,235 
70 A-RND(51)-1:B-RND(51)+197:C- 
RND(8) :H-RND(8)+1:8T-RND(1Q0-C« 
8)+70:D-0:CL8 
80 D-D+l 

90 PCLS:SCR11H 1,1:008UB 320 
100 ir INKEY3-" THEN 100 
110 PRINT:INPUT ■ ANGULO " |A2 
120 IF A2>89 OB A2<1 THEN 110 
130 INPUT " VELOCIDADE "|E 
140 XF E-0 THEN 130 
150 SCREEN 1,1 
160 AN-A2*ATN(l)/45:X-0 
170 X2-X+A+8 

180 Y-183-<X*TAN(AN)-4"X*X/(E"E 

«COB (AN)*COS(AN))> 

190 IF YM90 THEN 250 

200 XF X2>-8T AND X2<ST+C«8+7 A 

ND Y>183-H"8 THEN 250 

210 IF Y>0 THEN P8ET(X2,Y,5) :80 

UND 200-Y.l ELSE 80UND 255 AND 

(200-Y) .1 

220 X-X+3 

230 XF X2<255 THEN 170 

240 aoTO 290 

250 IF Y>190 THEN Y-1B4 

260 PUT(X2-4,Y)-(X2+3.Y+7) ,E,PS 

ET : PLAY " T 5 0 0 1 AD E CB FG A KDBGDE " 

270 PUT(A,184>-(A+7,191) .O.PSET 

: PUT <B. 184) - (B+7 . 191) , T , P8ET 

280 IF X2>-B AND X2<B+7 THEN 30 

0 

290 IF D<10 THEN BO 

300 CL8:IF D-10 THEN PRXNT «41. 

' ERROU 1' ELSE PRINT «41, "BOM 

TIRO 1"; PRINT 8164.- VOCR CON8E 

OUIU AROS'iDi'DISPAROS.' 

310 FOR W-l TO 3000:NBXT:PRINT: 

PRINT" OUTRA VEZ ,..":FOR W-l T 

O 1200:NEXT:OOTO 70 

320 FOR X-0 TO C:FOR Y-0 TO H : P 

UT (ST+X*8 , 1B4-8*Y) - (8T+X"B+7 . 19 

1-8*Y) ,B,PSET 

330 NEXT Y.X 

340 PUT(A,1B4)-(A+7,191) .G.PBET 
:PUT(B,1B4)-(B+7,191) ,T,P8ET:RE 
TURN 



10 W-RND(-TIME) 

70 A-INT(RND{1)*51) :B-INT(RND(1 
) «51+198) :C-INT(RND<1}«8+1) :H-I 
NT(RNDU)«9)+2:ST-INT(RND(1)M1 
01-C*8))+70:D-0:CLS 
80 D-D+l 

90 SCREEN2:QOSUB 320 

100 IF INKEYS-"" THEN 100 

110 SCREENO:PRINT:INPUT"Angulo 

"(A2 

120 IF A2>89 OR A2<1 THEN 110 
130 PRINT :INPUT"Velocidade " ; E 
140 IF E-0 THEN 130 
150 SCREEN2 : GOSU8 320 
160 AN-A2*ATN(l)/45:X-0 
170 X2-X+A+8 

180 Y-183-(X*TAN{AN)-4*X*X/(E*E 

•COS (AN) "COS (AN))) 

190 IF Y>190 THEN 250 

200 IF X2>-ST AND X2<ST+C*8+7 A 

ND Y>183-H"S THEN 250 



210 IF Y>0 THEN P3ET (X2 , Y) : AS-" 
N"+STR3UNT((190-Y)/2))+"L19":P 
LAY AS 
220 X-X+3 

230 IF X2<255 THEN 170 

240 COTO 290 

250 IF Y>190 THEN Y-184 

260 LINE (X2,Y)-(X2,Y-8) : PLAY " 

O IAM" 

280 IF X2>-B AND X2<B+7 THEN 30 
0 

290 FOR W-l TO 1500:NEXT:IF D<1 
0 THEN 80 

300 SCREENO:IF D-10 THEN PRINT ! 
PRINT"TUDO FOI EM VAO!" ELSE PR 
INT: PRINT"BOM TIRO! " : PRINT"Voc« 

acertou em" : D ; "disparos 1 " 
310 FOR W-l TO 3000: NEXT: PRINT: 
PRINT"Outra vez...":FOR W'l TO 
1500: NEXT: GOTO 70 
320 FOR X-0 TO C:FOR Y-0 TO H:P 
SET (ST+X*8,184- Y*8) 
330 NEXT Y,X 

340 LINE (A, 184) - (A+S , 184 ) : LINE 
(A+3,184)-(A+3,180) :I.INE (B.18 
4)-{B+5,184) : LINE [B+3 . 184 ) - (B+ 
3, 180) : RETURN 

3\m 

10 FOR I - 770 TO 795: READ A: 

POKE I,A: NEXT 
20 POKE 768,2 

70 A - INT t RND (1) * 51) :B - 
INT ( RND (1) * 51 + 198) :C - 



INT { RND U) * 8) + 1:H - I 
NT ( RND (1) * 9) + 2:ST - INT 
( RND (1) * (101 - C ■ 8) ) +7 
0:D - 0: HOME : VTAB 21 
80 D - D + 1 

90 HOR : HCOLOR- 3: GOSUB 320 
100 GET AS 

110 INPUT "ANGULO? "iA2 

120 IF A2 > B9 OR A2 < 1 THEN 

110 

130 VTAB PE EK (37): HTAB 20: 
INPUT "VELOCIDADE? "íE 
140 IF E - 0 THEN 130 
160 AN - A2 * ATN (1) / 45:X - 
0 

170 X2 - X + A + 8 

1BO Y - 157 - (X « TAN (AN] - 

4 * X * X / (E«E* COS (ANI 

* COS (AN))) 

190 IF Y > 160 THEN 250 

200 IF (X2 > - ST) AND <X2 < 

ST + C * 8 + 7) AND (Y > 157 - 

H • B) THEN 250 

210 IF Y > O THEN HPLOT X2.Y: 

POKE 768,2: POKE 769,200 - Y: 
CALL 770 
220 X - X + 3 
230 IF X2 < 259 THEN 170 
240 GOTO 290 

250 IF Y > 158 THEN Y - 158 
260 HPLOT X2.Y TO X2.Y - 8: FO 
RX-1T0 12:W- PEEK ( - 163 
36) : NEXT 

2B0 IF X2 > - B AND X2 < B + 
7 THEN 300 

290 FOR I - 1 TO 1000: NEXT : 
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IF D < 10 THEN 80 
300 FOR I - 1 TO 1500: NEXT : 
HOME : TEXT : IF D - 10 THEN P 
RI NT ! PRINT "TUDO FOI INÚTIL ! " 
! GOTO 310 

305 PBINT ! PBINT "BOM TIRO!": 
PR TNT "VOCE ACERTOU EM " ;D; " D 
ISPAROS ! " 

310 FOB I - 1 TO 4000: NEXT : 
PRINT : PR TNT "OUTBA VEZ...": F 
OH I - 1 TO 4000: NEXT : GOTO 7 
0 

320 FOB X - 0 TO C: FOR Y = 0 
TO H : HPLOT ST + X * 8,158 - Y 
« 8 

330 NEXT : NEXT 
340 HPLOT A, 158 TO A + 5,158: 
HPLOT A + 3,158 TO A + 3,150: H 
PLOT B.158 TO B + 5.158: HPLOT 
B + 3,158 TO B + 3.150: BETURN 

5000 DATA 172.1.3,174,1,3.169 
,4,32.168.252.173,48,192,232,20 
8.253,136.206,239.205.0.3,208,2 
31.96 

O programa solícita que você especi- 
fique a velocidade e o ângulo de lança- 
mento para executar um disparo de úm 
ponto próximo ao canto inferior esquer- 
do da tela até um alvo situado junto ao 
canto inferior direito. Dois fatores difi- 
cultam o jogo: a determinação aleató- 
ria da distância entre o ponto de lança-, 
mento e o alvo e a presença de uma bar- 



reira de tamanho variável entre os dois 
pontos. Qualquer trajetória que se es- 
colha deve ser alta o bastante para trans- 
por essa barreira. 



AVALIAÇÃO DA DISTÂNCIA 



Conhecemos só as posições do atira- 
dor, do obstáculo e do alvo. No entan- 
to, podemos estimar corretamente a ve- 
locidade e o ângulo necessários para 
produzir uma curva que leva o projétil 
acima do obstáculo até atingir o alvo. 
Com um pouco de prática, você verá 
que é possível obter grande proporção 
de acertos em uma série de tiros. 

Mas, em geral, as coisas não são tão 
fáceis. Muitas vezes temos apenas uma 
idéia aproximada da distância até o al- 
vo, e devemos calcular a velocidade e 
ângulo de tiro com este dado impreci- 
so. Analisando se o tiro caiu para cá ou 
para lá do alvo, avaliações mais preci- 
sas vão sendo feitas, até que se consiga 
sucesso. O programa seguinte mostra es- 
se processo. Depois de gravar o progra- 
ma anterior, apague-o e digite estas 
linhas: 




-10 CLS 

20 INPUT "VELOCIDADE INICIAL 
(1-10000 n/n)", sp 
30 IF ap<l OR ap>10000 THEN 
GOTO 20 

40 INPUT AT 4.0i"ANGULO (1-90 
graus)", a 

50 IF a<l OB a> = 90 THEN GOTO 
40 

60 LET a-a* (PI/180) 
70 LET r-Hp*Bp*SIN (2«a)/10 
80 PBINT AT 10,3;"O ALCANCE F 
OI DE ":INT (r+.5)i" metros" 
90 PBINT AT 20.1; "QUALQUER TE 
CLA PARA RECOMEÇAR tO SAI) " 

100 PAUSE 0: LET a$"INKEY3 ! IF 

aS="" THEN GOTO 100 

110 IF a$<>"0" THEN GOTO 10 

Q 



10 CLS 

20 INPUT" VELOC. INICIAL (1-100 
00 M/S) ";8P 

30 IF SP<1 OR SPM0000 THEN 10 
40 INPUT* ANGULO (1-90 GRAUS) " i 
A 

50 IF A<1 OR A>90 THEN 40 

60 A-A*ATN(l)/45 

70 R-SP*SP*SIN(2»A)/10 

80 PRINT: PRINT" O ALCANCE FOI D 

B" ; INT (R+ . 5) i "METROS" 

90 PRINT:PRINT" QUALQUER TECLA 

PARA RECOMEÇAR '0' SAI" 

100 AS-INKEY9:IF AS-"" THEN 100 



110 IF AS--0" THEN CLS : END ELSE 
10 



10 CLS 

20 INPUT"VELOCIDADE DE LANÇAMEN 
TO {1-10000 M/S) " :SP 
30 IF SP<1 OR SP>10000 THEN 10 
40 INPUT"ANGULO DE LANÇAMENTO { 
1-90 GRAUS) " ;A 
50 IF A<1 OR A>89 THEN 40 
60 A-A-ATNCD/45 
70 R=SP*SP*SIN(2*A)/10 
80 PBINT : PBINT"A DISTANCIA ALCA 
NÇADA g";INT(R+.5) ; "METROS" 
90 PRINT:PRINT"PRESSIONE <0> PA 
RA TERMINAR OU QUALQUER OUT 
RA TECLA PARA CONTINUAR" i 
100 AS=INKEYS:IF A$ = " THEN 100 
110 IF AS="0" THEN CLS : END ELSE 
10 

BH31 

10 HOME 

20 INPUT "VELOCIDADE DE LANÇAM 
ENTO (1-1000 M/S) ? "iSP 
30 IF SP < 1 OR SP > 10000 THE 
N 10 

40 INPUT "ANGULO DE LANÇAMENTO 

(L-90 GRAUS)";A 
50 IF A < 1 OR A > 69 THEN 40 
60 A ■ A * ATN (1) / 45 
70 R - SP * SP * SIN (2 * A) / 

10 

80 PRINT : PBINT "A DISTANCIA 
ALCANÇADA E DE " ; INT (R + .5); 
" METROS" 

90 PRINT : PRINT "TECLE <0> PA 
BA TERMINAR OU QUALQUER 
OUTRA TECLA PARA CONTINUAR" ; 
100 GET AS 

110 IF AS = "0" THEN HOME : E 
ND 

120 GOTO 10 

O programa pede valores para a ve- 
locidade inicial (linha 20) e para o ân- 
gulo de lançamento (linha 40). A linha 
70 calcula e mostra a distância a que es- 
ses dois valores levariam o projétil. A 
variável R corresponde à distância; SP 
refere-se à velocidade e A, ao ângulo. 
O valor aproximado para a aceleração 
da gravidade próximo à superfície da 
Terra é igual a 10. 

Ignora-se o efeito da resistência do ar 
mas, em experimentos reais, ele deveria 
ser considerado. A maior velocidade de 
lançamento permitida é 10000 m/s. A 
velocidade de 2000 m/s foi usada em 
lançamentos de objetos a grandes alti- 
tudes, para pesquisar o espaço. Os ob- 
jetos atingem 180 km de altitude quan- 
do lançados a um ângulo de 90°. Mas, 
sem contar a resistência do ar, chegam 
a 250 km. 
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CIRCUNDANDO A TERRA 



Se um objeto é lançado em um ân- 
gulo que o leva muito longe da superfí- 
cie da Terra, o efeito da fricção do ar 
diminui. Porém, quando se pretende 
que ele atinja uma grande distância do 
ponto de lançamento, é preciso levar em 
conta a curvatura da Terra. 

Um dos primeiros a considerar esta 
questão foi o cientista inglês Isaac New- 
ton. Ele imaginou um poderoso canhão 
que lançasse seus projéteis do alto de 
uma montanha suficientemente grande 
para que seu pico ficasse fora da atmos- 
fera terrestre. Tiros dados a velocidades 
crescentes levariam a distâncias também 
crescentes se a Terra fosse plana. Mas, 
como ela é curva, a superfície se afasta 
do ponto de lançamento, fazendo com 
que o projétil percorra distâncias ainda 
maiores. 

Eventualmente, argumentava New- 
ton, um lançamento poderia ter uma ve- 
locidade inicial tão alta que o projétil 
nunca atingiria o solo, mas poderia, em 
termos teóricos, atingir o pesquisador 
bem na nuca. À medida que o projétil 
caísse em direção ao solo, este "cairia" 
sob ele (visto que a Terra é redonda). 
Dessa maneira, o projétil ficaria para 
sempre em queda livre — ou seja, esta- 
ria em órbita. 

Uma vez que um objeto escapa da 
gravidade de um planeta, sua velocida- 
de e distância determinam um tipo de 
órbita — circular ou elíptica. 

Para que se possa prever a trajetória 
e fazer medições relacionadas a um pla- 
neta ou satélite, sua órbita precisa ser 
conhecida, ou seja, devemos saber a for- 
ma exata da elipse. O grau de "achata- 
mento" da elipse é sua excentricidade 
(E), que corresponde à proporção entre 
seu comprimento e sua largura. Quan- 
do E é igual a 1, temos uma elipse tão 
larga quanto comprida, ou seja, um 
círculo. 

Digite e execute este programa para 
ver o efeito da variação de E entre va- 
lores menores e maiores que 1: 



10 cts 

30 INPUT "EXCENTRICIDADE t.l 
a 1.9) ",e 

40 IF e<.l OH e>1.9 THEN 
GOTO 30 

50 PLOT 127,67+eM0 
60 FOH a = 0 TO 2*PI+.2 STEP .1 
70 DRAW 127+(40*SIN a) -PEEK 
23677,87+(e*40*COS a) -PEEK 
23678 
I 80 NEXT a 



90 PRINT AT 20.1; "QUALQUER TE 
CLA PARA RECOMEÇAR (0 SAD" 
100 PAUSE 0: LET aS-INKEYSí 
IF a$""" THEN GOTO 100 
110 IF a$<>"0" THEN GOTO 10 



D 



10 PMODE 4,1:PCLS 

30 CLS : INPUT" EXCENTRICIDADE (.1 

A 1.9) ";E 
40 IF E<-1 OH E>1.9 THEN 30 
50 SCREEN 1,1 
70 Cl BC LE (128,96) ,48.5. E 
100 AS-INKEY$:IF AS""" THEN 100 
110 IF AS-"0' THEN CLS : END ELSE 

30 



30 CLS : INPUT"EXCENTH [CIDADE (0." 
1 A 1 .9) " ;E 

40 IF E<.1 OH E>1.9 THEN 10 
50 SCREEN 2-COLOR 15,4.4 
70 CIRCLEG2B.96) ,48,15, , .E 
J00 AS=INKEYS:IF AS="" THEN 1U0 
110 IF AS="0" THEN CLS : END ELSE 
30 



HE] 



10 TEXT 

30 HOME : INPUT " EXCENTP, I CIDAD 

E (0.1 A 1.9) ";E 

40 IF E < .1 OR E > 1.9 THEN 3 

0 

50 HGR2 : HCOLOR- 3 

60 X - 130:Y - 90 

70 FOR A - 0 TO 2 * 3.1416 STE 

P .05 

80 HPLOT X + 45 * SIN (A) , Y - 

(E * 45 * COS (A) ) 
90 NEXT 
100 GET AS 

110 IF AS ■= "0" THEN TEXT : H 
OME : END 
120 GOTO 10 

O programa gira entre as linhas 30 e 
1 10 para desenhar elipses. A linha 30 de- 
termina o valor de E de acordo com sua 
escolha. O TRS-Color e o MSX usam 
o comando CIRCLE (linha 70) para de- 
senhar as curvas. Os outros micros em- 
pregam um laço FOR... NEXT para de- 
senhar cada ponto. 

Digite valores de E na faixa indicada 
na tela. E igual a I corresponderá a um 
círculo; E menor que 1, a uma elipse 
achatada em cima e embaixo, e E maior 
que 1 , a uma elipse achatada lateralmen- 
te. Assim, toda órbita pode ser conside- 
rada uma elipse, com um valor particu- 
lar de E. 

Uma vez em órbita, um satélite ou 
uma espaçonave não precisam de pro- 
pulsão, pois estarão caindo livremente. 
O uso de foguetes irá movê-los para uma 



órbita diferente. Quanto menor for o 
raio da órbita, maior será a velocidade 
com que o objeto deve se mover. Digite 
o próximo programa para ver como is- 
so funciona: 





+2)/r 



'3) ! 



LET a-B*SQR < ( (r- 
GOTO 130 

115 IF INKEYS-"6" AND r>8 THEN 
LET f-f+1: LET r-r-2: LET h-S 
«SQR ( ( (r+2) /r) "3) : GOTO 130 
120 FOR p=l TO 5: NEXT p 
130 LET x=r"SIN a: LET y=r*COS 



140 LET xt-rt«SIN at : LET yt=i 
t«COS at 

150 PLOT 127+x,87+y 
160 SOUND .02, r/2 
165 IF gcOO THEN PLOT OVER 
1 : 127+ox, B7+oy 
170 PLOT OVER l;127+xt 
LET ox-xt : LET oy-yt : L 
1B0 IF ABS (x-xt)>4 OR ABS (y 
yt)M THEN GOTO BO 
J90 PRINT AT 20.12:f;" PONTOS 
200 GOTO 200 



-1 



10 PHODE 4:PCLS:SCREEN 1,1 

40 R-30:RT-10+RND(70) :IF ABS (R- 

RTX20 THEN 40 

50 DRAWBM128 , 96S8NUNRNDL" 

60 S- . 1 : A-0 : AT-RND {101 : F-0 

80 A-A+S 

95 LT-AT 

100 AT-AT+.1"SQR((40/RT)"3) 
110 IF PEEK(341)-247 AND R<95 T 
HEN F-F+1:R-R+1:S-S*8QR(((R-1)/ 
R)'3)ELSE IF PEEK (342) -247 AND 
R>8 THEN F-F+1:R-R-1:S-S»SQR((( 
R+l ) /R) " 3) ELSE FOR K-l TO 25:NE 
XT 

130 X-R"8IN(A) :Y-R*C0S(A) 

140 XT-RT*SIN(AT) : YT-RT*C03 (AT) 

150 PSET(128+X.96-Y,5) 

160 SOUND R*2.1 

170 PSET(12B+XT,96-YT,5) 

175 PSET(128+RT*SIN(LT) ,96-RT*C 

OS(LT) ,0) 

180 IF ABS(X-XT)>-4 OR ABS ( Y-YT 
)>-4 THEN 80 

190 CLS: PRINT" VOCE USOU* ; F ; "TO 
QUÊS" 



5 U=RND { -TIME) 
10 SCHEEN2 

40 R=30:RT-INT(RND(1)*70)+11:IF 

ABS (R-RT) <20 THEN 40 
50 CIRCLE (128,96) ,2 
60 S-.1:A»0:AT=INT(RND{1)*11)+1 
:F-0 

80 A=A+S 
95 LT=AT 

100 AT-AT+.1*SQR((40/RT)"3) 
105 FOR X-l TO 5:A$-INKEYS:IF A 
S<>"" THEN 1-5 
234 NEXT 

110 IF AS-CHRS (30) AND R<95 THE 
N F-F+1:R-R+1:S-S*SQR(((R-1)/R) 
"3) 




Um jogo simples usando trajetórhs. 




Órbita de quatro planetas internos. 



130 X=R*SIN(A) :Y«fi*C0S(A) 

140 XT=RT«SIN(AT) : YT=RT*COS ( AT) 

150 PSET (128+X.96-Y) 

170 PSET (128+XT.96-YT) 

175 PSET (128+RT«SIN(LT) ,96-RT* 

COS (LT) ) ,0 

180 IF ABS(X-XT>>-4 OR ABS (Y-YT 
)>=1 THEN 80 

190 SCREEN0:PRINT"VOCE USOU" ; F i 
"TOQUES" 



mm 



10 HGR2 

40 R - 30:RT - INT ( RND (1) • 
70) +11: IF ABS (R - RT) < 2 
0 THEN 40 

50 HPLOT 126,96 TO 130,96: HPL 

OT 128.94 TO 128.98 

60 S - .1:A - 0:AS - INT ( RND 

(1) * 11) :F - 0 
80 A - A + S 
95 LT - AS 

100 AS = AS + .1 » SQR ((40 / 
RT) - 3) 

105 POKE - 16368,0 
110 IF PEEK { - 16384) - 181 
AND R < 95 THEN F-F+1:R-R 
+ 1:3 - S * SQR ( ( (R - 1) / R 

) " 3) 

120 IF PEEK ( - 163B4) - 182 
AND R > 8 THEN F-F+1:R-R 
- ItS - S * SQR (((R + 1) / R) 

• 3) 

125 POKE - 16368.0 

130 X = R * SIN (A) : Y = R * C 

OS (A) 



SIN (AS) :YT - RT 

X.96 - Y 
XT.96 - YT 
HPLOT 128 + RT 
RT * COS (LT) 



140 XT - RT 
* COS (AS) 
150 HPLOT 128 
170 HPLOT 12B 
175 HCOLOR- 0 
* SIN (LT).96 
: HCOLOR= 3 

1B0 IF ABS (X - XT) > =4 Ofl 

ABS (Y - YT) > =4 THEN 80 
190 TEXT ! HOME ! PRINT "VOCE 
USOU ";F;" TOQUES" 



MANOBRAS NO ESPAÇO 



Executando o programa, você verá 
um satélite-alvo e a trajetória aerf&hw 
flave em órbiia. Tente igualar as duaii 
útas usando as setas para cima e pa- 
i bllfc^o (elas correspondem às teclas 6 
e 7 no Spectrum e no Apple). 

A linha 40 determina o raio R da ór- 
bita da nave crjmp 200; o raio do alvo 
é definido ao aca»^ linha 60 especi- j 
fica as variáveis para as posições iniciais. 
O ponto essencial do programa está na 
linha 100, que usa uma importante lei 
da fisica: o quadrado do tempo _para 
percorrer uma órbita completa divroMo 
pelo cubo do raio é uma constante. Po^. 
essa razão, o SQR e a potência 3 estão^ 
na linha 100. 

Faça as manobras utilizando as teclas 
citadas para aumentar ou diminuir a ór- | 
bita. Lembre-se de que quanto menor a 
órbita, maior a rapidez. 



MOVIMENTO PLANETÁRIO 



Na realidade, manobrar de uma ór- 
bita para outra é muito mais complica- 
do do que sugere o programa anterior. 
A dificuldade não se encontra na mu- 
dança de uma órbita para outra, mas na 
localização de um alvo na vastidão do 
espaço. E, para complicar um pouco 
mais, é preciso levar em consideração 
que a gravidade do Sol. da Lua e, tam- 
bém, dos planetas tem efeito sobre o 
movimento de uma espaçonave. 

Na prática, poderosos computadores 
são as ferramentas dos navegantes do es- 
paço. Eles controlam a velocidade, o 
tempo e a direção dos foguetes, garan- 
tindo que estes se mantenham na traje- 
tória desejada. 

Uma vez na órbita correia, a nave cai 
livremente no campo gravitactonal do 
sistema solar. Ela precisa apenas de pe- 
quenas correções de curso no decorrer 
de meses e até anos de viagem — é qua- 
se tão previsível quanto os planetas que 
circundam o Sol. 

O programa seguinte permitirá a ob- 
servação do movimento dos planetas. 



IIIIIIIIIIHH 
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'10 B0RDER 4: CLS : LET gc 
20 DIM d(9) : DIU p(9) : DIM : 
DIM a (9) : Dl| bt9) : DIM i 
: DIM y(9) 
30 FOR t-1 TO 9: 8EAD d(t),p( 
t) : NEXT t 
40 INPUT "Quantos ■ 
-9) 7" 

50 IF a<l OR B>9 THEN GOTO 
40 



LET t-p(a 



1* 



60 LET sc-d(B)/32S, 

)/75 

70 PRINT "Ha um es 
INT C;" diaa"'"entíe cada pon 
to.": PRINT II;" <SPACE> PARA 
CONTINUAR" Jk^^^ 

inkeysochrs 32 then 

gotTT 

80 CLS 

iB^RINT *1;"PTtb»(10NE <SPACE 
PARA RECOMEÇAR" 
110 LET U-l! LET m-I: 
/180 

120 FOR q-1 TO a I 
130 LET r=d<q)/ac: lET a»r : V 
LET b^r: LET e-0: LET p-P(q)/t. 
140 IF q-1 THEN LET e-.2; LET 
b=a*.98 

150 IF q-8 THEN LET e=.26: 
LET b-a"-96 j/T 
160 LET í (q)-i tq)+J60/p 
tlBO LET y=g*i(q): LET x-INT (a 
*íCOS y-*ll: LET y-INT (b*SIN 

^KiWjcOO THEN 0PLOT 
BRIGHTWi2?+x(Qj) ,l7+y(q) 
210 PLOT flMGHT l3l27 + a(q)/4. 
87+b(q) /4 : LE^^qlj -a <q) /4: 
LET y(q)-b(q)/4^ís^ 
240 LET a(q)=x: LffrT*H)^y: 
NEXT q 

250 LET jo-m+t 

260 IF INKEYS=CHR$ 32 THEN 
BOM 

270 LET gc« 
280 DATA 58.88,10; 
,228,687 

290 DATA 778, 433$, 1427, 10759. 
2870.30665 
300 DATA 4497,68190,5969,90741 



120 FOR Q-0 TO S 

130 R-D(Q)/3C:A-R:B-R:E-0:P-P(Q 

>/T 

140 IF Q-0 THEN E-.2:B-A*.96 
150 IF 0.-8 THEN E- . 26 :B-A« .96 
155 IF S>5 AND Q<6 THEN 245 
160 IF P>3 THEN P-INT(P+,5) 
170 I(Q)-I(G)+360/P 
180 Y-G*I(Q) :X-INT(A*(COS(Y)-E) 
) :Y-INT(B"SIN(Y)) 

200 CIRCLE(126+A(Q) ,96-B(Q) ) ,1. 
0 

220 PSET (12B+A(Q) ,96-BtO) .5) 
230 CIRCLE(128+X.96-Y) ,1,5 
240 A(Q)-X:B(Q)-Y 
245 NEXT 
250 M-M+T 

260 IF INKEY$-" " THEN RUN 

270 GOTO 120 

280 DATA 58.86,108,225.150.365. 
228.687 

290 DATA 778,4333,1427.10759,28 
70. 30685 

300 DATA 4497.60190,5969.90741 



10 PMODE 4:PCL£ 

20 DIM D(8),P(8),I<B),A(8),B(8) 
30 FOR T-0 TO B:READ D(T).PtT): 
NEXT # 

40 CLS: INPUT " QUANTOS PLANETAS 

(1-9) m iB/ 
50 IF S<1 OR S>9 THEN 40 

) S-S-l:SC-DO)/90:T-P(Si/75 
70 PRINT: PRINT* HA UM ESPAÇO DE 
INT (T) ; "DIAS": PRINT" ENTRE CA 
DA PONTO":PRINT:PRINT:PRINT "PR 
ESSIONE< ESPAÇO PARA CONTINUAR" 
75 IF INKEYSO" * THEN 75 
80 SCREEN 1.1 
90 CIRCLEU28.96) ,1,5 
110 0-ATN(l}/45 



15 

220 PSET(128+A(Q) ,96-B(Q) ) ,5 
230 CIRCLEU2B+X.96-Y) ,1.6 
240 A(Q)-X:B(Q)-Y 
245 NEXT 
250 M-M+T 

260 IF INKEYS-" " THEN RUN 

270 GOTO 120 

2B0 DATA 58. 88. 10B, 225, 150, 365. 
228.687 

290 DATA 778,4333.1427,10759,28 
70, 30685 

300 DATA 4497,60190,5969,90741 



20 DIM D(B) ,P(8) ,1 (B) ,A(8) ,B(8 

) 

30 FOR T - 0 TO B: READ D (T) , P 
(T) ! NEXT 

40 HOME : INPUT "QUANTOS PLANE 
TAS (1-9) "iS 

50 IF S < 1 OR S > 9 THEN 40 
60 S - S - 1:8C - D(S) / 90:T - 

P(S) / 75 
70 PRINT : PRINT "HA UM ATRASO 

DE " i INT (T) i " DIAS ENTRE CAD 
A PONTO" : PRINT i PRINT "TECLE 
A BARRA DE ESPAÇOS PARA CONTINU 
AR" 

75 GET AS: IF A3 < > CHRS (3 
2) THEN 75 

80 HGR2 : HCOLOR- 3 

90 HPLOT 128,96 

110 G - ATN (1) / 45 

120 FOR Q - 0 TO S 

130 R - D(Q) / SC:A - R:B - R:E 

- 0:P - P(Q) / T 
140 IF Q - 0 THEN E - -2:B - A 

* .9B 

150 IF Q - B THEN E - . 26:B - 
A * .96 

155 IF S > 5 AND Q < 6 THEN 24 
5 

160 IF P > 3 THEN P - INT (P 

+ .5) 

170 I (Q) - I (Q) + 360 / P 
180 Y - G * I (Q) :X - INT (A * 
( COS (Y) - E) ) ; Y - INT (B • 
SIN (Y)) 

200 HCOLOR- 0: HPLOT 129 + A(Q 
),96 - B (Q) TO 128 + A(Q).95 - 
B (Q) TO 127 + A(Q),96 - B(Q) TO 

128 + A (Q) ,97 - B(Q) 
210 HCOLOR- 3: HPLOT 128 + A (Q 
J ,96 - B(Q) 

HPLOT 129 + X.96 - Y TO 12 
S.95 - Y TO 127 + X.96 - í 
TO l7Í»^ X.97 - Y 
240 AíffT^ X:B(Q) - Y 
245 NEXT% 
250 M - M - 
260 POKE 

265 IF PEEK ( "^^384) > 126 
THEN RUN 
270 GOTO 120 

280 DATA 55,88.108, 225X. 50 - 36 
£28,687 

778,4333. 1427. ld\9. 

2870. 3Ò"BT 
300 DATA 479f*tai90,5969,9(t4 



Ao executar o programa, você deve 
escolher o número de planetas que de- 
seja ver. Quanto maior o número deles, 
mais complicada a figura. Para identi- 
ficar os planetas, lembre-se de que Mer- 
cúrio está mais perto do Sol, seguido por 
Vénus, Terra, Marte, Júpiter, Saturno, 
Urano, Netuno e Plutão. 

Execute o programa com diferentes 
valores. Note que as órbitas de dois pla- 
netas — Mercúrio e Plutão — são elíp- 
ticas. Na verdade, as outras também o 
são, mas têm uma excentricidade tão pe- 
quena que parecem circulares. 
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AVALANCHE; 
EFEITOS SONOROS 



Vamos ouvir um som antes de colocar 
nosso personagem em cena. Que tal um 
grande sucesso de 1560? Sente-se diante 
de seu micro e prepare uma abertura 
musical digna de Avalanche. 



Um jogo de ação não seria completo 
sem uma abertura musical. Nosso video- 
game loca a melocia Greensleeves, no 
tom e ritmo corretos. Talvez você criti- 
que nossa escolha, por julgá-la pouco 
adequada a um videogame. Contudo, de 
acordo com a lenda, Henrique VIII es- 
creveu essa melodia para sua esposa Ana 
Bolena. Mais tarde, ela teve um fim bas- 
tante trágico, assim como será o de Wil- 
lie, se cometer qualquer descuido no jo- 
go. Além disso, não teremos que pagar 
direitos autorais — o que é muito im- 
portante... 




A rotina Assembly listada a seguir 
utiliza a sub-rotina da ROM que contro- 
la o comando SOUND, o que facilita a 
execução das notas musicais. 

10 BEM org 60000 

20 REM ld ix. 57359 

30 BEM H9k ld b,19 

40 REM r.une push bc 

50 REM ld d, (ix+l) 

60 REM ld e, (iX+0) 

70 REM ld h, íix+3) 

80 REM ld 1, (ix+Z) 

90 REM push ix 
100 REM call 949 
110 REM pop ix 
120 REM ld de, 4 
130 REM add ix.de 
140 REM pop bc 
150 REM djnz tune 
160 REM ret 

Podemos escolher qualquer melodia, 
contanto que forneçamos a essa rotina 
as informações necessárias sobre o que 
vai tocar. O programa BASIC que apre- 
sentamos a seguir coloca na memória os 
dados que o computador precisa para 
executar Greensleeves. As notas, com 
suas respectivas durações, formarão 
uma espécie de tabela, colocada logo 
abaixo da tabela ASCII que contém os 
textos do título e das instruções. 

5 CLEAR 57358 
10 FOR n-57359 TO 57434 STEP 
2: READ a: POKE n+l.IHT (*,/ 
256): POKE n,a-(256«INT (a/ 
256) ) : NEXT n 

20 DATA 98,1460,233,1223.131, 
1 086 ,220, 964 , 78 , 908 ,147, 964 , 



261,1086,110, 1297, 131. 16fl 2, 49 
,1460,110,1297,233,1223,98, 
1460.14 7, 14'60, 44, 1642, 98, 1460 
.220, 1297. 92, 1548. 220. Í959 



COMO FUNCIONA 



A rotina começa colocando o ende- 
reço 57359 no registro IX. Como regis- 
tro-índice, IX vai servir de apontador e 
seu valor inicial corresponde ao inicio 
da tabela de notas. 




Em seguida, 19 é colocado em B, re- 
gistro que servirá como contador. Seu 
conteúdo inicial corresponde ao núme- 
ro de notas que serão executadas (o tre- 
cho de Greensleeves que vamos tocar 
tem dezenove notas). Esse valor é guar- 
dado temporariamente na pilha, pelo 
comando push bc. O registro C precisa 
ser guardado junto com o B porque não 
existe um comando que guarde registros 
de oito bits na pilha. As instruções push 
e pop só aceitam pares de registros co- 
mo operandos. 

Mas por que guardar o valor de B e 
C na pilha, se nenhum dos dois regis- 



tros será usado até que a instrução pop 
bc recupere seu conteúdo original? Es- 
ta i uma boa pergunta. Enquanto o va- 
lor de BC está na pilha, o programa cha- 
ma uma sub-rotina da ROM, que pode 
muito bem usar o registro B. Embora 
uma sub-rotina possa alterar o valor de 
qualquer registro, ela sempre deixa a pi- 
lha intacta. Assim, sempre que chama- 
mos uma sub-rotina que não conhece- 
mos bem, devemos guardar o conteúdo 
dos registros importantes na pilha. 

O primeiro número da tabela é colo- 
cado em DE; o segundo, em HL. A ope- 
ração, diferentemente do usual, empre- 
ga comandos com endereçamento inde- 
xado, de modo que IX é usado como 
apontador. Os registros têm que ser car- 
regados um de cada vez, já que não há 
comandos que carreguem pares de regis- 
tros nesse tipo de endereçamento. Se 
consultarmos a listagem do programa 
BASIC, veremos que cada número ocu- 
pa dois bytes, ainda que muitos sejam 
menores que 256. 

Os números formam pares. O primei- 
ro valor determina a duração da nota — 
na realidade, ele especifica o número de 
ciclos gerados pela rotina do comando 
SOUND. O número corresponde, en- 
tão, à freqíiência da nota multiplicada 
pela sua duração em segundos. O segun- 
do número determina a tonalidade da 
nota. Para calcular seu valor, podemos 
usar a fórmula 437500/f-30125, onde f 
é a frequência da nota. 

A rotina coloca o conteúdo de IX na 
pilha, para preservar o valor do apon- 
tador, e, em seguida, chama a sub-ro- 
tina da ROM. A sub-rotina do coman- 
do SOUND é chamada pela instrução 
call 949. Ela usa os valores de HL e DE 
para produzir o som. A instrução pop 
Ix recupera da pilha a posição do apon- 
tador na tabela de notas; o ponteiro 
avança um par de notas, com a coloca- 
ção de 4 em DE (ld de, 4) e a soma des- 
se valor a IX (add ix.de). O emprego de 
add é necessário, já que não existe uma 
instrução especial para somar valores ao 
índice IX. Poderíamos usar quatro ins- 
truções inc ix, mas o processo seria mais 
demorado. 

O valor original do contador volta 
para BC. A instrução djnz subtrai uma 
unidade de B e, se este não foi ainda re- 
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■ A ESCOLHA DA MÚSICA ■ ARMAZENAGEM DA MÚSICA 
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CONTAGEM DAS NOTAS ■ 


COMO MODIFICAR 
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ROTINA PRINCIPAL ■ 


COMO SINCRONIZAR 0 SOM 




E SUB-ROTINAS 
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duzido a zero, ela faz o processador vol- 
tar para emitir mais uma nota. Após de- 
zenove notas, o processador deixa o la- 
ço e encontra rei. 

Para testar a sub-rotina, utilize 
RAND USR 60000, mas não se esqueça 
de que a tabela de notas deve estar re- 
gistrada na memória. 



TOQUE SUA PRÓPRIA MELODIA 



Mesmo depois de toda aquela conver- 
sa sobre Henrique VIII, talvez você 
queira ouvir outra música. Embora não 
seja aconselhável fazer a substituição 
dentro do nosso jogo, você pode usar a 
rotina separadamente. 

Escolha a música de sua preferência 
e traduza-a nos parâmetros que a roti- 
na utiliza para emitir notas musicais. 
Lembre-se, contudo, de que melodias 
diferentes requerem um outro valor pa- 
ra o contador B, que determina o nú- 
mero de notas executadas. 



O TRS-Color executa a melodia 
Greensleeves por intermédio da rotina 
Assembly, que é dada a seguir. Não se 
esqueça de aumentar a memória dispo- 
nível com POKE 25,6:POKE 26,1:NEW 
e também de proteger uma área para o 
programa em código. 
10 ORO 30000 
20 LDX tHUSIC 



STX HUPOINT 
LDA |19 
PSHS A 
LDA 3FF01 
ANDA 1247 
STA 3FF01 

LDA srro3 

ANDA «247 

STA 5 FF 03 

LDA SFF23 

ORA te 

STA SFF 2 3 

MA IN LDU HUPOINT 

ORCC 1350 

PULU A.X 

CM PU (MU3IC+57 

BLO MOHE 

LDU tHUSIC 

HONE STU HUPOINT 

PSHS X 

LDB «252 

HTWO STB SFFZ0 

HTflR LEAX -1,X 

BNE HTHR 

LDX . S 

CLR SFF20 

HFOU LEAX -l.X 

BNE HFOU 

LDX ,S 

DECA 

BNE HTWO 

LEAS 2.S 

DEC ,S 

BNE KAIN 

ANDCC I3AF 

PULS A, PC 
HUPOINT FDB 375BA 
HUSIC FCB 98.0,189,233 
FCB 0,158,131,0 
FCB 141,220.0,125 
FCB 78,0,116,147 
FCB 0,125,255,0 
FCB 141,110.0,166 



460 
470 
480 

490 

500 
510 
520 
530 



FCB 131.0,212,49 
FCB 0,169,110,0 
FCB 168,233,0,158 
FCB 98,0, 169, 147 
FCB 0,189.44,0 
FCB 212,98,0,189 
FCB 220,0.166,92 
FCB 0.200,220,0,252 



O programa tem duas entradas: uma 
fica em 30000 e outra em 30008 Qinha ' 
50). Se a rotina for chamada pelo pri- 
meiro endereço, executará a melodia in- 
teira; se for chamada pelo segundo, exe- 
cutará apenas uma nota. Esta última op- 
ção permite que se toque a melodia sem 
interromper a ação do jogo. Podemos 
tocar uma nota, fazer alguma outra coi- 
sa na tela, tocar outra nota, e assim por 
diante. 



O valor do rótulo MUSIC é coloca- 
do no byte rotulado MUPOINT. Em- 
bora na listagem — e, posteriormente, 
na memória — o valor de MUSIC já es- 
teja nesse byte, usa-se MUPOINT para 
guardar a posição da última nota exe- 
cutada, o que é útil quando tocamos a 
melodia uma nota de cada vez. 

O comando LDA #19 coloca no 
acumulador o número de notas do tre- 
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cho de Greensleeves que vamos execu 
tar — dezenove. Se você não quiser to 
car a melodia inteira de uma vez, colo- 
que no acumulador o número de notas 
que pretende ouvir. Assim, optando pe- 
ia execução da música nota por nota 
você deverá colocar 1 em A. 

O conteúdo de A é levado para a pi- 
lha da maquina por PSHS A. Trata-se, 
porém, apenas de uma armazenagem 
temporária. Mais tarde, o programa 
precisará do oúmero de notas. 

As nove instruções que se seguem via- 
bilizam a produção de sons, colocando 
os valores apropriados no chip de som 
do TRS-Color. 



MUPOINT aponta para a próxima 
nota a ser executada, de modo que o en- 
dereço do próximo byte da tabela de no- 
tas é colocado no apontador da pilha do 
usuário pelo comando LDU MU- 
POINT. Isto efetivamente transforma a 
tabela de notas na pilha do usuário. 

A instrução ORCC #$50 impede — 
"desabilita", no jargão da informática 
— interrupções, mascarando o conteú- 
do do registro indicador de status. 
Quaisquer que sejam os valores dos bits 
4 e 6 desse registro, eles passam a ser 1 
quando fazemos a operação "ou" en- 
tre seu conteúdo e 50 em hexadecimal 
(80 em decimal). 



'(Somo U está apontando para a ta- 
bela de notas, a instrução PULU A,X 
traz para dentro de A o próximo byte 
da tabela, e para dentro de X os dois 
bytes seguintes. Além disso, também so- 
ma 3 ao registro U, que passa a apon- 
tar para o próximo byte. 

Os dados necessários para o som vêm 
em grupos de três bytes. O primeiro cor- 
responde ao número de vezes que a no- 
ta será tocada. Os dois seguintes deter- 
minam a duração que influi na frequên- 
cia da nota. 

Em seguida, o registro U é compara- 
do com #MUSIC + 57, o endereço fi- 
nal da tabela de notas. O comando BLO 
provoca um desvio se o valor de U for 
menor, pois, nesse caso, ainda não che- 
gamos ao fim da tabela e a próxima ins- 
trução será ignorada. Ela colocaria o en- 
dereço inicial da tabela de volta no 
apontador e a música poderia, então, ser 
tocada novamente. 

De qualquer maneira, o valor do 
apontador volta para MUPOINT, para 
que o processador saiba qual é a próxi- 
ma nota. A duração da nota, que se en- 
contra em X, é colocada temporaria- 
mente na pilha da máquina. 

As instruções LDB #252 e STA 
SFF20, referentes ao conversor analógi- 
co-digital, preparam-se para usar o alto- 
falante da TV. LEAX - 1,X diminui o 
valor de X, e BNE faz o processador re- 
petir a instrução anterior, até que X se- 
ja zero. 

LDX ,S coloca o valor da pilha em 
X, funcionando como um PULS X, sem 
somar nada, no entanto, ao apontador 



da pilha. CLR SFF20 desliga o alto 
falante da TV e a mesma rotina de con 
tagem em X é repetida. 

O valor da pilha retorna a X e o nú- 
mero de vezes que a nota vai ser tocada 
é diminuído em uma unidade — DECA. 
Outra instrução BNE faz o processador 
repetir o laço MTWO, até que A seja re- 
duzido a zero. 

A instrução LEAS 2.S limpa a pilha 
e DEC ,S subtrai 1 do conteúdo do pró- 
ximo byte da pilha da máquina — nú- 
mero de notas, colocado na pilha no iní- 
cio. BNE MAIN faz o processador vol- 
tar e executar a próxima nota, caso o nú- 
mero de notas não tenha sido reduzido 
a zero. 

ANDCC #AF permite novamente 

— ou seja, "reabilita" — a ocorrência 
de interrupções, "desmascarando" o re- 
gistro de status. Finalmente, PULS 
A,PC retira dois valores da pilha da má- 
quina, colocando em A o valor da nota 

— reduzido a zero — e em PC, os pró- 
ximos dois bytes. Eles correspondem ao 
endereço de retorno da sub -rotina, co- 
locado ali quando a rotina foi chama- 
da. O procedimento, nesse caso, é equi- 
valente a um comando RTS. 



Para dotarmos nosso videogame de 
uma trilha sonora, precisaremos utilizar 
o microprocessador especial que o MSX 
possui para produzir sons: o PSG — 
Programable Sound Generator. Apre- 
sentamos, no artigo publicado à página 
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Qual a diíerença enue os comandos 
outl a otlr no MSX? 

No artigo da página 213, vimos co- 
mo empregar o comando de ação em 
bloco otlr. Aqui, utilizamos um coman- 
do muito parecido: outl. 

Tanto otlr como outl são usados 
quando se quer transferir dados que es- 
tão em uma tabela na memória RAM, 
através de uma porta de salda. Esses 
dois comandos agem sobre os registros 
HL, B e C. HL é usado como aponta- 
dor, B como contador e C contém o nú- 
mero da porta de salda. Assim, antes 
da primeira execução do comando, o 
par HL deve conter o endereço inicial 
da tabela, e o registro B, o número de 
elementos da mesma. 

Ambos somam uma unidade ao con- 
teúdo de HL e subtraem o mesmo de 
B. Mas há uma diferença entre eles: o 
comando otlr repete esta operação 
muitas vezes, transferindo vários ca- 
racteres até que B seja reduzido a ze- 
ro: outi, por sua vez, só transfere um 
número a cada execução. 

0 comando otir ô, por si mesmo, um 
laço completo, utilizando B como con- 
tador e fazendo sozinho o teste do in- 
dicador de zeros. Mostra-se, portanto, 
mais adequado quando queremos 
transferir dados a grande velocidade. 
No artigo anterior, aqui mencionado, 
ele foi utilizado para transferir um ban- 
co de caracteres para a memória de 
vídeo. 

Já a instrução outi deve fazer parte 
de um laço. Ela vai diminuindo o valor 
de B, mas não é capaz de descobrir por 
si mesma que este foi reduzido a zero. 
Para isso, o programador precisa incluir 
um teste do tipo jr nz O emprego da 
instrução outl é. assim, mais indicado 
quando precisamos interromper a 
transferência dos dados a todo instan- 
te para a realização de algum tipo de 
processamento. Em nosso caso, jamais 
poderíamos transferir valores para o 
PSG em alta velocidade - obteríamos 
barulho, e não música, 

A transferência foi feita numa velo- 
cidade irregular, sendo interrompida 
por pausas cuja duração é variável. A 
execução dessas pausas e a constan- 
te mudança nos números dos registros 
que estavam sendo alterados — envia- 
dos por out 1 60. a — correspondem à 
realização de algum tipo de proces- 
samento. 



168, uma introdução ao funcionamen- 
to desse dispositivo. 

O PSG possui catorze registros. Os 
valores ali colocados determinam os di- 
versos parâmetros do som produzido. 
Podemos controlar a tonalidade, o vo- 
lume e sua evolução ao longo do tempo 
(envoltória ou envelope). Temos à nos- 
sa disposição três canais, que funcionam 
simultaneamente, emitindo cada qual 
um som diferente. Todos eles podem to- 
car notas musicais e, também, produzir 
ruídos. 

As rotinas Assembly deste artigo exe- 
cutam Greensleeves em duas vozes — is- 
to é, são usados dois canais para pro- 
duzir acordes. Para que o computador 
saiba que notas tocar e com qual dura- 
ção, um programa BASIC colocará uma 
tabela de notas na memória. 



CONDIÇÕES INICIAIS DO PSG 



A rotina listada a seguir prepara o 
PSG para tocar a música, colocando va- 
lores lidos na tabela dentro dos registros 
apropriados. Use nosso Assembler pa- 
ra montá-la na memória. Não se esque- 
ça de modificar o comando CLEAR da 
linha 5000, para proteger a memória aci- 
ma de &HCFFF. As rotinas em código 
devem ser montadas primeiro. Em se- 
guida, pode-se apagar o Assembler e 
executar o programa BASIC que apa- 
rece no final do artigo. 
10 org -12216 
20 ld hl, -14500 
30 ld b,6 
40 ímt ld c,160 
50 outl 
60 ld c,L6J. 
70 outi 
80 jr m. init 
90 ret 
100 and 

Dispomos de duas alternativas para 
modificar o valor de um registro do PSG 
em BASIC. Podemos utilizar tanto o co- 
mando SOUND R,V— que coloca no 
registro R o valor V — quanto a instru- 
ção OUT. 

O microprocessador PSG é conside- 
rado um periférico da unidade de pro- 
cessamento central, de maneira que exis- 
tem dois endereços da área de comuni- 
cação — I/O — que funcionam como 
portas de entrada e saida. O valor en- 
viado pela porta 160 indica o registro 
que será alterado, enquanto a porta 161 
corresponde ao destino do novo valor 
do registro. Dessa maneira, o par de ins- 
truções OUT 160,R:OUT 161,V equiva- 
le ao comando SOUND R.V. 

Como vimos no artigo da página 213, 
existe, em linguagem de máquina, uma 



instrução out que funciona de modo pa- 
recido ao comando BASIC de mesmo 
nome. Contudo, como vamos transfe- 
rir valores de uma tabela para o PSG, 
usaremos um comando de ação em 
bloco. 

Nossa rotina utiliza o comando ou- 
ti, cujas características devemos enten- 
der antes de passarmos a examinar o 
funcionamento do programa. Esse co- 
mando envia o valor contido no ende- 
reço apontado pelo par HL através da 
porta que tem seu número no registro 
C. Em seguida, o conteúdo do par HL 
aumenta em uma unidade e o conteúdo 
de B diminui também em uma unidade. 

O comando outi é útil para transfe- 
rir dados de uma tabela, um a um, atra- 
vés de uma porta. Antes de sua primei- 
ra aparição, devemos colocar em HL o 
endereço inicial da tabela, em C, o nú- 
mero da porta, e em B, o número de ve- 
zes que queremos repetir o processo. Ca- 
da vez que outi é executado, HL passa 
a apontar para o endereço seguinte da 
tabela. B é diminuído e, quando for re- 
duzido a zero, o indicador de zero será 
estabelecido. 

A primeira instrução determina o en- 
dereço inicial da rotina, — 12216. Em se- 
guida, os registros HL, B e C recebem 
os parâmetros da instrução outi. O en- 
dereço inicial da tabela de notas é colo- 
cado em HL por ld hl, - 14450. Como 
são necessários três pares de valores para 
ativar o PSG, a linha ld b,6 coloca 6 em 
B. A linha rotulada com init coloca em 
C o número da porta de saída que de- 
termina o registro. 

Quando se executa a instrução outi 
pela primeira vez, o valor que marca o 
início da tabela, apontado por HL, é en- 
viado pela porta 160 — conteúdo de C. 
Se olharmos o programa BASIC no fi- 
nal do artigo, veremos que foi enviado 
o número 7. Soma-se uma unidade ao 
par HL, que aponta, então, para o pró- 
ximo número da tabela, e subtrai-se uma 
unidade de B. 

A instrução ld c,161 faz com que o 
valor enviado por outi na linha seguin- 
te se dirija à porta 161. Se consultarmos 
novamente a listagem BASIC, veremos 
que foi enviado o número 24. O valor 
de HL aumenta novamente e o de B di- 
minui. Como B ainda não foi reduzido 
a zero, o processador retorna ao rótulo 
init. 

O laço entre as linhas 40 e 80 repete- 
se três vezes. A instrução outi é execu- 
tada seis vezes, de forma que são envia- 
dos três pares de números. Subtrai-se de 
B uma unidade seis vezes. Na sexta vez, 
a condição de jr nz.init não é satisfeita, 
e a instrução ret provoca o retorno da 
sub-rotina. 
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Cada volta desse laço equivale a um 
comando SOUND. O primeiro valor en- 
viado é o registro, e o segundo, seu no- 
vo conteúdo. Mas que papel desempe- 
nha cada registro? 

A primeira volta do laço coloca 24 no 
registro 7 do PSG. Esse registro selecio- 
na o modo de utilização dos canais de 
som. Cada um dos seus seis primeiros 
bits determina se um canal vai produzir 
som, ruído ou se vai permanecer em si- 
lêncio. Quando valem 1 , os três primei- 
ros bits ativam os canais A, B e C, res- 
pectivamente, para a produção de ruí- 
do. Os três bits seguintes ativam os ca- 
nais para a produção de sons musicais. 
Como 24 é 0001 1000 em binário, ele ati- 
va a produção de notas musicais em A 
e B. 

Na segunda volta do laço, o valor 15 
vai para o registro 8 do PSG. Esse re- 
gistro controla o volume do canal A — 
15 é o volume máximo. 

Na terceira e última volta, o registro 
9, que controla o volume do canal B do 
PSG, recebe o valor 15. 



TOCANDO UM ACORDE 



Depois de ativar o PSG, podemos co- 
meçar a tocar nossa música. Greenslee- 
ves compõe-se de acordes de duas no- 
tas, cada uma emitida por um dos ca- 
nais ativados. As notas serão obtidas na 
mesma tabela, que especifica também 
qual é a duração do acorde formado por 
cada par delas. A rotina listada a seguir 
executa um acorde. Monte-a e grave-a 
separadamente. 
10 org -12200 
20 ld hl. -14494 
30 ld b.4 
40 ld c,161 
50 ld a.O 
60 tune out 160, a 
70 inc a 

ao outi 

90 jr nz.tune 
100 ret 
110 end 

Os acordes são compostos por notas 
emitidas simultaneamente pelos canais 
A e B. Registros do PSG controlam a 
tonalidade de cada nota. Os registros 0 
e 1 controlam a tonalidade do canal A, 
enquanto 2 e 3, a do canal B. Os regis- 
tros 0 e 2 correspondem aos bytes me- 
nos significativos; 1 e 3, aos mais signi- 
ficativos. Para emitir um acorde preci- 
saremos, então, modificar o conteúdo 
de quatro registros do PSG, usando no- 
vamente a instrução outi. Por isso, a ro- 
tina começa acertando os valores de HL, 
B e C, depois de estabelecido o endere- 
ço inicial. 

A instrução ld hl, - 14494 coloca em 



HL o endereço da primeira nota da ta- 
bela. Como emitiremos quatro notas, o 
número quatro é colocado em B. O nú- 
mero da porta 161 — utilizada para en- 
viar novos valores de registros ao PSG 
— é colocado em C. 

Nesta rotina, o registro A conterá o 
número do registro do PSG a ser alte- 
rado; assim, seu valor inicial será 0 — 
ld a.O 

O comando out 160,a envia o conteq- 
do de A pela porta 160, indicando ao 
PSG o registro que será alterado. Em se- 
guida, A aumenta em uma unidade. A 
instrução outi envia, então, através da 
porta 161, o próximo valor da tabela, 
apontado por HL. HL aumenta em uma 
unidade e B diminui o mesmo tanto. En- 
quanto B não for reduzido a zero, a ins- 
trução jr nz.tune repetirá o laço entre as 
linhas 60 e 90. 

Na primeira volta do laço, o registro 
A contém 0, de maneira que o registro 
O do PSG recebe o valor da tabela 
apontado por HL. A cada volta, A au- 
menta em uma unidade e os registros 1 , 
2 e 3 do PSG recebem os próximos va- 
lores da tabela de notas. 

Na quarta vez que outi está sendo 
executado, o valor de B reduz-se a ze- 
ro. A condição de jrnz, tune não é mais 
satisfeita e a instrução ret provoca o re- 
torno da sub- rotina. 



CONTROLE DA DURAÇÃO DO ACORDE 



O som correspondente ao conteúdo 
dos registros do PSG é emitido conti- 
nuamente, até que modifiquemos um de 
seus parâmetros ou desliguemos o PSG. 
Assim, para controlarmos a duração do 
som, usamos uma sub-rotina que não 
faz absolutamente nada por algum tem- 
po, provocando uma pausa. Enquanto 
durar essa pausa, o acorde será execu- 
tado; quando ela terminar, poderemos 
emitir um novo acorde. A duração será 
determinada por um número da tabela 
de notas. Eis a rotina: 
10 oro -121B3 
20 ld t>. (hl) 
30 ldp ld hl, 1000 
40 ld de.O 
50 ldq dec hl 
60 puah hl 
70 sbe hl ,de 
80 pop hl 
90 jr nz.ldq 
100 djnz ldp 
110 ret 
120 end 

Quando a rotina de emissão do acor- 
de termina, deixa em HL o endereço do 
próximo número da tabela de notas. Es- 
se número indica a duração do acorde. 




O PROCESSADOR DO TRS-COLOR 

Os usuários do TRS-Color costumam 
sentir muita dificuldade quando fazem 
suas primeiras experiências com lin- 
guagem de máquina. Para eles, aqui 
vão algumas recomendações. 

O processador 6809 é um dos mais 
poderosos chips de oito bits. Sua ver- 
satilidade tem, contudo, um preço ele- 
vado, pois o grande número de coman- 
dos e formas de endereçamento pode 
confundir o principiante. 

No 6502 e no Z-80, processadores 
das outras máquinas, é possível fazer 
muita coisa interessante com um pe- 
queno conhecimento dos comandos de 
armazenamento e de controle de laços. 
Basta saber que valores colocar nas po- 
sições adequadas. Programas um pou- 
co maiores exigem o uso da pilha para 
a armazenagem temporária, mas isto 
não é um grande problema. 

O G502, processador do Apple e do 
TK-2000, conta com vários tipos de 
endereçamento. Mas são tão poucas 
as instruções disponíveis que essa van- 
tagem deixa de ser significativa. 

O 6809 é um precursor dos chips de 
dezesseis bits. Toda a sua estrutura de 
endereçamento e armazenagem ba- 
seia-se em números de dois bytes. 
Seus registros comportam dezesseis 
bits. Ao mesmo tempo, ele é um chip 
de oito bits. Cria-se, assim, uma infini- 
dade de modos de endereçamentos — 
surgindo termos como pós-byte e en- 
dereço efetivo — , o que confunde mui- 
ta gente. São tantos os comandos.de 
açâo em bloco, executando tarefas di- 
ferentes, que é difícil deduzir suas fun- 
ções pelo nome. 

O que mais confunde o principian- 
te, contudo, é a utilização das pilhas. 
Há duas pilhas, a do usuário e a da má- 
quina, cada uma com seu apontador. 
E elas não são usadas apenas para 
guardar valores temporariamente. O 
uso inteligente de seus apontadores 
permite economizar várias linhas de 
programação, mas certas operações 
com as pilhas são de deixar qualquer 
um atordoado. E, pior ainda, é impos- 
sível fazer programas sem esses recur- 
sos avançados. 

A saída está no estudo cuidadoso 
das instruções explicadas no texto. Na 
(alta de um manual do 6908, liste as 
características de cada instrução. Ou- 
tra medida obrigatória é a leitura dos 
textos introdutórios à programação em 
código, já publicados em INPUT. Neles 
o usuário do TRS-Color encontrará con- 
ceitos fundamentais sobre o seu pro- 
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e é colocado em B pela instrução Id 
b,(bl). 0 registro B determinará o nú- 
mero de vezes que o laço rotulado Idp 
vai ser executado. Nesse laço, 1000 é co- 
locado no par HL, que diminui uma 
unidade a cada volta do laço interno 
Idq. Guarda-se HL temporariamente na 
pilha, para gastar tempo. 

A instrução sbc hl, de subtrai zero — 
conteúdo de DE — do conteúdo de HL. 
Faz-se isto para afetar o indicador de ze- 
ros, quando HL for reduzido a zero, 
pois a instrução pop HL não modifica 
esse sinalizador. Quando HL contém ze- 
ro, a condição de Jr nz,ldq não é satis- 
feita e o processador passa ao laço ex- 
terno, controlado por B. 

A cada volta do laço externo, B di- 
minui. Quando ele se torna zero, ret 
provoca o retorno da sub-rotina. 

Podemos controlar o andamento da 
música aumentando ou diminuindo o 
número de execuções do laço interno. 
Para isto, basta colocar um número di- 
ferente de 1000 em HL, na linha 30. 



A ROTINA PRINCIPAL 



O trecho de Greensleeves que vamos 
executar tem 88 acordes. As rotinas que 



ER HAT A 
ASSEM BIER DO TRS-COLOR 

Para que seu programa Assembler 
funcione a contento, você precisará fa- 
zer algumas modificações: 

10 PCLEAB 1:CLEAR 3000 :CLS: PRIN 
T «233,'INICIAI.IZAHI>0':B9-CHR3( 
13] POKE 146.1 

100 DATA COM. 115. 3. CWAI. 108.1, D 
AA. 25. .ORA. 186,1, TST, 125,3. LEAS 
. 66 . 3 , LEAU ,67.3, LEAX , 64 , 3 , LEA Y , 
65.3.MUL.61. . EORA. 184 , 1 . ORB .2 50 



1550 P1-1478:PO-P1:P2-0 

1560 PRINT «448-P2.K;TAB(6)T3<K 
2) :P9-P0+LEN(T3(K2)) 

1565 IF LENIT9 !K2) )+P0>1503 THE 
N P0-P0-32rP2-P2*32:Pl-Pl-32:GO 
TO 1565 

1950 IF X3<>'3" 0B BD3<"0- OR B 
D3>'0* THEK 1980 

A alteração na linha 10 á necessá- 
ria devido aos POKE que aumentam a 
memoria disponível. Se você nao exe- 
cutar esses comandos antes de ler o 
Assembler na fita cassete, ele não con- 
seguirá montar o videogame. 

As demais modificações ajustam al- 
guns defeitos contidas na programa 
originei. 



mostramos até agora ativaram o PSG e 
tocaram um acorde apenas. Para a exe- 
cução da melodia toda, precisaremos de 
um programa principal, que chame or- 
denadamente as sub-rotinas, Monte a 
rotina que se segue com seu Assembler, 
gravando depois os códigos. 

10 oro -12166 

20 rali -12216 

30 Id h.BR 

40 loop pueh bc 

50 call -12197 

60 pueh hl 

70 call -12183 

80 pop hl 

90 inc hl 

100 pop bc 

110 rt.inz loop 

120 call -12213 

130 ret 

140 end 

A primeira providência do progra- 
ma principal é chamar a sub-rotina que 
ativa o PSG, que fica no endereço 
- 12216. Quando o processador retor- 
na, HL aponta para a primeira nota da 
música — sétimo número da tabela. 

A instrução Id b,88 coloca em B o nú- 
mero de acordes que serão executados. 
Como a rotina que emite o acorde utili- 
zará o registro B como contador, o con- 
teúdo deste é temporariamente guarda- 
do na pilha com push BC. 

A rotina que emite o acorde é, então, 
chamada. Note que o endereço de trans- 
ferência é - 12197, e não -12200 (veja 
listagem). Ignora-se a primeira linha — 
linha 20 — da rotina do acorde, pois HL 
já contém o valor - 14494. que corres- 
ponde ao sétimo número da tabela. Es- 
sa Unha foi incluída no programa para 
que a melodia possa ser tocada mais de 
uma vez, sem precisarmos ativar nova- 
mente o PSG. 

Quando o processador retorna da 
sub-rotina, o par de registros HL apon- 
ta para o próximo número da tabela. 
Como HL será usado como contador na 
sub-rotina de pausa, seu valor também 
é guardado na pilha com push hl. 

A instrução call - 12183 chama a 
sub-rotina que é responsável pela dura- 
ção do acorde. 

Quando a rotina de pausa termina, 
o conteúdo de HL é recuperado da pi- 
lha. Esse valor, porém, está "atrasado", 
pois aponta para o número da tabela 
que controla a duração da nota, já usa- 
do pela rotina de pausa. Para que HL 
aponte para a próxima posição da tabe- 
la, precisamos somar 1 ao seu conteú- 
do, usando inc hl. 

O conteúdo de B — nosso contador 
de acordes — é recuperado da pilha por 
pop bc, Em seguida, a instrução djnz 



loop subtrai 1 de B e volta para o rótu- 
lo loop enquanto B não tiver sido redu- 
zido a zero. 

O laço entre as linhas 40 e 110 é re- 
petido 88 vezes, uma para cada acorde. 
As notas são executadas até que sua to- 
nalidade se modifique — sendo, portan- 
to, substituídas por outras notas. Se o 
programa parasse aqui, o PSG ficaria 
emitindo o último acorde da canção du- 
rante todo o jogo, o que você certamen- 
te não deseja. 

Para desligar o PSG, a rotina que o 
ativou no inicio é chamada novamente, 
só que com outro endereço de transfe- 
rência. A instrução call - 12213 ignora 
a primeira linha da sub-rotina, que co- 
locava o endereço inicial da tabela em 
HL. Assim, como HL ainda aponta pa- 
ra o próximo número não usado na ta- 
bela, a sub-rotina utiliza os últimos seis 
números. Se procurarmos na listagem 
BASIC, veremos que estes são 8, 0, 9, 
0, lOeO.Os registros 8,9el0, que con- 
trolam o volume dos três canais, rece- 
bem, então, o valor 0, e o PSG é si- 
lenciado. 

Como toda rotina que se preze, esta 
termina com rei. 

É interessante notar a importância do 
apontador HL na execução da melodia. 
No decorrer da execução, ele percorre 
toda a tabela. Para que isso seja possí- 
vel, a cada volta do laço entre as linhas 
40 e 110, seu valor é atualizado quatro 
vezes pela instrução outi e uma vez por 
inchl — o que corresponde à transferên- 
cia de cinco valores da tabela. Quatro 
deles vão para o PSG e um vai para o 
registro B controlar a duração da nota. 
Como a rotina de pausa utiliza HL, en- 
tre a execução das linhas 60 e 80 o apon- 
tador da posição atual na tabela de no- 
tas fica guardado na pilha. 



A TABELA DE NOTAS 



O conjunto de rotinas apresentado 
executa uma melodia em duas vozes. Na 
realidade, ele pode tocar qualquer me- 
lodia desse tipo. Cabe à tabela de notas 
determinar os acordes que serão incluí- 
dos. Para criá-la, apague o Assembler 
e use este programa BASIC. 

10 CL E AH 200,-14501 

20 FOB 1-0 TO 451 

30 READ A: POKE -14500+1, A 

40 NEXT 

1000 DATA 7,24,8,15,9,15 
1010 DATA 253,0.253.0.10 
1020 DATA 213.0.253,0,30 
1030 DATA 189.0,213,0.10 
1040 DATA 169,0,213,0,15 
1050 DATA 159,0.213,0,5 
1060 DATA 169.0,28.1,10 
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Illllll 



1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1260 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 



DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



189.0.28,1.30 
225,0.225.0,10 
28,1,225.0,15 
253,0,225.0,5 
225,0,253,0.10 
213,0,253,0,30 
253,0,253,0.10 
253,0,63,1,15 
12,1.63,1,5 
253,0,63.1.10 
225,0.253,0,17 
225.0.169,0,10 
12,1,225,0,10 
169.0,82,1,20 
253,0,82,1,10 
213,0,253.0,30 
1B9, 0,253, 0.10 
169,0,213,0,15 
159,0,213,0,5 
169,0.213,0,10 
189, 0,28. 1,30 
225,0,28,1,10 
28.1,225.0,15 
253,0,225,0,5 
225,0,225,0,10 
213.0,253,0,30 
225.0,225,0,5 
253,0, 213.0,5 
253,0.189,0,5 
12,1,169,0.15 
45,1.169,0,5 
12,1,169,0,10 
253,0.253,0,30 
253,0,126,0,10 
253,0,169,0.10 
253,0,253.0.30 
142.0,213,0,30 
142.0,189,0.5 
142,0.169,0,5 
142,0.169,0.15 
159,0, 189,0.5 
169,0,213,0.10 
189,0,28.1,30 
189.0.253,0.5 
225,0,225,0,10 
28,1,225,0,15 
253,0,253,0,5 
225,0,28,1.10 



1550 
1S60 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 



1750 
1760 
1770 
1780 
1790 

íeoo 

1810 
1820 
1830 
1840 
1850 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
END 



213.0 

213,0 

253.0 

253 

12,1. 

253,0 

225.0 

225,0 

12,1 

82,1. 

82,1 

142,0 

142.0 

142.0 

142.0 

159,0 

169,0 



253,0,30 
225,0.5 
213.0. 10 
213,0,15 
225,0,5 
253,0,10 
82,1.17 
169,0.10 
225,0.10 
82,1,20 
123,1,10 
170,1,30 
123,1.5 
82. 1 , 10 
82,1,15 
123,1.5 
.170,1,10 

2B.1, 30 
,253.0,5 
,225.0, 10 
, 225,0,15 
,253,0,5 
,28, 1,10 
,253,0, 30 
,225,0,5 
,213,0,5 
,189,0,5 
169,0,15 
169,0,5 
82,1, 10 
,253,0.30 
, 126.0,10 
,169,0,10 
.253,0,30 
,0,10,0 



A linha 10 protege a memória acima 
de - 14501 para ali colocar a tabela. O 
laço FOR...NEXT entre as linhas 20 e 
40 usa READ para obter os números da 
tabela e POKÈ para transferi-los para 
a memória. 

Cada linha DATA contém os dados 
necessários para um acorde. Os núme- 
ros são respectivamente: byte menos sig- 
nificativo da tonalidade do canal A, 
byte mais significativo dessa mesma to- 
nalidade, byte menos significativo da to- 
nalidade do canal B, byte mais signifi- 
cativo dessa mesma tonalidade e dura- 
ção do acorde. 

Não se preocupe com os valores que 
determinam as tonalidades das notas. 
Em um próximo artigo, apresentaremos 
uma tabela para a conversão dos parâ- 
metros da instrução PLAY nos valores 
de registros do PSG. 
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Apresentamos neste artigo a segunda 
metade do jogo do Otelo. Depois 
de digitá-la, completando o programa, 
desenvolva algumas jogadas 
inteligentes... e derrote o computador! 



Aqui está a última parte do jogo do 
Otelo. Apos digitar as linhas necessárias 
para completar a movimentação do jo- 
gador, a rotina de movimentação do 
computador e o final da rotina de jogo, 
você poderá se considerar pronto para 
testar suas habilidades, desafiando o seu 
computador. 



VERIFICAÇÃO DAS POSIÇÕES 



íl 



2090 IF NF-1 THEN 2120 

2100 COLOR 1:LINE(0.182)-<255,1 

91) , PSET,BF:DBAWC4S8BH0,162" :A 

S-"LONGE DA JOGADA" :GOSUB 9300: 

FOR F-l TO 900: NEXT F 

2110 GOTO 2000 

2120 RF-0:FOR Q-l TO 8:IF C(Q)- 
0 THEN 2170 
2130 XP-X:YP-Y 

2140 XP-XP+D<Q.l) :YP-YP+D(Q,2) : 
IF XP-0 OR XP-9 OR YP-0 OR YP-9 

THEN C(Q)-0:GOTO 2170 
2145 IF B(XP.YP)-2 THEN 2140 
2150 IF B(XP,YP)-1 THEN RF-l.GO 
TO 2170 

2160 IF. B (XP , YP) -0 THEN C(Q)-0 
2170 NEXT Çj 

2180 IF RF-1 THEN 2210 
2190 COLOR1:LINE(0,182)-(255.19 
1) , PSET. BF : DRAWS8C4BM0 , 182" : A3 
--JOGADA NAO GANHA A TRILHA" :GO 
SUB 9300: FOR F-l TO 900:NEXTF 
2200 GOTO 2000 

2210 FOR Q-l TO 8:IF C(Q)-0 THE 
N 2250 

2220 XP-X+D(Çj,l) :YP-Y+D(Q,2) 
2230 IF B<XP,YP)-1 THEN 2250 



2240 B(XP,YP)-1 :XP-XP+D(Q. 1) :YP 
-YP+DÍQ , 2) :GOTO 2230 
2250 NEXT Q 
2260 B(X,Y)-1 
2270 CP-2:RETURN 



2090 IF NF=1 THEN GOTO 2120 
2100 PRINT AT 17.0;"LONGE DA JO 
GADA" : FOR F-L TO 500: NEXT F 
2110 PRINT AT 17,0;" 

": GOTO 2000 
2120 LET RF-0: FOR Q-l TO 8: IF 

C(Q)-0 THEN GOTO 2170 
2130 LET XP-X: LET YP-Y 
2140 LET XP=XP+D<Q,1) : LET YP=Y 
P+DIQ.2): IF XP-0 OR XP = 9 OR YP 
=0 OR YP-9 THEN LET C (Q) =0 : GO 
TO 2170 

2145 IF B(XP.YP)*2 THEN GOTO 2 
140 

2150 IF 8(XP,YP)=1 THEN LET RF 
-1: GOTO 2170 

2160 IF B(XP,YP)-() THEN LET C( 
Q)-0 

2170 NEXT Q 

2160 IF RF = 1 THEN GOTO 2210 
2190 PHINT AT 17.0;"JOGADA NAO 
GANHA A TRILHA" : FOR F-l TO 500 
: NEXT F 

2200 PRINT AT 17.0;" 

GOTO 2000 
2210 FOR Q-l TO 8: IF C(Q)=0 TH 
EN GOTO 2250 

2220 LET XP-X+DCQ, 1) : LET YP=Y+ 
DÍQ.2) 

2230 IF B(XP,YP)-1 THEN GOTO 2 
250 

2240 LET B(XP,YP)=1: LET XP=XP+ 
D(Q.l): LET YP-YP+D(Q.2) ! GOTO 
2230 

2250 NEXT Q 



fffi 



2090 TFNF-1 THEN 2120 

2100 LINEt0,182)-{255,191) ,1.BF 

:DRAW"C15S8BM50, ].82 _ :AS = "LONGE 

DA JOGADA" : GOSUB9300 : FORF = 1TO90 

0 : NEXTF 

2110 GOTO 2000 

2120 RF=0:FORQ-1 TO 8:IFC(Q)=0 

THEN2170 

2130 XP=X:YP=Y 

2140 XP-XP+D(Q,1) :YP-YP+D{Q,2) : 

IFXP-0 OR XP-9 OR YP-0 OR YP=9 

THENC(Q)-0:GOTO2170 

2145 IF B(XP,YP}-2 THEN 2140 

2150 IF B{XP,YP)-1 THEN RF-l:GO 

TO 2170 

2160 IF B(XP.YP)»0 THEN C<Q)=0 
2170 NEXTQ 

2180 IF RF- L THEN 2210 
2190 LINEt0,182)-(255,191) ,1.BF 
:DRAW"C15S8BM10. 182" :AS=" JOGADA 
NAO GANHA A TRILHA" :GOSUB9300 : 
FORF-lTO900:NEXTF 
2200 GOTO 2000 

2210 FORQ-IT08: IFC (Q) -OTHEN2250 
2220 XP=X+D(Q,1) :YP-Y+D<Q.2) 
2230 IF B[XP,YP)=1 THEN2250 
2240 B(XP,YP)=1 :XP-XP+D{Q.l) :YP 
-YP+D(Q,2) :GOTO2230 
2250 NEXTQ 
2260 B(X,Y)-1 
2270 CP=2:RETURN 



[SE] 




2090 IF NF - 1 THEN 2120 
2100 VTAB (17): PRINT "JOGADA 
LONGE DAS MINHAS PECAS": FOR F 
= 0 TO 1500: NEXT 
2110 VTAB (17) : PRINT " 

" : GOTO 2 

000 

2120 RF = 0: FOR Q = 1 TO 8: IF 

CÍQ) - 0 THEN 2170 
2130 XP - X:YP - Y 
2140 XP = XP + DCQ. 1) :YP = YP + 

D (Q , 2) : IF (XP - 0 OR XP - 9) 
OR (YP - 0 OR YP - 9) THEN C(Q) 

- 0: GOTO 2170 
2145 IF BtXP.YP) - 2 THEN 2140 
2150 IF B(XP.YP) = 1 THEN RF * 

1: GOTO 2170 
2160 IF BtXP.YP) - 0 THEN C(Q) 
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■ MOVIMENTA ÇÃ O DO JOGADO R: 

VERIFICAÇ ÃO 

DAS POSI ÇÕES 

■ ROTINA DE MOVIMENTAÇ ÃO 
DO COMPUTADOR 



■ 


FINAL DA ROTINA 


DE JOGO 


■ 


ANÚNCIO DO VENCEDOR 


■ 


OPCAO PARA 


NOVA PARTIDA 



2190 VTAB (17): PRINT "SUA JOG 
ADA NAO GANHA A TRILHA" : FOR F 
- O TO 1500: NEXT 
2200 VTAB (17) : PRINT " 

■ : GOTO 2 

000 

Z210 FOR Q - 1 TO 8: IF C<«) - 

O THEN 2250 
2220 XP - X + D(Q,1} :YP - Y + D 
<G,2> 

2230 IF B(XP.YP) - 1 THEN 2250 
2240 BtXP.YP) = 1:XP = XP + D <Q 
,1):YP - YP + DÍQ.2): GOTO 2230 
2250 NEXT 0 
2260 B(X.Y) - 3 
2270 CP = 2: RETURN 

Antes de saltar para a linha 2120, o 
indicador NF vê se há alguma peça do 
computador em um quadrado adjacen- 
te (linha 2090). Caso exista, a linha 2100 
imprime uma mensagem de erro. As li- 
nhas 2120 a 2170 verificam se a jogada 
encosta a peça em alguma fileira de pe- 
ças do adversário. 

A linha 2140 verifica se a posição che- 
cada no passo anterior está dentro dos 
limites do tabuleiro. Se não estiver, es- 
ta posição será abandonada e a próxi- 
ma, testada. Na linha 2145, testamos se 
a peça em exame pertence, de fato, ao 
computador. Em caso afirmativo, o 
programa volta para a linha 2140 e atua- 
líza a posição. 

A linha 2180 examina o resultado da 
última operação. Se a fileira foi encon- 
trada, o programa salta para a linha 
2210. As linhas 2190 e 2200 imprimem 
uma mensagem no caso de uma filei 
ra não ser ladeada. O programa vol 
ta para a linha 2000. 



A rotina que descreve a movimenta- 
ção do jogador está contida entre as li- 
nhas 2210 e 2260 do programa. O teste 
C(Q) = 0, da linha 2210, verifica se uma 
fileira do adversário foi encontrada, por 
meto de um ciclo que vai de 1 a 8. Se 
não existir uma fileira naquela direção 
<C(Q) = 0), o programa salta para a li- 
nha 2250 e verifica o Q seguinte. A po- 
sição do primeiro quadrado da fileira a 
ser tomada — linha 2040 — é atribuída 
a XP e VP. 

Na linha 2230, o computador testa se 
o quadrado em questão é o último da 
fileira, encerrando-a, portanto. Em ca- 
so afirmativo, o programa salta para a 
linha 2250. Na linha 2240, o programa 
atribui "um" ao quadrado e, em segui- 
da, volta para a linha 2230, onde testa 
o próximo quadrado. 

Na Unha 2260, o quadrado do joga- 
dor recebe o valor inicial "um". O in- 
dicador CP recebe o valor "dois" para 
o computador e o programa retorna 
(por meio da linha 2270). 



A JOGADA DO COMPUTADOR 



■ ■ 



3000 COLOR 1:LINE(0,182)-(255,1 
91) .PSKT.BF: A3- "MOVIMENTO DO CO 
MPUTADOR" :DRAWS8C3BM26, 182" :(JO 
SUB 9300:NF-1:MX-0:FOR X-l TO 8 




:FOR Y-l TO 8 

3010 IF B(X.Y)<>0 THEN 3070 

3020 FOR F-l TO 8:XP-X : YP-Y :DX- 

D(F.l) :DY-D(F,2) :RF-0 

3030 XP-XP+DY:YP-YP+DX:IF XP-0 

OR XP-9 OR YP-9 THEN 3060 

3040 IF B(XP.YP)-1 THEN RF-l:GO 

TO 3030 

3050 IF B(XP.YP)-2 AND RF-1 THE 

N N(NF)-F:X(NF)-X:Y(NF)-Y:NF-NF 

+1 :F-9 

3060 NEXT F 

3070 NEXT Y,X:NF-NF-1 

3075 IF NF-0 THEN 3300 

3080 FOR F-l TO NF : X-X (F) : Y-Y (F 

) :DX-D<N{F) ,1) : DY-D (N (F) ,2) :CF- 

0 

3090 X-X+DY:Y-Y+DX:IF B(X,Y)-1 
THEN CF-CF+l:GOTO 3090 
3100 IF CF>MX THEN MX-CF:MF-F 
3110 NEXT F 

3180 FOR F-l TO 8 :X-X (MF) : Y-Y (H 

F) :DX-D{F,1) :DY-D(F,2) 

3190 X-X+DY:Y-Y+DX 

3195 IF X<1 OR X>8 OR Y<1 OR Y> 

8 THEN 3260 

3200 IF B(X,Y)-1 THEN 3190 
3210 IF B(X.Y)-2 THEN 3230 
3220 IF B(X.Y)-0 THEN 3260 
3230 X-X (HF) :Y-Y(MF) 
3235 B(X,Y)-2:X-X+DY:Y-Y+DX 
3240 IF B(X,Y)-2 THEN 3260 
3250 GOTO 3235 
3260 NEXT P 

3265 DRAW-S16iC2;BM118,150"+NU9 
(X (NF) ) +NU3 (Y (MF) ) +"S8" 

3270 CP-1 : RETURN 

3300 COLOR 1:LINE (0 . 182) - (255 . 
191) ,PSET.BF:ÀS-"NAO POSSO HOVE 
B":DRAH-S8C4BM50,182':GOSOB 930 
0:FOfl F-l TO 50 : NEXT : CP-1 : RETUR 
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70 

3020 FOR F-l TO B: LET XP-X : LE 
T YP-Y: LET DX-D(F,1): LET DY-D 
(F,Z) : LET BF-0 

3030 LET XP-XP+DY: LET YP-YP+DX 
: IF XP-0 OB XP-9 OB YP-0 OB YP 
•9 THEN GOTO 3060 
3040 IF S(XP,YP>-1 THEN LET BF 
-1: GOTO 3030 

3050 IF B(XP,YP)-2 AND BF-1 THE 
N LET N(NF)-F: LET X(NF)-X: LE 
T Y(NF)-Y: LET NF-NF+1: LET F-9 
3060 NEXT F 

3070 NEXT Y: NEXT X: LET NF-NF- 
1 

3075 IF NF-0 THEN GOTO 3300 
3080 FOR F-l TO NF : LET X=X(F): 

LET Y=Y(F): LET DX=D (N (F) ,1) : 
LET DY=D IN (F) , 2) : LET CF-0 
3090 LET X-X+DY: LET Y-Y+DX: IF 

B(X,Y)-1 THEN LET CF-CF+1 : GO 
TO 3090 




3100 IF CF>MX THEN LET MX-CF: 
LET MF-F 
3110 NEXT F 

31B0 FOB F-l TO 8: LET X-X (MF) : 
LET Y-Y(MF): LET DX-D(F.l)-- LE 
T DY-D(F,2) 

3190 LET X-X+DY: LET Y-Y+DX 

3195 IF X<1 OR X>8 OR Y<1 OR Y> 

8 THEN GOTO 3260 

3200 IF B (X , Y) - 1 THEN GOTO 319 

0 

3210 IF B(X,Y)=2 THEN GOTO 323 

0 

3220 IF B(X.Y)-0 THEN GOTO 326 
0 

3230 LET X-X(MF): LET Y-Y (MF) 
3235 LET B(X,Y>-2: LET X-X+DY: 
LET Y«Y+DX 

3240 IF B{X,Y)=2 THEN GOTO 326 
0 

3250 GOTO 3235 
3260 NEXT F 

3265 PRINT X(MF),Y(MF): INPUT A 
S 

3270 LET CP-1: RETURN 
3300 PBINT AT 17,0;"NAO POSSO J 
OGAR": FOR F-l TO 500: NEXT F 
3305 PRINT AT 17,0;" 



PROGRAMAÇÃO DE MATRIZES 

A programação de jogos de tabulei- 
ro em BASIC utiliza quase sempre a 
mesma técnica: a da programação de 
matrizes. Uma matriz retangular, divi- 
dida em linhas e colunas, é a estrutura 
de dados ideal para a programação e re- 
presentação de tabuleiros de xadrez, 
damas, Otelo, Reversi, Trilha, jogo da 
velha e outros. Entretanto, jogos que 
não seguem o esquema de "quadradi- 
nhos" identificados em linhas e colu- 
nas — como gamão, gomoku e ludo — 
também podem ser programados atra- 
vés de matrizes. 

Em um jogo de tabuleiro retangular, 
geralmente uma só matriz bidimensio- 
nal não basta para armazenar todos os 
dados exigidos. Tomemos como exem- 
plo o xadrez. A cor dos quadrados do 
tabuleiro pode ser computada por mero 
de uma equação simples. E mais fácil, 
porém, armazenar esse tipo de dado 
com códigos numéricos, em uma ma- 
triz COR (8,8). Precisaremos, ainda, 
de uma matriz para indicar as peças 
que ocupam cada quadrado (novamen- 
te, podemos utilizar códigos, como 
pião = 1 , torre = 2 e assim por diante!. 
Outras matrizes serão necessárias pa- 
ra dados referentes a movimentos, 
capturas etc. 

Tudo isso torna a programação de 
jogos de tabuleiro mais complexa do 
que parece. Portanto, se você preten- 
de testar sua habilidade como progra- 
mador, escolha um jogo bem fácil pa- 
ra começarl 



3000 LINE(0,1B2>-(255,191> t l,BF 

:DRAW"S8C15BM30,182-:A3-"COMPUT 

ADOB JOGANDO" :GOSUB9300 : NF-1 : MX 

-0 : FORX-1TOB : FOBY-1T08 

3010 IFB(X,Y)O0THEN3070 

3020 FORF-lTOS:XP-X:YP-Y:DX-D(F 

.1) :DY-D(F,2) :RF-0 

3030 XP-XP+DY: YP-YP+DX : IFXP-0 0 

R XP-9 OB YP-0 OR YP-9 THEN3060 

3040 IFB(XP,YP)-1THENRF-1:GOT03 

030 

3050 IFB(XP,YP)-2 AND BF-1 THEN 
N(NF)-F:X(NF)-X:Y(NF)=Y:NF=NF+ 
l:F-9 
3060 NEXTF 

3070 NEXTY , X : NF-NF-1 

3075 IF NF-0 THEN 3300 

30B0 FORF-lTONF:X-X(F) :Y-Y(F) :D 

X-D(N(F) .1) :DY-D(N(F) .2) :CF-0 

3090 X-X+DY:Y-Y+DX:IFB(X,Y)-1TH 

ENCF-CF+1 :GOTO309O 

3100 IFCF>MX THEN MX-CF:MF-F 

3110 NEXTF 

3180 FOBF-1TOB : X-X (MF) : Y-Y (MF) : 

DX-D(F.l) :DY=D(F,2) 

3190 X-X+DY:Y-Y+DX 

3195 IFX<1 OR X>8 OR Y<1 OR Y>8 

THEN3260 
3200 IF B(X.S)=1 THEN 3190 
3210 IF B(X.Y)=2 THEN 3230 
3220 IF B(X.Y)-0 THEN 3260 
3230 X-X(MF) : Y-Y (MF) 
3235 B (X , Y ) - 2 : X-X+DY : Y-Y+DX 
3240 IF B(X,Y)-2 THEN 3260 
3250 GOTO 3235 
3260 NEXTF 

3265 DBAW"S16BM114,154"+NUS(X(M 




F))+NUS(Y(MF))+"S8' 
3270 CP-1 :RETURN 

3300 LINE(0,182)-(255.191).1,BF 
:DRAW"C15S8BM50,1B2":A$-"NAO PO 
SSO JOGAR" : GOSUB9300 : FOBF-1T090 
0:NEXTF:CP-1:RETURN 



(SEI 



3000 NF - 1:MX - 0: FOR X - 1 T 

0 B: FOR Y - 1 TO 8 

3010 IF B(X.Y) < > 0 THEN 307 

0 

3020 FOR F-l TO B:XP - X:YP 
- Y:DX - D(F,1):DY - D(F.2):BF 



i YP ■ 



DX: 



3030 XP = XP + DY : YP ' 

IF (XP = 0 OR XP - 9) OR (YP - 

0 OR YP - 9) THEN 3060 
3040 IF B(XP.YP) = 1 THEN RF = 

1: GOTO 3030 
3050 IF B(XP.YP) - 2 AND BF - 
1 THEN N (NF) = F:X(NF) = X:Y(NF 
) - Y:NF - NF + 1:F - 9 
3060 NEXT F 

3070 NEXT Y: NEXT X:NF - NF - 



3075 



IF NF - 0 THEN 33O0 
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3080 FOB F - 1 TO NF:X - X(F): 

Y - Y(F):DX - D(N(F),1):DY - D( 
N (F) ,2) :CF - 0 

3090 X-X+DY:Y-Y+DX: IF 
8(X,Y) - 1 THEN CF - CF + ll GO 
TO 3090 

3100 IF CF > MX THEN MX - CFrM 

r - f 

3110 NEXT 

3180 FOH F - 1 TO 8:X - X(MF): 

Y - Y (MF) ; DX - D(F,1):DY ■ D (F , 
2) 

3190 X-X+DY:Y-Y+DX 
3195 IF X < l OR X > B OR Y < 
1 OR Y > 8 THEN 3260 
3200 IF B(X.Y) - 1 THEN 3190 
3210 IF B(X,Y) - 2 THEN 3230 
3220 IF B<X,Y) - 0 THEN 3260 
3230 X - X(MF) :Y - Y (MF) 
3235 B(X.Y) - 2:X - X + DY:Y - 

Y + DX 

3240 IF B(X,Y) - 2 THEN 3260 
3250 GOTO 3235 
3260 NEXT 

3265 VTAB £17): PRINT "MINHA J 
OGADA (LINHA, COLUNA) - "iX(MF)i 
","iY(MF): FOR F - 0 TO 3000: N 
EXT 



3270 VTAB (17) : PRINT " 

":CP - 1: BETURN 

3300 VTAB (17): PRINT "NAO POS"" 

30 JOGAR": FOR F - 0 TO 1500: N 

ext a 

3310 VTAB (17) : PRINT " 
":CP - 1: RETURN 



No começo, o número de quadrados 
em uma fileira c um, e o número máxi- 
mo de pecas, zero (linha 3000). Dois la- 
ços — com variáveis de controle XeY 
— sâo iniciados, com a função de pro- 
curar espaços vazios no tabuleiro. Esta 
é a parte do programa que consome 
maior tempo. No decorrer do jogo, à 
medida que o número de quadrados va- 
zios diminui, o tempo de jogada do 
computador também vai diminuindo. 

A linha 3010 verifica se o quadrado 
está vazio. Se não estiver, o computa- 
dor salta os próximos comandos (linha 
3070). As linhas que vão de 3020 a 3060 
verificam se o quadrado está no fim de 
uma fileira que poderá ser tomada pelo 
computador. XP e YP são usados da 
mesma maneira que anteriormente. DX 
e DY representam os conteúdos do ve- 
tor direção D() e economizam bastante 
espaço de memória. 

A linha 3030 checa se o quadrado que 
vai ser testado está dentro dos limites do 
tabuleiro. Se ele não estiver, a próxima 
direção será testada. Se o quadrado em 
exame pertencer ao jogador, a rotina 
voltará para a linha 3030 para verificar 
se o quadrado seguinte está ocupado por 
ele. 

A linha 3050 examina o tabuleiro, pa- 
ra saber se está sendo ocupado pelo 
computador. Caso esteja, e se alguma 
fileira tiver sido encontrada, as posições 
iniciais serão gravadas em X0 e Y0, e 
o número da direção será gravado em 
NO. O contador que indica o número de 
coordenadas encontradas é também in- 
crementado. 

Apenas a primeira fileira será "me- 
morizada", para garantir que a busca 
leve o menor tempo possível. 

As linhas 3080 a 3110 encontram a 
jogada capaz de fornecer o placar mais 
longo em uma linha reta. Um ciclo que 
varia de 1 até NF (número de quadra- 
dos encontrados) é acionado. XeY são 
equacionados com X(F) e Y(F), As 
coordenadas de direção (DX e DY) re- 
cebem valores iniciais correspondentes 
às direções indicadas por N(F). Um con- 
tador temporário (CF) é zerado a cada 
execução do ciclo. 

A Unha 3090 verifica se a peça que 
foi testada é a do jogador. Em caso afir- 
mativo, CF é incrementado e o próxi- 
mo quadrado naquela direção torna-se 




objeto de teste. A linha 3100 compara 
o número encontrado (CF) com o valor 
máximo anterior (MX). Se o primeiro 
for maior, MX assume o valor de CF e 
MF, as coordenadas da melhor peça en- 
contrada, indicada pelo valor do conta- 
dor do laço, ou seja, F. 

As linhas 3 1 80 a 3260 executam a ro- 
tina de movimentação. A linha 3180 ini- 
cia um ciclo que vai de 1 a 8, de forma 
que todas as fileiras possam ser encon- 
tradas. 

As variáveis X, Y, DX e DY recebem 
valores iniciais conforme foi explicado 
anteriormente. A linha 3195 checa se X 
e Y ainda estão no tabuleiro. Caso eles 
não estejam, o programa salta imedia- 
tamente para a linha 3260, que contém 
uma instrução NEXT. 

A linha 3200 verifica se o jogador es- 
tá ocupando um quadrado. Se estiver, 
a rotina salta para tentar o próximo qua- 
drado da fileira. Nenhum quadrado é al- 
terado, pois a rotina está apenas reali- 
zando testes. 

Se a fileira terminar em um quadra- 
do ocupado pelo computador, XeY são 
reinicializadas e as linhas 3235 a 3250 al- 
teram todos os quadrados na fileira. Se 
um quadrado vazio for encontrado, 
tenta-se uma nova direção. 

Assim que a rotina de movimenta- 
ção tiver decidido para qual quadrado 
irá se dirigir, a linha 3265 imprimirá as 
coordenadas e aguardará que a tecla 
<ENTER> seja pressionada. 

Na vez do jogador, o indicador CP 
começa valendo "um" (linha 3270) e, 
depois, volta para o ciclo principal. 



□ 
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Como adaptar um jogo que utiliza 
peças coloridas para um micro com 
vídeo monocromático? 

Dependendo do tipo de gogo, a adap- 
tação não é nada fácil. Mas existem al- 
gumas alternativas cujo resultado é 
bastante razoável: 

• Para diferenciar as peças dos opo- 
nentes, utilize recursos gráficos como 
hachurados. quadriculados ou pontilha- 
dos, cujo efeito é bem visível em preto 
e branco. Você só terá problemas se as 
peças forem pequenas a ponto de nâo 
haver espaço para nenhum tipo de de- 
senho que as identifique. 

• Também como elemento de diferen- 
ciação, faça uso do vídeo inverso/vídeo 
direto — por exemplo, pedras pretas 
em um quadrado preto, pedras brancas 
em um quadrado branco e pedras so- 
bre quadrados de outra cor. 

• Se o seu computador possui um ví- 
deo monocromático multitonal (isto é, 
em que as cores têm correspondência 
em diversas tonalidades de verde ou 
cinza), identifique as peças dos opo- 
nentes utilizando intensidades ou bri- 
lhos diferentes. 




4015 AS--F0I FÁCIL" 
4020 COLOR 1 :LINE (0, 182) - (255. 1 
91) . PSET.BF:DRAU"S8C2BM70. 182" : 
GOSUB 9300 

4025 FOR F-l TO 1500:NEXT F 
4030 COLOR 1:LINB(0,182)-(25S,1 
91) . PSET.BF : A3-"QUER JOGAR OUTR 
A VEZ ?' :DRAU"C3BM0, 182' : GOSUB 
9300 

4040 AS-INKEYS:IF AS<>"8" AND A 

3<>'N" THEN 4040 

4050 IF AS-"S" THEN RUN 

4060 ENO 

5000 AS-"VOCE TEVE SORTE" 
5010 GOTO 4020 

6000 A3-"EMPATAM0S":00T0 4020 



4000 IF PS>CS THEN GOTO 5000 

4010 IF PS-CS THEN GOTO 6000 

4020 PRINT AT 17,0; INK 2;"FOI 
FÁCIL !" 

4030 PRINT "QUER JOGAR OUTRA VE 
■ Z ? (S/N) " 

I 4040 LET AS-INKEXS: IF AS<>"S" 



AND ASO-N" THEN GOTO 4040 
4050 IF AS-"S" THEN RUN 
4060 STOP 

5000 PRINT AT 17.0; INK 2;"VOCE 

TEVE SORTE ! " 
5010 GOTO 4030 

6000 PRINT AT 17,0; INK 2 ; "NOS 
EMPATAMOS . . . PRE 
CISO PRATICAR MAIS 1 " : GOTO 403 



ai Ei 



4000 IF PS>CS THEN S000 

4010 IF PS-CS THEN 6000 

4015 A$-"FOI MUITO FÁCIL" 

4020 LINE(0,182)-(255,191) ,1.BF 

:DRAW"C15SBBM70 , 182" :GOSUB9300 

4025 FORF-1T01500:NEXTF 

4030 LINE(0,182)-(255,191) ,1,BF 

:A3-"0UER JOGAR NOVAMENTE" : DRAW 

"C15BM30, 182" :GOSUB9300 

4040 AS«INKEY$rIFASO"S" AND AS 

<>"a" AND A$<>"N* AND A$<>"n" T 

HEN 4040 

4050 IF AS-"S" OR AS-"a" THEN R 
UN 

4060 END 

5000 AS-"VOCE TEVE SORTE" 
5010 GOTO 4020 

6000 AS-"UM BELO EMPATE" : GOTO40 



4000 IF TS > CS THEN 5000 
4010 IF PS - CS THEN 6000 
4020 VTAB (17): PRINT "FOI FAC 
IL !" 

4030 TNPUT "QUER JOGAR NOVAMEN 
TE (S/N) ":A$ 

4040 A$ ■ t.EFTS (AS.lt: IF AS 
< > "S" THEN END 
4050 RUN 
4060 END 

5000 VTAB (17): PRINT "VOCÊ TE 
VE SORTE DESTA VEZ 1" 
5010 GOTO 4030 

6000 VTAB (17): PRINT " EMPATAM 
OS, PRECISO TREINAR MAIS !": GO 
TO 4030 

A rotina de fim de jogo começa na li- 
nha 4000, que verifica se o jogador ven- 
ceu, comparando PS com CS. O progra- 
ma salta para a linha 5000 para impri- 
mir a mensagem de vitória. A linha 4010 
detecta a ocorrência de empate, e a men- 
sagem correspondente é impressa pela li- 
nha 6000. Se o computador tiver venci- 
do, o programa atinge a linha 4020 e exi- 
be uma mensagem para o jogador. As 
linhas restantes oferecem a opção para 
uma outra partida. 
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AS SECOES DO CONE 


■ 


DESENHE CÍRCULOS, ELIPSES, 


PARÁBOLAS E HIPÉRBOLES 


■ 


ROTAÇÃO DE CURVAS 


■ 


APLICAÇÕES PRÁTICAS 



Forma geométrica das mais fascinantes, 
o cone é responsável pela 
geração de toda uma família de curvas. 
Eis aqui alguns programas para 
explorar as propriedades dessa figura. 



Criadores da geometria, os gregos an- 
tigos consideravam as curvas — pelas 
quais eram fascinados — tanto mais im- 
portantes quanto mais simples e elegan- 
tes eles fossem. Assim, quando se des- 
cobriu que toda uma família de curvas 
— conhecidas como seções cónicas — 
poderia ser obtida simplesmente cortan- 
do-se um cone de diferentes maneiras, 
pareceu óbvio que esses sólidos geomé- 
tricos deviam ter uma significação espe- 
cial. Realmente, dependendo de como 
se secciona o cone, pode-se obter um cír- 
culo, uma elipse, uma parábola ou uma 
hipérbole. 

Na verdade, o traço marcante dessas 
curvas está no fato de que elas não são 
meras abstrações matemáticas, mas apa- 
recem a todo momento no nosso coti- 
diano e proporcionam uma descrição 
exata de fenómenos físicos. 

Existem, certamente, outras curvas 
simples encontradas na natureza que 
não são seções de um cone. A forma 
produzida por uma corda ou corrente 
presa por dois pontos nas extremidades 
é um exemplo. Conhecida como catená- 



ria, essa curva difere ligeiramente da pa- 
rábola. Entretanto, as equações que ser- 
vem para descrever as duas formas são 
completamente distintas. As seções có- 
nicas aparecem frequentemente relacio- 
nadas ao modo como as coisas se mo- 
vem (um objeto lançado sobre a super- 
fície da Terra, por exemplo, executa 
uma curva parabólica). Assim, elas são 
necessárias para uma simulação convin- 
cente e exata desses movimentos. 

Algumas curvas também são úteis pa- 
ra definir objetos tridimensionais. Os 
cortes de um cone têm obviamente duas 
dimensões, mas podem ser rodados em 
seus eixos para produzir uma forma de 
três dimensões. Assim, o circulo se 
transforma em uma esfera, com um sem 
número de aplicações; a parábola, em 
um parabolóide, usado em objetos co- 
mo faróis de automóveis, espelhos de te- 
lescópios, fornos solares etc. 

A primeira parte deste artigo descre- 
ve cada curva e como desenhá-la na te- 
la do computador, enquanto a segunda 



mostra como usá-la em simulações co- 
mo a trajetória de um balde (ou outro 
objeto) pendurado em uma escada que 
desliza e acaba caindo (uma elipse) ou 
a curva descrita por uma pessoa cruzan- 
do um rio a nado (uma parábola). 

Veremos também como desenhar be- 
las formas usando a hipérbole e a elipse. 
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COMO CORTAR 0 CONE 



As quatro curvas obtidas quando se 
seccionar um cone — o círculo, a elip- 
se, a parábola e a hipérbole — diferem 
totalmente entre si. Foram estudadas em 
detalhe pela primeira vez pelo grego 
Apolônio, por volta de 200 a.C. 

O ponto inicial é: se um par de retas 
que se cruzam — como um X — roda 
em lorno de um eixo de simetria, gera- 
se um duplo cone (veja os desenhos des- 
tas páginas) que pode ser cortado por 
um plano de quatro maneiras. 

Se um corte é feito em ângulo reto ao 
eixo de simetria, a seção resultante é um 
circulo. 

Um corte feito em um ângulo entre 
90" e metade do ângulo formado pelas 
linhas que geraram o cone (conhecido 
como ângulo semivertical do cone) pro- 
duz uma elipse. 

Um plano que faz com o eixo um ân- 
gulo igual ao ângulo semivertical nos dá 
uma parábola. Já um plano que faz com 
o eixo um ângulo menor que o semiver- 
tical cria uma seção em duas partes cha- 
mada hipérbole. Ela tem duas partes 
porque nosso plano corta tanto o cone 
de cima como o de baixo (lembre-se de 
que o duplo cone foi gerado pela rota- 
ção de um X). 

Existem dois casos especiais. Se, por 
exemplo, o corte é feito por um plano 
que passa pelo eixo, isto é, se os cones 
são divididos verticalmente"pe!a meta- 
de, serão obtidas duas linhas retas — 
aquelas que foram usadas para gerar a 
figura. Elas configuram na realidade um 
caso especial de hipérbole. Por outro la- 
do, se um plano cortar os cones pelo vér- 
tice, fazendo um ângulo reto com o ei- 
xo vertical, tudo o que se tem é um pon- 
10, que é um círculo de raio zero. 

Os desenhos destas páginas devem 
deixar claro como tais formas são obti- 
das. Se quiser, você também pode cor- 
tar cones feitos de material de fácil ma- 
nipulação — como isopor ou papel — 
e verificar o que obtém. Um cone du- 
plo só será necessário se você quiser ter 
uma hipérbole de verdade, visto que ela 
sempre tem duas partes. 



CURVAS f MAIS CURVAS 



As curvas são geradas por equações 
simples, algumas das quais já foram 
abordadas em outros programas. Elas 
serão sempre desenhadas na tela de alta 
resolução do seu micro. Vejamos agora 
algumas delas. Comecemos pelo círcu- 
I lo, uma das curvas mais simples. 



A equação de um círculo é dada por: 

X = A*COS teta 
Y = A*SEN teta 

onde A é o raio. X e Y, um ponto qual- 
quer da circunferência, c teta, o ângulc 
formado com uma reta prefixada, em 
geral o eixo X. 

O primeiro programa desenha um 
círculo de raio A no meio da tela: 



10 CLS 
15 LET a=70 
25 LET x-a: LET y=0 
30 PLOT i27+X.70+Y 
40 FOR t=0 TO 2*PI STEP .2 
50 LET x-d*COS t. : LET y = a*SIN 
t 

60 DRAW x-PEEK 2 .16 / 7+ 1 2 7 , y - 
PEIEK 2.1678 + 70 
70 NEXT 1 



O laço FOR. ..NEXT das linhas 40 a 
70 é a parte do programa que desenha 
o círculo, traçando repetidamente seg- 
mentos de reta a intervalos de 10" (ou 
0.2 radianos). O raio do círculo é defi- 
nido na linha 15. 



A equação da elipse é muito pareci- 
da com a do circulo. Para uma elipse 
com o eixo maior 2A e o menor 2B, a 
posição do ponto da periferia é: 



A forma da elipse — ou seja, suas 
proporções de características mais ou 
meno.s achatadas — é determinada por 
A e B. Altere estas linhas: 



li 



10 PMODE 4:PCLS:SCREEN 1,1 
15 A=60 

20 C-ATN(l>/45 

30 LINE- (127+A.95) , PRESET 

40 FOR TH-0 TO 360 STEP 10 

50 X«A*C0S(TH*C) : ¥-A*SIN <TH«C) 

60 LINE - (127+X , 95+Y) . P3ET 

70 NEXT TH 

80 GOTO 80 



It) COLOR .15.4 .4 rSCREENJ 
15 A*>60 

20 C = ATNU)/45 
10 LfNE -(127+A.95) .4 
40 KOH TH-0 TO 160 3TEP 10 
50 X=A*COS (TH»C) ; y-A*Sl"N (TH*C 
60 LINE - (127 + X. 95+Y) , 15 
7 0 NEXT 
80 GOTO 80 




□bei 



HCOLOR= 3 



10 HOME : HGR 
15 A - 60 

20 C = ATN ( 1 } / 45 
.10 HPI.OT 127 + A. 95 
40 FOR TH = 0 TO 160 STEP 10 
50 X - A • COS (TH * Cl : ¥ ■ A 
* SIN |TH « 0) 
60 HPLOT TO 127 + X,95 + ¥ 
70 NEXT 
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Figura 1 






70 NEXT t 

75 LET x=m/COS (PT -3 ) ■ LET Y» 
m*TAN <PI-1) 
80 PLOT 177+X.75+Y 
90 FOR t"PI-L TO PI + 1 STEP .1 
100 LET x = m/COS Í: l.ET y = m* I AN 

110 DRAW 127+x-PEKK 236//,75*v 










-PKEK 236/8 
120 KEXT t 

D 

10 PMODE 4:PCLS:SCREEN 1,1 
15 M-50 

20 C-ATN(l)/45 

30 LINE -(227.8) .PRESET 

40 FOR TH--60 TO 60 STEP 5 

50 X-M/COSÍTH-C) : Y=M*TAN (TH*C) 










60 LINE - (127+X.95+Y) . P3ET 
70 NEXT TH 

80 LINE-Í26.8) . PRESET 

90 FOR TH-120 TO 240 STEP 5 

100 X-M/COS (TH*C) : Y-M*TAN (TH*C) 

110 LINE- (127+X.95+Y) ,PSET 

120 NEXT TH 

130 GOTO 130 



10 CLS 

15 LET IB=20 

25 LET x=4*m: LET y=--4*m 

30 PLOT 127+X.80+Y 

40 FOR t=-2 TO 2 STEP .05 

50 LET x=m*t*t: LET y = 2*m*t 

60 DRAW x-PEEK 23677+127, y- 

PEEK 23678+80 

7 0 NEXT t 



40 FOH T » 



60 HPt.OT TO 



,1 



10 PMODE 4:PCLS:SCREEN 
15 M-23 

20 C-ATN(l)/45 

30 LINE- (127+M*4 , 95-4*M) . PRESET 

40 FOR T— 2 TO 2 STEP .05 

50 X-M*T*2:Y-2*M*T 

60 LINE-U27+X.95+Y) , PSET 

70 NEXT T 

60 GOTO 80 



10 COLOfil5,4.4:SCREEN2 

15 M=23 

20 C-ATN(l)/45 

30 LINE - ( I 2/+MM ,95-M*4) . 4 

40 FOR T— 2 TO 2 STEP .05 

50 X=M*T"2:Y'7*M"T 

60 LINE - I127+X.95 + Y) , 15 

70 NEXT 

80 COTO 80 



2 TO 2 STF 
2:Y -2*1 
127 + X,95 



A equação da hipérbole é: 

X = A/COS tela 
Y - B*TG teta 

Metade da hipérbole é traçada en- 
quanto teta varia de -90° a 90° e a ou- 
tra metade, enquanto teta varia de 90" 
a 270°. Teoricamente, é possível usar 
apenas um laço no programa para va- 
riar teta de -90 a +270, mas há proble- 
mas nos pontos -90, 90 e 270, onde ocor- 
re uma divisão por zero. Mesmo com 
valores próximos destes, grandes núme- 
ros são envolvidos. Assim, o nosso pro- 
grama recorre a dois laços. Novamen- 
te, o fator M vem estabelecer a escala 
mais adequada para a figura: 



10 CLS 

15 LET tn-30 

25 LET jt=m/t'OS -li LET v = n* 
TAN -1 

30 PLOT 127+x,75+y 
40 FOR t«-l TO 1 STEP .1 
50 LET X=»/COS t : LET y*m*TA 
t 

60 DRAW 127+x-PEEK 23677-, 75+ 
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fffi 



10 COLORIA. €,4:8CRBBI2 



15 I 



-so 



:-ATN(l}/45 
30 LINE -{777. 8) .4 
40 FOB TH=-60 TO 60 STEP 5 
50 X=M/COS [TH*C1 • Y-M*TAN (TH*C) 
60 LINE -P127+X.95+Y) ,15 
70 NEXT 

80 LINE -(26,8) .4 

90 FOR TB-120 TO 240 STEP 5 

100 X-M/COS (TH*C) ■ ¥=M'TAN (TH*C) 

110 LINE - (127+X.95+Y) , 15 

120 NEXT 

1 30 GOTO 1 30 



ais] 



10 HOME : HGR2 : HCOI.OH» 3 
15 M - 50 

20 C " ATN (1) 7 45 
30 HPLOT 227,8 

40 FOB TH - - 60 TO 60 STEP 5 

50 X - M / COS (TH * C):T - H 

* TAN (TH * C) 

60 HPLOT TO 127 + X.95 + Y 



70 NEXT 

80 HPLOT 26,8 

90 FOR TH = 120 TO 240 ST 

100 X = M / COS (TH « C] : 

* TAN (TH * C) 
110 HPLOT TO 127 + X,95 
120 NEXT 



COMO RODAR AS CURVAS 



Os programas anteriores desenharam 
as curvas na sua forma mais simples, so- 
bre um eixo horizontal e outro vertical. 
No entanto, essa posição nem sempre é 
conveniente; além disso, pode-se querer 
desenhar as curvas em outra posição. A 
figura 1 mostra o que acontece com um 
ponto na periferia de uma elipse quan- 
do esta sofre uma rotação de um ângu- 
lo de AN graus. O ponto P move-se da 
posição X,Y para uma nova posição 
XT, YT e as novas coordenadas são da- 
das por: 

XT = X*COS AN-Y*SEN AN 
YT = X*SEN AN + Y*COS AN 




Eis aqui a rotina de rotação para c 
a computador: 



1000 LET xt=x*COS (an*PI/180)-y 
"SIN (an*PI/180) 

1010 LET yt=x*SIN (an«PI / 180) +y 
■COS Un*PI/180) 
1020 RETURN 

1000 XT-X*C0S(AN"O-Y«SIN(AN*C) 
1010 YT-Y*COS(AN*C)+X*SIN<AN*C) 
1020 RETURN 

Algumas alterações deverão ser fei- 
tas nos programas que desenham as cur- 
vas para que eles possam usar a sub- 
rotina de rotação. Em primeiro lugar, 
o ângulo de rotação tem que ser especi- 
ficado (linha 17); a posição inicial deve 
ser rodada e as linhas, desenhadas nas 
novas coordenadas XT e YT. A linha 17 
pode ser alterada para permitir a entra- 
da do valor do ângulo para rotação por 
meio de uma instrução INPUT. É im- 
portante lembrar que essa instrução de- 
ve ser colocada antes da seleção do mo- 
do gráfico. 

Vejamos agora quais são as mudan- 
ças que precisamos realizar no progra- 
ma BASIC que desenha a elipse. Não se 
esqueça de incorporar a rotina de rota- 
ção a cada programa. 



17 LET an=60 

28 GOSUB 1000 

30 PLOT J 27+Xt . 70+yt 

55 gosub 1000 

60 DRAU xt-PEEK 2367 7+1 27 . yt 
PEEK 23678+70 
80 STOP 



17 AN- 60 

25 X-A:G0SUB 1000 

30 LINE- (127+XT, 95+YT) , PRESET 

55 GOSUB 1000 

60 LINE- (127+XT, 95+YT) , PSET 



17 AN=60 

25 X=AíGOSU9 1000 

30 LINE -(12/+XT. 95+YT) ,4 

55 GOSUB 1000 

60 LINE - (XT+127.YT+95) ,15 



QEE] 



17 AN ■ 60 

25 X - A: GOSUB 1000 
30 HPLOT 127 + XT,95 
55 GOSUB 1000 
60 HPLOT TO 127 + XT.95 
80 END 



VT 
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PROGRAMAÇÃO BASIC 
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Para fazer a rotação da parábola 
deve-se empregar a mesma sub-rotina. 
Adicione-a ao programa principal e fa- 
ça as seguintes alterações: 



) :GOSUB 1000 

80 DRAW"BM" + STR9(INTU27+XT))+' 

,-+STRS(INT(95+YT)) 

90 FOR TH-135 TO 240 STEP 5 

10S GOSUB 1000 

110 LINE -(127+XT, 95+YT) ,PSET 



17 LET an = 6Cl 

28 GOSUB 1000 

30 PLOT 127+xt.80+yt 

40 FOP. t— i.?S TO 1.75 STEP 

.05 

55 GOSUB 1000 

60 DRAW 127+xt.-PEEK 2.3677,80 + 
yt-PEEK 23678 
80 STOP 



FM 



60 LINE - (XT+127, YT+95) . 15 

75 X=M/COS(135*C) :V=M*TANU15- 

) ! GOSUB 1000 

80 LINE - (127+XY.95 + YT) .4 
90 FOR TH-135 TO 240 STEP 5 
J 05 GOSUB 1000 
110 LINE -(XT+)27,YT+95) .15 



17 AN = 60 
25 X=M/COS(-60*C) ' Y=M*TAN (~6Q*C 
) :(!OSUB 1000 

30 LINE -(127+XT. 95+YT) .4 
55 GOSUB 1000 



15 M - 35 
17 AN - 60 
25 X * M / COS ( 
M * TAN ( - 60 * 



D 



17 AN-60 

20 C-ATNÍD/45 

25 X-«*4:Y— M«4:GOSUB 1000 

30 LINE -( 127+XT . 95+YT) , PRESET 

S5 GOSUB 1000 

60 LINE -{127+XT, 95+YT) , PSET 



17 AN-60 

25 X = MM : Y = -M*4 : GOSUB 1000 
30 LINE -(127+XT. 95+YT) .4 
55 GOSUB 1000 

60 l.TNE -(XT+L27.YT+95) .15 



YT 



15 M - 17 
17 AN - 60 

20 C = ATN (1) / 45 
25 X = B M:V ' - M 
B 1000 

30 HPLOT 127 + XT.95 
55 GOSUB 1000 

60 HPLOT TO 127 + XT.95 + YT 
S0 END 

E, finalmente, as alterações para ro- 
dar a hipérbole: 



17 LET an-60 

28 GOSUB 1000 

30 PLOT 127+xt,75+yt 

55 GOSUB 1000 

60 DRAM 127+xt-PEEK 23677,75+ 
yt-PEEK 23678 
76 GOSUB 1000 
80 PLOT 127+xt, 75+yt 
105 GOSUB 1000 

110 DRAU 127+xt-PEEK 73677,75+ 
yt-PEEK 23678 
130 STOP 




D 



17 AN-60 

25 X-M/COS(-60*C) :Y-M*TAN(-60»C 
) :GOSUB 1000 

30 LINE - (127+XT. 95+YT) , PRESET 
55 GOSUB 1000 

60 LINE -(XT+127.YT+95) .PSET 
75 X-M/COS(135*C) :Y-M*TAN(135«C 
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oo 

30 HPLOT 127 + XT.95 4 YT 
55 GOSUB 1000 

60 HPLOT TO 127 + XT.95 + YT 
75 X ■ H / COS (135 * C) : Y ■ M 

* TAN (1.15 * C) : G0SUH 1000 
60 HPLOT 127 + XT.95 + YT 
90 FOB TH = 1.35 TO 240 STEP 5 
105 C0SUB 1000 

110 HPLOT TO 12/ + XT.95 + YT 
130 END 




APLICAÇÕES PRÁTICAS 



Todas essas curvas podem ser usadas 
de alguma forma prática. 

O circulo tem (amas aplicações que 
nem todas podem ser listadas. A roda 
é um exemplo óbvio, assim como a bo- 
la também o é para a esfera. As esferas 
(ou formas aproximadas) aparecem com 
frequência na natureza. Os exemplos 
vão desde laranjas até planetas. Mas elas 
raramente são perfeitas, devido à ação 
da gravidade, ventos ou outras forças. 
Um planeta rodando ao redor de uma 
estrela poderia ter uma órbita circular, 
apesar de ser mais provável que ela fos- 
se elíptica. 

As aplicações para o círculo são tão 
amplas como a determinação do menor 
custo de transporte para um produto 
que pode ser comprado em dois lugares 
diferentes. Suponhamos, por exemplo, 
que você queira comprar um modelo de 
computador vendido pelas firmas A e B, 
que estão distante 300 km entre si. Su- 
ponhamos ainda que a firma A envie o 
computador por um serviço especial de 
entrega a um custo de um cruzado por 
km, enquanto a firma B o faça em seu 
próprio caminhão, ao custo de cinquen- 
ta centavos por km. É muito simples 
marcar num mapa a região em que é 
mais barato comprar de A ou de B. A 
idéia é unir por meio de uma linha to- 
dos os pontos onde os custos são iguais. 
Neste caso, devemos definir os lugares 
em que a distância a(é B seja o dobro 
da distância até A. 

Um desses pontos fica na linha que 
liga as duas firmas, a 100 km de A e 200 
km de B. Outro ponto fica na mesma 
linha, a 300 km de A, no sentido opos- 
to a B. Se todos esses pontos forem uni- 
dos, leremos um círculo de raio igual a 
200 km, como se vê na figura 2. Se vo- 
cê vive dentro do circulo, é mais barato 
comprar de A; se vive fora, é mais com- 
pensador comprar de B. 

A elipse (ambém tem aplicações prá- 
ticas. É possível, por exemplo, colocar 
uma elipse em tal posição que sua som- 
bra, projetada sobre uma superfície pla- 
na, assuma a forma de um circulo per- 
feito. Essa propriedade pode ser usada 
em válvulas de dutos circulares, onde 
uma aba elíptica é usada para controlar 
o fluxo de líquidos ou gases. Ao atingir 
determinado ângulo, a aba se encaixa 
perfeitamente no duto, bloqueando o 
fluxo da substância. A parábola descre- 
ve a curva traçada por um projétil. Mas 
certos corpos celestes, como os cometas, 
podem também viajar em órbitas para- 
bólicas em torno do Sol e de outras es- 
trelas. 




PARÁBOLAS E HIPÉRBOLES 

Os programas deste artigo foram 
concebidos de modo a explorar da me- 
lhor maneira a tela do seu micro. Ao 
usar essas formas em programas, o fa- 
tor de escala M deve ser alterado para 
que sejam obtidas curvas do tamanho 
adequado. 

Ao rodar parábolas e hipérboles, é 
necessário tomar certos cuidados pa- 
ra que os pontos das extremidades das 
curvas não caiam fora da tela. Assim, 
altere o fim do laço FOR...NEXT da li- 
nha 40 do programa da parábola e das 
linhas 40 a 90 do programa da hipér- 
bole. O limite exato deverá ser encon- 
trado pelo método de 



Por outro lado, raios de luz e calor 
paralelos ao eixo de uma parábola são 
refletidos de modo a passar pelos focos. 
Isso acontece nas duas direções. Assim, 
um filamento colocado no foco produ- 
zirá um feixe paralelo de luz, como os 
usados em faróis de automóveis. Na ou- 
tra direção, os raios solares podem ser 
concentrados no foco de uma parábo- 
la, produzindo altíssimas temperaturas; 
este é o princípio de funcionamento dos 
fornos solares. 

Na prática, os refletores utilizados 
para tais fins são parabolóídes tridimen- 
sionais. Estes também são usados em 
outras aplicações, como antenas para re- 
cepção e transmissão de ondas de rádio, 
acessórios de sistemas de televisão e te- 
lefonia etc. 

Uma característica importante da hi- 
pérbole é — como já foi dito — sua 
constituição em duas partes. Os sistemas 
de radar para navegação valem-se des- 
sa qualidade, funcionando com duas es- 
tações. Uma delas transmite um sinal, 
que é retransmitido imediatamente pe- 
la outra estação. Ao receber os dois si- 
nais, o operador de um navio nas pro- 
ximidades calcula o tempo entre as duas 
emissões. Se o barco se move de manei- 
ra a manter constante o tempo entre as 
chegadas, é porque tem um curso hiper- 
bólico, como é mostrado na figura 3. Se 
o operador também receber sinais de ou- 
tras duas estações e calcular o tempo en- 
tre a chegada dos sinais, terá outra hi- 
pérbole; a interseção das duas dará a po- 
sição do navio. 
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VPEEK E VPOKE 



Você pode criar e movimentar sprites 
com a ajuda dos versáteis 
comandos VPOKE e VPEEK. Mas, para 
isso, precisa conhecer primeiro a 
organização de memória de vídeo do MSX. 



Até agora, usamos bastante os co- 
mandos VPEEK e VPOKE para obter 
efeitos gráficos, mas nunca na progra- 
mação de sprites. Para fazer isso, pre- 
cisamos conhecer bem a organização da 
memória de vídeo do MSX, a chamada 
VRAM. A estrutura dessa memória, 
bem como os princípios básicos dos co- 
mandos VPEEK e VPOKE, foi explica- 
da no artigo Os Comandos PEEK e PO- 
KE (página 261). 

A VRAM é uma memória indepen- 
dente, com capacidade de armazenar até 
16 kbytes. Ela é utilizada por um chip 
especial, que se dedica integralmente ao 
controle da tela: o VDP — Video Dis- 
play Processor. 

O MSX pode dispor da tela de quatro 
formas: texto em quarenta colunas, tex- 
to em 32 colunas, gráficos em alta reso- 
lução e gráficos em baixa resolução. E 
o VDP que determina o tipo de tela que 
está sendo mostrado no video. Quando 
estamos programando em BASIC, o co- 
mando SCREEN ajusta o VDP para 



mostrar o tipo de tela desejado. 

Os diferentes tipos de tela nada mais 
são que maneiras diversas de interpre- 
tar os números que estão na VRAM. Pa- 
ra fazer essa interpretação, o VDP di- 
vide a memória de vídeo em regiões que 
são denominadas tabelas. Cada tabela 
tem sua função. No modo texto de qua- 
renta colunas, por exemplo, existe uma 
tabela de nomes, cuja função consiste 
em armazenar os códigos ASCII das le- 
tras que aparecem no texto. Uma vez 
que coloquemos um código numa certa 
posição da tabela de nomes, o VDP uti- 
liza esse valor a fim de encontrar os 
bytes que determinam o formato da le- 
tra em outra parte da VRAM (na cha- 
mada tabela de padrões). 

Os quatro tipos de tela têm tabelas de 
nomes e tabelas de padrões, que funcio- 
nam de maneira parecida. Para que não 
seja preciso memorizar os endereços ini- 
ciais de cada uma delas na VRAM, em- 
pregamos variáveis do sistema chama- 
das BASE, que descobrem o valor cor- 



reto para nós. Esses valores estão con- 
tidos no VDP; em outro artigo apren- 
deremos a modificá-los. 

No modo texto de quarenta colunas 
— SCREEN 1 — não podemos modifi- 
car a cor de letras individuais nem usar 
sprites. Nos outros três tipos de tela exis- 
te uma porção da VRAM, dedicada 
controlar os efeitos cromáticos, chama 
da tabela de cores. Essa tabela assume 
em cada tela, um tamanho e uma posi 
ção diferentes. 

Neste artigo, mostraremos a organi 
zação de duas outras tabelas da VRAM 
existentes nos tipos de tela que permi- 
tem a programação de sprites: a tabela 
de atributos de sprites e a tabela de pa- 
drões de sprites. Mais adiante, tratare- 
mos da organização do VDP. 



UM BANCO DE SPRITES 



Antes de prosseguir no estudo da 
VRAM, convém recordar como o com- 
putador armazena o padrão de um spri- 
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te. Até agora, quando quisemos definir 
o pradrão de um sprite, usamos um 
cordão para armazenar os bytes corres- 
pondentes a cada linha com oito pon- 
tos do sprite. Se você consultar o artigo 
Crie Sprites no MSX (página 1 88), verá 
que a ordem de interpretação dos bytes 
tem a seguinte correspondência com o 
padrão de um sprite de 16 x 16 pontos: 

Linha 1: BYTE 1 BYTE 17 
Linha 2: BYTE 2 BYTE 18 
Linha 3: BYTE 3 BYTE 19 
Linha 4: BYTE 4 BYTE 20 



Para entender como os sprites são ar- 
mazenados e movimentados na memó- 
ria de vídeo, precisamos de alguns exem- 
plos desses blocos gráficos. Neste arti- 
go, como de costume, trataremos de 
sprites de 16 x 16 pontos, salvo menção 
em contrário. Digite o programa: 



30 HEAD AS:POKE &.HD100 + I ■ VAL ( " 
B"+AS) 

0 POKE S.HE100 + I, 16+15 

0 NEXT 

000 DATA 00000000 

010 DATA 00000000 

020 DATA 00000000 

030 DATA 00000000 

040 DATA 00000000 

OSO DATA 00000001 

060 DATA 0000001 1 

070 DATA 001111 1 1 

080 DATA 1 110] 0 I 0 

90 DATA 0U11111 

00 DATA 00000001 

10 DATA 00000000 

IG DATA 00000000 

10 DATA 000(10000 

AO DATA 00000000 

M) DATA 00000000 

AO DATA 00000000 

/() DATA 00000000 

RO DATA 00000000 

10 DATA 01 tlOOOO 

00 DATA 10100000 

10 DATA 0 1 O00I1O I 

DATA 11)0000 LI 



ROGRAMACÀO BASIC 



1240 
121.0 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
l 350 
1360 
13/0 
13B0 
1190 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1 60 0 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
L690 
1700 
1710 
1720 
1730 
1740 



DAT* 1(1101001 

DATA 1 11 11111 

DATA 00J00000 

DATA 10010000 

DATA 01001000 

DATA 00 111 100 

DATA 00000000 

DATA 000(10001) 

DATA 00000000 

data noooonoo 

DATA 00000000 

DATA 00111100 

DATA 00100010 

DATA 00100001 

DATA 01000001 

DATA 01 000001 

DATA 10100010 

DATA 10000000 

DATA 11111101 

DATA 00110010 

DATA 00011101 

DATA 00000011 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00 0 0 0000 

DATA 00000000 

DATA OO000000 

DATA 11110000 

DATA 001U1000 

DATA 00010100 

DATA 00101010 

DATA 01010101 

DATA 10111111 

DATA 01111000 

DATA 10000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000001 

DATA 00000001 

DATA 00000001 

DATA 11100001 

DATA 01010001 

DATA 00101010 

DATA 00100100 

DATA 00100000 



1750 
1760 
1770 
1780 
1790 
1800 
1610 
1820 
1830 
1840 
1850 
1960 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
7000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2060 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 



DATA 00101000 

DATA 01010100 

DATA 11100110 

DATA 00000101 

DATA 00000110 

DATA 00010010 

DATA 00000000 

DATA 0000.1001 

DATA 00000010 

DATA 10000000 

DATA 01000100 

DATA 00100001 

DATA 11111000 

DATA 00000100 

DATA 00110010 

DATA 00000001 

DATA 0011111L 

DATA 01000000 

DATA 00111100 

DATA 1 1J 1 1000 

DATA 00000000 

DATA 00001U0 

DATA 00000011 

DATA 00011011 

DATA 01101111 

DATA 10000111 

DATA 10011111 

DATA 00110011 

DATA 01 100101 

DATA 01000101 

DATA 01000001 

DATA 00000001 

DATA 0000 0001 

DATA 000000 01 

DATA 00000011 

DATA 0011 1111 

DATA 11111111 

DATA 00000000 

DATA 01 1 11100 

DATA 11100110 

DATA UlllOOO 

DATA 11111100 

DATA 11100100 

DATA 11110010 

DATA 10011001 

DATA 10000100 

DATA 10000100 

DATA 10000000 

DATA 11000000 

DATA 1 1 000000 

DATA 11000000 



2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 



DATA .11111100 

DATA U1U111 

DATA 00000111 

DATA 00111111 

DATA 00000000 

DATA 00000001 

DATA 00000010 

DATA 00000100 

DATA 00001000 

DATA 00010000 

DATA 00111111 

DATA 01111111 

DATA 00000000 

DATA 01111111 

DATA 00100000 

DATA 00011000 

DATA 00000111 

DATA 00000000 

DATA 10000000 

DATA 10000000 

DATA 10000000 

DATA 11000000 

DATA 11100000 

DATA 10110000 

DATA 10011000 

DATA 10000100 

DATA 10000010 

DATA 11111111 

DATA 10000000 

DATA 1U11111 

DATA 00110010 

DATA 01100100 

DATA 11110000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 0000 00 00 

DATA 00001100 

DATA 00011111 

DATA 00111111 

DATA 01111111 

DATA 111 11111 

DATA 11111111 

DATA 00000000 
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2770 
2780 
2790 
2800 
2810 
2B20 
2830 
2640 
2SS0 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
30JO 
3040 
3050 
3060 
3070 
3080 
3 090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00010000 
00111000 



1111 

LL11 



11) 
111 

00000000 
00000000 
00000000 
00000000 
0000001 1 
00000111 
000001 10 
000C0010 
0000011 1 
0000011 1 
00000111 

11111111 

00111 111 
00001111 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
10000000 
00000000 
00000000 
00000000 
11000000 
01000000 
10111111 
11011100 
11100000 
00001O00 
00000100 
00000111 
00010001 
00111101 
01001101 



3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3 390 
3400 
3410 
34 20 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 



DATA 01101101 
DATA 01101101 
DATA 01101101 
DATA 00101101 
DATA 00011101 
DATA 00001.101 
DATA 000001 10 
DATA 00000001 
DATA 00000111 
DATA 00000100 
DATA 00000100 
DATA 00000011 
DATA 11000000 
DATA 00010000 
DATA 011 1 1000 
DATA 01 100100 
DATA 01101100 
DATA 01101100 
DATA 01101100 
DATA 01101.000 
DATA 01 1 10000 
DATA 01100000 
DATA 11000000 
DATA 00000000 
DATA 11000000 
DATA 01000000 
DATA 01000000 
DATA 10000000 



Esse programa cria um banco de spri- 
tes no topo da memória. Os formatos 
das figuras podem ser observados nos 
números binários contidos nas linhas 
DATA; basta lembrar que os "1" cor- 
respondem a pontos "acesos" e os "0", 
a pontos "apagados" na tela. Note a or- 
dem dos bytes que compõem o padrão 
do sprite. Ela é exatamente aquela a que 
fizemos referência: primeiro os dezesseis 
bytes da metade esquerda e depois os da 
metade direita. 

A linha 10 protege o topo da memó- 
ria, onde coloca os padrões. O endere- 
ço usado é o mesmo dos bancos de blo- 
cos criados pelo editor dos artigos Ge- 
ração de Blocos Gráficos (1 e 2). 

Os laços FOR...NEXT entre as linhas 
20 e 50 usam o comando READ para 



obter os números binários das linhas 
DATA e POKE para colocar os valores 
correspondentes no topo da memória. 
A linha 40 cuida das cores dos padrões 
— preto sobre fundo branco — para que 
possamos vê-los através do editor. 

Essa utilização do editor de blocos 
para observar os padrões criados não é 
obrigatória. O BASIC aqui apresenta- 
do foi criado com objetivos didáticos: 
ele permite compreender a organização 
da VRAM com o auxílio do programa 
do final do artigo. As figuras geradas 
por ele — barcos, peixes e uma ilha de- 
serta, entre outros — serão uiilizadas em 
outro artigo para animar um quadro na 
tela do computador. 



USE 0 EDITOR DE BLOCOS GRÁFICOS 



Há dois caminhos para utilizar o edi- 
tor de blocos gráficos com esse conjun- 
to de sprites. O primeiro é mais indica- 
do para principiantes. Depois de execu- 
tar e gravar o programa acima em fita, 
grave o banco de sprites por intermédio 
do comando: 

BSAVE-CASrSPBITE" . S.HD100 .lHEFFF 

Carregue então o programa editor de 
blocos gráficos do cassete e execute-o. 
Aperte a tecla T e responda L à pergunta 
do computador: "(S)AVE ou (L)OAD?". 
Posicione a fita na posição em que gra- 
vou o banco de sprites, aperte ENTER 
e, em seguida, pressione o botão 
"PLAY" do gravador. 

O segundo caminho é mais indicado 
para aqueles que estão acostumados 
com o uso do editor: depois de execu- 
tar o programa apresentado linhas atrás, 
carregue o editor de blocos da fita e 
execute-o também. (O banco de sprites 
está na posição correta, só que não po- 
demos vê-lo. É possível, contudo, recu- 
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perar os padrões com auxilio da tecla 
R.) As posições ocupadas pelos blocos 
vão de 0 a 31. 

Os blocos de 8 x 8 pontos que com- 
põem os sprites estão ordenados de 
acordo com as exigências do VDP. 



SPRITES NA VRAM 



Nos tipos de tela que permitem o uso 
de sprites, certas porções da VRAM são 
reservadas para controlar sua exibição. 
Para exemplificar, recorreremos à tela 
de 32 colunas. 

O MSX só permite a exibição de 32 
sprites ao mesmo tempo. Cada um des- 
ses sprites tem suas características arma- 
zenadas numa tabela de atributos de 
sprites. São quatro os atributos de um 
sprite: suas coordenadas X e Y, seu no- 
me e sua cor. Dessa forma, cada sprite 
necessita de quatro bytes para seus atri- 
butos, e a tabela de atributos terá um 
comprimento de 128 bytes. 

A prioridade de um sprite é determi- 
nada pela sua posição na tabela de atri- 
butos. Terão prioridade os sprites que 
ocuparem as primeiras posições na ta- 
bela; ou seja, se dois sprites estiverem 
na mesma posição, será mostrado aque- 
le que aparecer primeiro na tabela. As 
coordenadas X e Y determinam o lugar 
do sprite na tela. Elas correspondem ao 
canto superior esquerdo do sprite. Seus 
valores devem permanecer entre Oe 255. 
Quando Y é maior que 191, o sprite de- 
saparece na borda inferior da tela. Se Y 
for 208, todos os sprites com priorida- 
de inferior desaparecerão; e, se for 209, 
o sprite em questão desaparecerá. 

E importante prestar atenção aos li- 
mites impostos à coordenada X. Quan- 
do utilizamos a instrução PUT SPRITE, 
a coordenada X pode ter valores nega- 



tivos. Contudo, se tentarmos colocar em 
uma posição da VRAM um valor fora 
da faixa que vai de 0 a 255, o computa- 
dor emitirá uma mensagem de erro. 

Infelizmente, um sprite só pode ter 
uma cor. Esta corresponderá aos "pon- 
tos acesos" do padrão, ou à cor de fren- 
te, que é determinada pelos quatro bits 
menos significativos do byte de cor, na 
tabela de atributos. Os códigos das co- 
res são aqueles que você já conhece. O 
bit 7 dessa posição controla os valores 
negativos de X, quando utilizados em 
uma instrução PL1T SPRITE, ou seja, 
ele será "aceso" se X estiver entre 0 e 
- 32. Essas coordenadas negativas per- 
mitem que o sprite desapareça no canto 
esquerdo da tela, podendo reaparecer no 
direito. 

O nome do sprite indica ao VDP on- 
de o padrão do sprite pode ser encon- 
trado na tabela de padrões de sprites. 

O endereço inicial da tabela de atri- 
butos de sprites está em BASE(8) na te- 
la de 32 colunas; em BASE(13) na tela 
de alta resolução; e em BASE(18) na tela 
multicolor. 

O MSX permite que criemos até 64 
sprites de 16 x 16 pontos, embora só 32 
possam aparecer na tela ao mesmo tem- 
po. Os padrões desses sprites ficam 
guardados na tabela de padrões. Como 
cada sprite precisa de 32 bytes para de- 
finir seu padrão, a tabela tem 2048 bytes 
de comprimento. Os padrões definidos 
pelo BASIC SPRITE$(N) são colocados 
em posições diferentes dessa tabela, con- 
forme o valor de N. O VDP se baseia 
no nome do sprite que está na tabela de 
atributos para calcular a posição em que 
seu formato se encontra na tabela de 
padrões. 

Cada sprite de 16 x 16 pontos neces- 
sita, ao ser programado, de 32 bytes. Se 
preferirmos trabalhar com sprites pe- 
quenos, com 8x8 pontos, cada um de- 



les precisará de apenas oito bytes para 
armazenar seu padrão. Dessa forma, co- 
mo a tabela de padrões de sprites tem 
2048 bytes de comprimento, podemos 
criar até 256 sprites pequenos e até 64 
sprites grandes. 

O endereço inicial da tabela de pa- 
drões de sprites fica em BASE(9) na te- 
la de 32 colunas; em BASE(14) na tela 
de alta resolução; e em BASE(19) na tela 
multicolor. 

Quando seu micro padrão MSX es- 
tiver ligado em um modo gráfico que 
permita a exibição de sprites, o VDP 
procurará na tabela de atributos de spri- 
tes os dados necessários à exibição dos 
32 sprites ali definidos. De um certo mo- 
do, podemos dizer que o VDP está sem- 
pre mostrando os 32 sprites na tela; nem 
sempre, contudo, vemos todos os spri- 
tes — seja porque o valor da coordena- 
da Y está escondendo o sprite, seja por- 
que não há nenhum padrão definido na 
tabela de padrões e todos os pontos dos 
sprites estão apagados. 



UM PROGRAMA DIDATICO 



Para que funcione o programa a se- 
guir — organizado, como o anterior, 
com propósitos didáticos — , é necessá- 
ria a presença de um banco de sprites no 
topo da memória. Portanto, antes de 
digitá-lo, execute o programa anterior, 
apague-o com NEW e só então digite e 
execute a nova listagem. 
5 CLEAR 2O0.S.HDO00 
10 SCHEEN 1,2:KEY OFF 
20 COLOR 1,7,7:CLS 
30 Z$="00000000" :N=0:W-0 
40 A-BASE (8) :GOSUB 3000 
50 VPOKE BASE (6) +1 , 16+9 
55 VPOKE BASE (6> + 31 , 12" 16+1 2 
60 X-VPEEK (A+4*N+1) : Y-VPEEK (A+4 
*N) :C=VPEEK(A+4*N+3) :NX=VPEEK(A 
+NM + 2) :P-8ASE(9)+8»NX 
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70 GOSUB 1000:GOSUB 2000 
80 KS-INKEXS:IF KS-"" THEN 80 
<>0 IF KS="N" AND N<31 THEN N=N+ 
1 :G0T0 60 

100 IF KS="B" AND N>0 THEN N-N- 
t : GOT060 

110 IF KS'"C" THEN C- (C.+ l ) MOD1 6 

:VPOKE A+4*N+3,í::GOTO 60 

120 IF K$=CHRS(28) AND X<247 TH 

EN X-X+B:VPOKE A+4*N+ 1 . X ■ COTO 6 

0 

130 IF KS-CHR5 ( 29) AND X>7 THEN 

X=X-8:VPOKE A+4*N+1 . X ! GOTO 60 
140 IF K$=CHRS(3J) AND ¥<247 TH 
EN Y-Y+8 i VPOKE A+4*N , Y : GOTO 60 
150 IF K$-CHRS(30) AND Y>7 THEN 

Y=Y-8*VP0KE A+4*N,Y:GOTO 60 
160 IF KS = "[." THEN VPOKE A*4*N. 
160: GOTO 60 

170 IF KS-"A" THEN VPOKE A+4*N . 
209: GOTO 60 

180 IFKS-CHRS<27> THEN W-NOT W: 
GOTO 60 

190 IF KS-"W" AND NX<252THEN NX 

=NX+4:VPOKE A+4*N+2,NX:GOTO 60 

200 IF K3-"Q" AND NX>3 THEN NX' 

NX-4: VPOKE A+4*N+2 , NX ! GOTO 60 

210 GOTO 80 

1000 FOR 1-0 TO 9 

1010 LOCATE 0.1+13 

1020 PRTNT RIGHTS {STHS (P + I ) .SI j 

" " ;RIGHT$(Z3+BINS(VPEEK(P+I) > , 

8) i 

1030 NEXT I:IF W— 1 THEN 1090 

1040 FOR 1-10 TO 31 

1050 LOCATE 14.1-9 

1060 PRINT p+IiRIGHT3(Z3+BIN3(V 

PEEKÍP+I) ) ,B) ; 

1070 NEXT I 

1080 RETUP-N 

1090 FOR 1-10 TO 31 

1100 LOCATE 14.1-9 

1110 PRINT 3TRING3(7,32) iRIGHTS 

(2S + BINS i.yPEEK (P+I) ) . 8 ) : 

1120 IF 1-30 THEN I-I+l :GOTO 10 

50 

1130 NEXT I : RETURN 
2000 LOCATE 3,1 
2010 PRINT "SPRITE" :N; 
2020 LOCATE 1.3 

2030 PRINT A+4*N;VPEEK<A+4«N) :T 



AB(12) ; "Y" 
2040 LOCATE 1.4 

2050 PRINT A+4*N+1;VPEEK(A+4*N+ 
1> iTAB(12) ;"X" 
2060 LOCATE 1.5 

2070 PRINT A+4*N+2;VPEEK(A+4«N+ 

2) 

2080 LOCATE 1,6 

2090 PRINT A+4*N+3;" " ; HEX$ (VPE 

EK(A+4*N+3) ) 

2100 LOCATE 4,8 

2110 PRINT "BASE (S) " ; 

2120 LOCATE 4,9 

2130 PRINT BASE (8) 

2140 LOCATE 4,10 

2150 PRINT "BASE (9) 

2160 LOCATE 4,11 

2170 PRINT BA5E<9) 

2180 FOR 1=0 TO 12 

2190 VPOKE BASE(5)+I"32+2,255 

2200 VPOKE BASE(5)+I-32+15.255 

2210 NEXT 

2220 FOR 1-3 TO 14 

2230 VPOKE BASE(5)+I,255 

2240 VPOKE BASE(5)+I+32*12,255 

2250 NEXT : RETURN 

3000 FOR 1=0 TO 255 

3010 VPOKE BASE(9)+I,PEEK(LHD10 

0+1) 

3020 NEXT : RETURN 

Ao ser executado, o programa mos- 
tra, no canto superior esquerdo da tela, 
cercado por uma moldura verde, um 
quadro onde se lê "SPRITE 0". Esse 
quadro é uma imagem da tabela de atri- 
butos de sprites. Nele são exibidos o en- 
dereço e o conteúdo das quatro posições 
da VRAM que correspondem ao primei- 
ro sprite da tabela — o sprite 0. Quan- 
to menor o número do sprite, maior se- 
rá sua prioridade, o que dá ao sprite ze- 
ro prioridade absoluta. Para que o lei- 
tor se localize na VRAM, os endereços 
iniciais da tabela de atributos de sprites 
— BASE(g) — e da tabela de padrões 
de sprites — BASE(9) — também são 
mostrados no quadro. 

Como já dissemos, o primeiro byte 
corresponde à coordenada Y. Se olhar- 



mos a tela, entenderemos por que o spri- 
te 0 — o avião — não está aparecendo: 
a sua coordenada Y é maior que 191. 
Para fazê-lo aparecer, basta pressionar 
L. Feito isso, surge instantaneamente na 
tela; se observarmos novamente o qua- 
dro de moldura verde, vamos entender 
por que: a coordenada Y do sprite 0 mu- 
dou para 160. 

O sprite pode ser movimentado com 
o auxílio das teclas do cursor. Note co- 
mo as coordenadas vão se modificando 
com o movimento do sprite — a coor- 
denada X é o segundo byte do quadro. 

O terceiro byte mostrado no interior 
da moldura verde corresponde ao "no- 
me" do sprite. Esse valor orienta o VDP 
na busca do padrão do sprite dentro da 
tabela de padrões. 

O valor do nome, multiplicado por 
oito e somado ao endereço inicial da ta- 
bela de padrões — BASE(9J — , fornece 
o endereço do primeiro dos 32 bytes cor- 
respondentes ao padrão do sprite. São 
exatamente estes 32 bytes que estão sen- 
do mostrados no restante da tela. Ali te- 
mos uma imagem da porção da VRAM 
que contém o padrão do sprite. Os en- 
dereços dos bytes estão em decimal, e o 
seu conteúdo, em binário. Veja como os 
"zeros" e os "uns" desenham exata- 
mente o perfil do avião. Confira tam- 
bém o endereço inicial, multiplicando o 
nome por oito e somando o resultado ao 
conteúdo de BASE<9>. 

Voltando ao quadro de moldura ver- 
de, resta o quarto byte, que correspon- 
de à cor do sprite, em hexadecimal. Po- 
demos mudar instantaneamente a cor do 
sprite pressionando a tecla C. Ligue o 
sprite 10. com a tecla L. movimente-o 
com as setas e veja como sua cor muda 
com a tecla C. Observe atentamente o 
conteúdo dos bytes da tabela de atribu- 
tos enquanto a cor e a posição do sprite 
vão sendo modificadas. 
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Para ver o próximo sprite na ordem 
de prioridade, aperte a tecla N. Os qua- 
tro bytes seguintes da tabela de atribu- 
tos de sprites aparecerão dentro da mol- 
dura verde e os 32 bytes corresponden- 
tes ao desenho do sprite, junlo com seus 
endereços na tabela de padrões de spri- 
tes, aparecerão no resto da tela. A tecla 
L faz o sprite aparecer, e a tecla A o apa- 
ga da tela, colocando 209 no byte da 
coordenada Y. 

Podemos então percorrer a tabela de 
atributos de sprites pressionando repe- 
tidas vezes a tecla N. A região de inte- 
resse dentro da tabela de padrões de 
sprites também é atualizada. Podemos 
ligar, movimentar e mudar as cores dos 
sprites. Depois de usar a tecla N 31 ve- 
zes, chegaremos ao fim da tabela de atri- 
butos. Para voltar, tomando a direção 
dos sprites com maior prioridade (ou 
menor número), basta pressionar a te- 
cla B, que tem um efeito inverso ao da 
tecla N. 

Podemos ainda modificar o nome de 
um sprite, alterando a região da tabela 
de padrões a que ele se refere. Isso equi- 
vale a trocar o padrão do sprite. Para 
avançar na tabela de padrões, manten- 
do a prioridade do sprite, use a tecla W. 
Se o sprite em questão estiver na tela, 
veremos seu padrão ser substituído por 
outro desenho. Para retroceder na tabe- 
la, use Q. 

As teclas N e B não modificam ne- 
nhum valor da VRAM; elas apenas mu- 
dam a região da tabela de atributos de 
sprites mostrada dentro da moldura ver- 
de. Já as teclas QcW modificam o byte 
do nome do sprite, alterando a figura 
que está sendo mostrada. Por exemplo, 
a tecla W transforma o avião em uma 
nuvem, e a Q coloca um coqueiro no lu- 
gar onde havia um barco. 

Use o programa para entender a or- 
ganização da VRAM. Quando não hou- 
ver mais dúvidas sobre os significados 
década endereço, podemos lançar mão 
da tecla ESC. Ela apaga a coluna de en- 
dereços da direita. 

O programa ajuda também a ilustrar 
uma limitação do uso de sprites; não é 
possível inserir em uma mesma linha ho- 
rizontal mais do que quatro sprites. Ten- 
te colocar cinco na mesma linha hori- 
zontal e veja o que acontece. 



COMO FUNCIONA 0 PROGRAMA 



A linha 5 mantém protegida a área 
onde foi colocado o banco de sprites. A 
10 seleciona a tela de 32 colunas e spri- 
tes grandes. A 20 seleciona as cores da 

■ tela, além de limpá-la. 

I As linhas 30 e 40 estabelecem os va- 



lores iniciais de algumas variáveis. Z$ 
serve para imprimir números binários, 
N é a posição do sprite na tabela de atri- 
butos — ou seja, sua prioridade — , W 
é um sinalizador que indica se ESC foi 
pressionada, A contém o endereço ini- 
cial da tabela. 

A mesma linha 40 chama a sub-rotina 
3000, que é responsável pela transferên- 
cia do banco de sprites para a tabela de 
padrões. As linhas 50 e 55 modificam as 
cores de dois grupos de caracteres. Os 
caracteres 32 e 255 são usados para de- 
senhar respectivamente as molduras la- 
ranja e verde. 

O laço principal do programa come- 
ça na linha 60. Ali são atualizados os va- 
lores de uma série de variáveis. X é a 
coordenada X do sprite atual; Y é a ou- 
tra coordenada desse sprite; C é a sua 
cor e NX, o seu nome. Todos esses va- 
lores são obtidos na tabela de atributos 
de sprites por meio de comandos 
VPEEK. P é o endereço inicial da por- 
ção da tabela de padrões onde se encon- 
tra o desenho do sprite atual; seu valor 
é calculado somando-se ao endereço ini- 
cial da tabela de padrões o resultado da 
multiplicação de oito pelo nome do spri- 
te atual. 

A seguir, a linha 70 chama duas sub- 
rotinas. A que começa na linha 1000 é 
responsável pela impressão da imagem 
da tabela de padrões na tela. A da linha 
2000, por sua vez, cuida da impressão 
da imagem da tabela de atributos, jun- 
to com sua moldura verde. 

A linha 80 aguarda que pressionemos 
uma tecla e a série de instruções IF... 
THEN que se segue executa as fun- 
ções correspondentes a cada tecla. 

Caso a tecla N tenha sido pressiona- 
da, a linha 90 modificará o sprite atual, 
passando ao sprite seguinte — de menor 
prioridade. Para fazer isso, basta au- 
mentar o valor da variável N em uma 
unidade. A linha 100 cuida da tecla B, 
que volta ao sprite anterior, subtraindo 
uma unidade de N. 

A linha 1 10 modifica a cor do sprite 
quando pressionamos a tecla C. A no- 
va cor é obtida somando-se uma unida- 
de à variável C. A função MOD16 é uti- 
lizada para manter o código da cor en- 
tre 0 e 15. C + 1 MOD16 é o resto da di- 
visão do código da nova cor por 16. O 
código da nova cor é colocado na tabe- 
la de atributos por VPOKE. 

As linhas 1 20 e 1 30 cuidam do movi- 
mento horizontal do sprite. Conforme 
as teclas "seta para a esquerda" e "se- 
ta para direita" são presssionadas, o va- 
lor da variável X aumenta ou diminui 
oito unidades. Note que as condições 
AND X < 247 e X > 7 evitam que o spri- 
te ultrapasse os limites da tela. A nova 



coordenada X é colocada na tabela de 
atributos por VPOKE. 

As linhas 140 e 150 cuidam do movi- 
mento vertical de maneira análoga. A li- 
nha 160 "liga" o sprite quando L é pre- 
cionada. Isso é feito com VPOKE, que 
coloca o valor 160 na posição da tabela 
de atributos que corresponde à coorde- 
nada Y. A linha 170 apaga o sprite ao 
toque da tecla A. Para obtermos esse 
efeito, a coordenada Y é modificada pa- 
ra o valor 209, com VPOKE. A linha 
180 detecta a tecla ESC, modificando o 
valor do sinalizador W. 

As linhas 190 e 200 alteram o valor 
do byte que corresponde ao nome do 
sprite atual. A tecla Q diminui o nome 
em quatro unidades e a tecla W o au- 
menta na mesma medida. O nome deve 
ser sempre múltiplo de_4 quando se tra- 
ta de sprites grandes. É que um padrão 
de sprite tem 32 bytes. Como o nome é 
multiplicado por oito para calcular a po- 
sição do padrão na tabela, se o aumen- 
tarmos emquatro unidades, a posição na 
tabela avançará 8 x 4 = 32 unidades, 
passando para o padrão seguinte. Se o 
usuário pressionar qualquer outra tecla 
diferente das mencionadas, a linha 210 
retornará à linha 80. 

A sub-rotina da linha 1000 cuida da 
impressão dos valores contidos na tabela 
de padrões. O laço FOR...NEXT entre 
as linhas 1000 e 1030 imprime os dez pri- 
meiros endereços de interesse no canto 
inferior esquerdo da tela. 

A seguir, conforme o valor de W, são 
impressos os outros 22 endereços. Se W 
for 0, o laço entre as linhas 1040 e 1070 
imprimirá tanto os endereços quanto 
seus conteúdos. Se W for I , o laço en- 
tre as linhas 1090 e 1 130 imprimirá so- 
mente os conteúdos, preenchendo o es- 
paço antes ocupado pelo endereço com 
espaços cor-de-laranja. 

Os endereços são impressos com nú- 
meros decimais; os conteúdos aparecem 
em binário. A função BINS calcula o va- 
lor binário; a função RIGHTS, junta- 
mente com a variável ZS, faz com que 
sejam impressos exatamente oito dígitos 
binários por endereço. A função 
STRINGS serve para imprimir sete es- 
paços cor-de-laranja. A sub-rotina da li- 
nha 2000 cuida do quadro com moldu- 
ra verde e do seu conteúdo. Os dois la- 
ços FOR...NEXT das linhas entre 2180 
e 2250 desenham a moldura, que é com- 
posta por caracteres de código ASCII 
255. No restante da rotina, LOCATEé 
utilizada juntamente com PRINT para 
escrever os endereços, conteúdos e suas 
legendas nas posições adequadas. 

Os valores dos quatro bytes do sprin- 
te atual são obtidos na tabela de atribu- 
tos por meio do comando VPEEK. 
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BLOCOS 




JUNTE AS PORÇÕES DO 



VIDEOGAME 



DEFINA A FORMA DO S B LOCOS 
GRÁFICOS 



NÃO GRAVE BYTES A MAIS 



A procura do lanche roubado leva nosso 
indigitado herói a enfrentar 
novos obstáculos. Agora, ele precisa 
de uma montanha para escalar. 
Use blocos gráficos para construí-la. 



Que não seja o Everest, nem tampou- 
co o Aconcágua. Nossa montanha há de 
ser modesta e simples: um mero acidente 
geográfico. Mas que represente um obs- 
cáculo a transpor, um desafio a vencer. 
Que Willie, ao vê-la, não resista ao im- 
pulso de escalá-la. 

Para colocá-la na tela, precisamos 
criar uma série de blocos gráficos. Mais 
uma vez, usaremos um programa BA- 
SIC para colocar na memória a tabela 
com os padrões dos blocos. Não será 
possível (por enquanto) ver os gráficos 
na tela de alta resolução — a montagem 
do cenário é tarefa para uma rotina em 
código que será abordada no próximo 
artigo. Os usuários do Spectrum e do 
MSX, contudo, poderão ter uma ideia 
dos blocos, olhando o padrão dos bits 
nas linhas DATA. Neste estágio, tudo 
o que você deve fazer é digitar e execu- 
tar o programa BASIC e gravar os có- 
digos resultantes em fita. 

A esta altura, temos vários pedaços 
de videogame gravados separadamente. 
Chegou o momento de juntá-los. 



Precisamos, em primeiro lugar, de- 
finir o formato dos blocos gráficos uti- 
lizados no jogo — nuvens, gaivotas, pe- 
dras que rolam, buracos, cobras vene- 
nosas, lanche para um piquenique na 
relva, e o próprio Willie, nosso desven- 
turado herói. Só esses caracteres já da- 
riam muitos bytes, mas, para suavizar 
o processo de animação, todas as figu- 
ras móveis serão desenhadas em várias 
posições, o que aumenta ainda mais os 
dados. Além disso, empregaremos sal- 
tos de meio caractere e alternaremos OS 
blocos para dar a impressão de movi- 
mento contínuo. 

5 CLEAB 56999 
10 FOR n-57000 TO 57327: READ 
a: LET aS^STBS a: POKE n.VAL 




9010 DATA 000 

9011 DATA 001 

9012 DATA 001 

9013 DATA 000 

9014 DATA 001 



: NEXT I 
11000 
1100 



901 5 DATA 00111100 

9016 DATA 00111100 

9017 DATA 00111100 
9016 DATA 001] 1100 

9019 DATA 00 1 1 1100 

9020 DATA 00011000 
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9021 DATA 00011000 

9022 DATA 00011000 

9023 DATA 000U.000 

9024 DATA 000U000 

9025 DATA 0001 1110 

9026 DATA 00000001 

9027 DATA 00000011 

9028 DATA 000000 1 1 

9029 DATA 00000001 
9010 DATA 00000000 
9031 DATA 00000001 
90.12 DATA 00000001 
9013 DATA 00000001 

9034 DATA 10000000 

9035 DATA 11000000 

9036 DATA ) 1000000 
90.17 DATA 10000000 
903fl DATA 00000000 

9039 DATA 00000000 

9040 DATA 00000000 

9041 DATA 11100000 

9042 DATA 00001 1 10 

9043 DATA 00000000 

9044 DATA 00000001 

9045 DATA 00000010 

9046 DATA 00000100 

9047 DATA 00001000 

9048 DATA O00O0IO0 

9049 DATA 00000000 

9050 DATA 00000000 

9051 DATA 00000000 

9052 DATA 10000000 

9053 DATA 01000000 

9054 DATA 00100000 

9055 DATA 00100000 

9056 DATA 00U0000 

9057 DATA 00000O00 

9058 DATA 00000000 

9059 DATA 00000000 

9060 DATA 00000000 

9061 DATA 00000000 

9062 DATA 00011000 

9063 DATA 00111100 

9064 DATA 00111100 

9065 DATA 00011000 

9066 DATA 00000000 

9067 DATA 0OOJ000O 

9068 DATA 00010000 

9069 DATA 0001 11 10 

9070 DATA 1)100000 

9071 DATA 00000000 

9072 DATA 00O0J 1 00 

9073 DATA 001(10.100 

9074 DATA 01000010 

9075 DATA 10000010 

9076 DATA 01000011 

9077 DATA 00000000 

9078 DATA 00000000 

9079 DATA 00000000 

9080 DATA 00000000 

9081 DATA 00000000 

9082 DATA 00000000 

9083 DATA 00000000 

9084 DATA 00000000 

9085 DATA 00000000 

9086 DATA 00000001 

9087 DATA 00000011 

9088 DATA 0000001 1 

9089 DATA 00000001 

9090 DATA 00000000 

9091 DATA 00000000 

9092 DATA 00000000 

9093 DATA 00000000 



9094 DATA 10000000 

9095 DATA 11000000 

9096 DATA 11000000 

9097 DATA 10000000 

9098 DATA 00000000 

9099 DATA 00000001 

9100 DATA 00000001 

9101 DATA 00000001 

9102 DATA 00001110 

9103 DATA 00000000 

9104 DATA 00000001 

9105 DATA 00000010 

9106 DATA 00000000 

9107 DATA 00000000 

9108 DATA 00000000 

9109 DATA 11100000 
91 10 DATA 00000000 

9111 DATA 00000000 

9112 DATA 10000000 

9113 DATA 01000000 

9114 DATA 00000100 

9115 DATA 00001000 

9116 DATA 00000100 

9117 DATA 00000000 
911B DATA 00000000 

9119 DATA 00000000 

9120 DATA 00000000 

9121 DATA 00000000 

9122 DATA 00100000 

9123 DATA 00100000 

9124 DATA 00110000 

9125 DATA 00000000 

9126 DATA 00000000 

9127 DATA 00000000 

9128 DATA 00000000 

9129 DATA 00000000 

9130 DATA 00011100 

9131 DATA 00111110 

9132 DATA 01111111 

9133 DATA 11111111 

9134 DATA 11111111 

9135 DATA 11111110 

9136 DATA 11111100 

9137 DATA 00111000 

9138 DATA 00000011 

9139 DATA 000001.11 

9140 DATA 00001 J 11 

9141 DATA 00001111 

9142 DATA 00001111 

9143 DATA 00000111 

9144 DATA 000000.11 

9145 DATA 00000001 

9146 DATA 10000000 

9147 DATA 1J000000 

9148 DATA 11100000 

9149 DATA 11110000 

9150 DATA 11110000 

9151 DATA 11110000 

9152 DATA 11100000 

9153 DATA 11000000 

9154 DATA 000O0000 

9155 DATA 00000000 

9156 DATA 00000111 

9157 DATA 00011000 

9158 DATA 00100000 

9159 DATA 01000000 

9160 DATA 01000000 

9161 DATA 10000000 

9162 DATA 00000000 

9163 DATA 00000000 

9164 DATA 00011111 

9165 DATA 10100000 

9166 DATA 11000000 



9167 DATA 00000000 

9168 DATA 00000000 

9169 DATA 00000000 

9170 DATA 00000000 

9171 DATA 00000000 

9172 DATA 10000000 

9173 DATA 01000000 

9174 DATA 01011100 

9175 DATA 00100010 

9176 DATA 00000010 

9177 DATA 00000010 

9178 DATA 10000000 

9179 DATA 01000000 
9160 DATA 01111100 

9181 DATA 00000010 

9182 DATA 00000010 

9183 DATA 00000001 

9184 DATA 00000000 

9185 DATA 00000000 

9186 DATA 00000000 

9187 DATA 00000000 

9188 DATA 00000000 

9189 DATA 00000100 

9190 DATA 00001010 

9191 DATA 00010001 

9192 DATA 11100000 

9193 DATA 00000000 

9194 DATA 00000010 

9195 DATA 00000100 

9196 DATA 00001000 

9197 DATA 00000100 

9198 DATA 00000100 

9199 DATA 00000100 

9200 DATA 1111 1000 

9201 DATA 00000000 

9202 DATA 000O0000 

9203 DATA 00000000 

9204 DATA 01111000 

9205 DATA 10000110 

9206 DATA 00000001 

9207 DATA 00000001 

9208 DATA 00000000 

9209 DATA 00000000 

9210 DATA 00000000 

9211 DATA 00000000 

9212 DATA 00011110 

9213 DATA 01100001 

9214 DATA 10000000 

9215 DATA 10000000 

9216 DATA 00000000 

9217 DATA 00000000 

9218 DATA 00000000 

9219 DATA 00000000 

9220 DATA 00000000 

9221 DATA 00000000 

9222 DATA 10000111 

9223 DATA 01111001 

9224 DATA 00000000 

9225 DATA 00000000 

9226 DATA 00000000 

9227 DATA 00000000 

9228 DATA 00000000 

9229 DATA 00000000 

9230 DATA 11100001 

9231 DATA 10011110 

9232 DATA 00000000 

9233 DATA 00000000 

9234 DATA 00100010 

9235 DATA 00010100 

9236 DATA 00001000 

9237 DATA 00001000 

9238 DATA 00001000 

9239 DATA 00001000 
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9240 DATA 00003000 

9241 DATA 00001000 

9242 DATA 00011000 

9243 DATA 00111100 

9244 DATA 00110110 

9245 DATA 01111110 

9246 DATA 01111110 

9247 DATA 00111100 

9248 DATA 00011000 

9249 DATA 00011000 

9250 DATA 00011000 

9251 DATA 00011000 

9252 DATA 00001100 

9253 DATA 00001100 

9254 DATA 00000110 

9255 DATA 00000110 

9256 DATA 00000011 

9257 DATA 00000011 
925B DATA 00000110 

9259 DATA 00000110 

9260 DATA 00001100 

9261 DATA 00001100 

9262 DATA 00011000 

9263 DATA 00011000 

9264 DATA 00110000 

9265 DATA 00110000 

9266 DATA 01100000 

9267 DATA 01100000 

9268 DATA 11000110 

9269 DATA 11000011 
92 70 DATA 01100110 

9271 DATA 01101100 

9272 DATA 00111000 

9273 DATA 00111000 

9274 DATA 10000100 

9275 DATA 11010110 

9276 DATA 11111111 

9277 DATA 11111111 

9278 DATA 11111111 

9279 DATA 11111111 

9280 DATA 11211111 

9281 DATA 11111111 

9282 DATA 00000000 

9283 DATA 00000001 

9284 DATA 00000011 

9285 DATA 00000111 

9286 DATA 00011111 
928 7 DATA 00111111 

9288 DATA 01111111 

9289 DATA 11111111 

9290 DATA 00000000 

9291 DATA 00000000 

9292 DATA 11111111 

9293 DATA 11111111 

9294 DATA 0011110(1 

9295 DATA 00111100 

9296 DATA 11111111 

9297 DATA 11111111 

9298 DATA 000001 10 

9299 DATA 00001000 

9300 DATA 01110110 

9301 DATA 11111111 

9302 DATA 11111111 

9303 DATA 11111111 

9304 DATA 01111110 

9305 DATA 001 11100 

9306 DATA 00010000 

9307 DATA 00010000 
930B DATA 0001000(1 

9309 DATA 00111000 

9310 DATA 00111000 

9311 DATA 00111000 

9312 DATA OO111000 



9313 DATA OO1110OO 

9314 DATA 0OO10000 

9315 DATA 00111000 

9316 DATA 01111100 

9317 DATA 001 11000 

9318 DATA 00111000 

9319 DATA 0011 1000 

9320 DATA 00010000 

9321 DATA 00010000 

9322 DATA 00000000 

9323 DATA 00000000 

9324 DATA 00000000 

9325 DATA 00100000 

9326 DATA 01010001 
9 327 DATA 10001010 

9328 DATA 00000100 

9329 DATA 00000000 

9330 DATA 00000000 

9331 DATA 00000000 

9332 DATA 00000000 

9333 DATA 10000010 

9334 DATA 01000101 

9335 DATA 00101000 

9336 DATA 00010000 

9337 DATA 00000000 

Execute o programa e grave a tabela 
resultante com o comando: 
SAVE ' AVAL 4' CODE 57000,327 



JUNTE OS PEDAÇOS 



Longos programas em código geral- 
mente tèm de ser montados por partes. 
Isso é bom para testar as rotinas indivi- 
dualmente, mas tem a desvantagem de 
deixar para o leitor a tarefa de juntar os 
pedaços do programa. O fato de as ro- 
tinas isoladas serem executadas com su- 
cesso não garante o funcionamento do 
programa completo. 

A maior dificuldade surge quando 
uma das partes apaga outra durante a 
montagem. Se você gravou mais bytes 
do que devia junto com um dos segmen- 
tos do programa, pode aconlecer que 
eles apaguem parte do outro segmento 
adjacente na memória. Quando gravar- 
mos os códigos de uma porção do jo- 
go, usando o monitor de INPUT, deve- 
mos informar o endereço inicial e o nú- 
mero exato de bytes a transferir para a 
fita. Se utilizarmos o comando SAVE 
do Speclrum devemos recorrer à sintaxe: 
SAVE 'none' CODE 
seguida do endereço inicial, uma vírgu- 
la e o número de bytes a gravar. 

Quando usamos o Assembler para 
montar os programas listados nos arti- 
gos, o endereço inicial é sempre igual à 
origem: o número que vem após o falso 
mnemónico org. O próprio Assembler 
cuida de começar a rotina nesse endere- 
ço. Nos programas BASIC que criam ta- 
belas de dados na memória a partir de 
linhas DATA e usando POKE, o ende- 
reço inicial da tabela pode ser encontra- 



do na própria listagem: valor inicial da 
variável de controle do laço FOR... 
NEXT responsável pela leitura e irans- 
ferência dos dados para a memória. 

Calcular o número exato de bytes a 
serem gravados já é mais difícil. O en- 
dereço final informado pelo Assembler 
nem sempre é o do final da rotina. Mui- 
tas vezes aquele endereço é apenas o da 
última instrução montada, que, em vá- 
rias listagens, é um rótulo seguido por 
um asterisco, usado para cálculo de sal- 
tos e desvios, e não correspondendo ao 
final do programa. 

Certos programadores gostam, por 
segurança, de gravar alguns bytes a 
mais; eles correm o risco, porém, de 
apagar pedaços de outras rotinas no 
processo de montagem do jogo 
completo. 

A maneira mais segura de juntar as 
partes do programa é ler as rotinas no 
gravador, preenchendo a memória em 
ordem crescente. Porções com endere- 
ços iniciais menores devem ser recupe- 
radas primeiro, sendo seguidas sempre 
das rotinas que ocupam as posições su- 
cessivas. Isso fará os eventuais bytes gra- 
vados em excesso serem apagados pela 
próxima rotina (e não o contrário). 
Além disso, qualquer instrução rei, co- 
locada no final de uma rotina apenas pa- 
ra permitir o seu funcionamento isola- 
do, também será apagada. 

Quando todas as rotinas montadas ti- 
verem sido colocadas na memória e es- 
tiverem funcionando adequadamente, o 
programa resultante deve ser gravado 
inteiro, com um outro nome. Seu ende- 
reço inicial será o da primeira rotina li- 
da na fita e o endereço final será o en- 
dereço final da última rotina colocada 
na memória. Qualquer problema pode 
exigir que as rotinas sejam reunidas no- 
vamente. Não se esqueça de gravar as 
listagens Assembly — os programas- 
fonte — , bem como os programas BA- 
SIC que criam as tabelas na memória, 
pois você pode precisar repetir o proces- 
so de montagem. 

Se houver qualquer problema com as 
tabelas de dados, podemos montar as 
rotinas em código na ordem citada, e 
executar cada um dos programas BA- 
SIC. Eles devem ser lidos, um a um, no 
gravador, executados, e, em seguida, 
apagados com NEW. Depois disso, o 
próximo programa criador de tabelas se- 
rá lido na fila e o processo se repetirá. 




De início, é preciso definir o forma- 
to dos blocos gráficos utilizados no jo- 
go — nuvens, gaivotas, pedras que ro- 
lam, buracos, cobras venenosas, guio- 
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seimas para um piquenique, e o próprio 
Willie. No MSX é mais fáci! movimen- 
tar figuras usando sprítes para imprimir 
suavidade à animação. 

As figuras definidas pelo programa 
a seguir têm a estrutura de sprites. Nem 
iodas, porém, serão usadas como tal. O 
MSX só permite a exibição simultânea 
de 32 sprites; destes, apenas quatro, no 
máximo, podem ocupar a mesma linha 
horizontal. Mas isso poderia fazer o po- 
bre Willie desaparecer da tela. (Imagi- 
ne se houvesse quatro serpentes na mes- 
ma linha horizontal!) 

10 CLEAH ZOO. -35200 

20 FOR 1=0 TO 639 

30 READ AS:POKE -15200+1 , UAL ("t 

B-+AS) 

40 NEXT 

9000 DATA 00011000 
9010 DATA 00111100 
9020 DATA 00111100 
9030 DATA 00011000 
9040 DATA 00111100 
9050 DATA 00111100 
9060 DATA 00111100 
9070 DATA 00111100 
90B0 DATA 00111100 
9090 DATA 00111100 
9100 DATA 00011000 
9110 DATA 00011000 
9120 DATA 00011000 
9130 DATA 00011000 
9140 DATA 00011000 
9150 DATA 00011 110 
9160 DATA 0,0.0,0,0,0,0,0 
9170 DATA 0,0.0.0.0,0,0,0 
91B0 DATA 00000001 
9190 DATA 00000011 
9200 DATA 00000011 
9210 DATA 00000001 
9220 DATA 00000000 
9230 DATA 00000001 
9240 DATA 00000001 
9250 DATA 00000001 
9260 DATA 000011 10 
9270 DATA 00000000 
9280 DATA 00000001 
9290 DATA 00000010 
9300 DATA 00000100 
9310 DATA 00001000 
9320 DATA 00000100 
9330 DATA 00000000 
9340 DATA 10000000 
9350 DATA 11000000 
9360 DATA 11000000 
9370 DATA 10000000 
9380 DATA 00000000 
9390 DATA 00000000 
9400 DATA 00000000 
9410 DATA 11100000 
9420 DATA 00000000 
9430 DATA 00000000 
9440 DATA 10000000 
9450 DATA 01000000 
9460 DATA 0010000 
9470 DATA 00100000 
9480 DATA 00110000 
9490 DATA 00000000 
■ 9500 DATA 0.0.0.0,0.0,0,0 
9510 DATA 0.0,0,0,0,0.0,0 



9520 DATA 00011000 

9530 DATA 00111100 

9540 DATA 00111100 

9550 DATA 00011000 

9560 DATA 00000000 

9570 DATA 00010000 

9580 DATA 00010000 

9590 DATA 00011110 

9600 DATA 11100000 

9610 DATA 00000000 

9620 DATA 00001100 

9630 DATA 00100100 

9640 DATA 01000010 

9650 DATA 10000010 

9660 DATA 01000011 

9670 DATA 00000000 

9680 DATA 0,0,0,0,0,0,0,0 

9690 DATA 00011100 

9700 DATA 00111110 

9710 DATA 01111111 

9720 DATA 11111111 

9730 DATA 11111111 

9740 DATA 11111110 

9750 DATA 11111100 

9760 DATA 00111000 

9770 DATA 0,0,0,0,0,0,0,0 

9780 DATA 0,0,0,0.0,0,0,0 

9790 DATA 0,0,0.0,0.0,0,0 

9800 DATA 00000011 

9810 DATA 00000111 

9820 DATA 00001111 

9830 DATA 00001111 

9840 DATA 000011X1 

9850 DATA 00000111 

9860 DATA 00000011 

9870 DATA 00000001 

9880 DATA 0,0,0,0.0,0,0,0 

9890 DATA 10000000 

9900 DATA 11000000 

9910 DATA 11100000 

9920 DATA 11110000 

9930 DATA 11110000 

9940 DATA 11110000 

9950 DATA 11100000 

9960 DATA 11000000 

9970 DATA 00000000 

99B0 DATA 00000000 

9990 DATA 00000111 

10000 DATA 00011000 

10010 DATA 00100000 

10020 DATA 01000000 

10030 DATA 01000000 

10040 DATA 10000000 

10050 DATA 10000000 

10060 DATA 01000000 

10070 DATA 01111100 

10080 DATA 00000010 

10090 DATA 00000010 

10100 DATA 00000001 

10110 DATA 00000000 

10120 DATA 00000000 

10130 DATA 00000000 

10140 DATA 00000000 

10150 DATA 00011111 

10160 DATA 10100000 

10170 DATA 11000000 

10180 DATA 00000000 

10190 DATA 00000000 

10200 DATA 00000000 

10210 DATA 00000000 

10220 DATA 00000000 

10230 DATA 00000000 

10240 DATA 00000100 



10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
10610 
10620 
10630 
10640 
10650 
10660 
10670 
10680 
10690 
10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
10820 
10830 
10840 
10850 
10860 
10870 
10880 
10890 
10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 



DATA 00001010 

DATA 00010001 

DATA 11100000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 10000000 

DATA 01000000 

DATA 01011100 

DATA 00100010 

DATA 00000010 

DATA 00000010 

DATA 00000010 

DATA 00000100 

DATA 00001000 

DATA 00000100 

DATA 00000100 

DATA 00000100 

DATA 11111000 

DATA 00000000 

DATA 0,0.0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,0 

DATA 00000000 

DATA 00000000 

DATA 01111000 

DATA 10000110 

DATA 00000001 

DATA 00000001 

DATA 00000000 

DATA 00000000 

DATA 0,0,0,0.0,0,0,0 

DATA 00000000 

DATA 00000000 

DATA 00011110 

DATA 01100001 

DATA 10000000 

DATA 10000000 

DATA 00000000 

DATA 00000000 

DATA 0,0,0,0,0,0,0,0 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 10000111 

DATA 01111001 

DATA 00000000 

DATA 00000000 

DATA 0,0,0,0,0,0,0,0 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 11100001 

DATA 10011110 

DATA 00000000 

DATA 00000000 

DATA 0.0.0.0,0.0,0,0 

DATA 00100010 

DATA 00010100 

DATA 00001000 

DATA 00001000 

DATA 00001000 

DATA 00001000 

DATA 00001000 

DATA 00001000 

DATA 00011000 

DATA 00111100 

DATA 00110110 

DATA 01111110 

DATA 01111110 

DATA 00111100 

DATA 00011000 
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DIGO DE MAQUINA 



11120 
11130 
11140 
11150 
11160 
11170 
11160 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 
I 1450 
11460 
11470 
11480 
11490 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 

11630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
109B0 
10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 

DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAI A 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
PATA 
DATA 
DATA 
DATA 
DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



00001100 

00011000 

00011000 

00110000 

00110000 

0,0.0,0.0, 

0,0,0,0,0. 

01100000 

01100000 

11000110 

11000011 

01100110 

01101100 

onmooo 

00011000 

0,0,0,0,0. 

0,0,0,0,0 

0,0,0,0.0 

10000100 

11010110 

11111111 
11111111 
11111111 
11111111 
11111111 
11111111 

0,0.0,0,0 

0,0,0.0,0 

0,0,0,0,0 

00000000 

00000001 

00000011 

00000111 

00011111 

00111111 

01111111 

11111111 

0,0,0,0,0 

0.0,0,0,0 

0,0,0,0,0 

00000000 

00000000 

1111111 



111 



111 



00111100 
00111100 

11111111 
11111111 

0,0.0.0,0 

0,0,0,0,0, 

C ,0,0.0,0 

00000110 

00001000 

01110110 

11111111 
11111111 
11111111 

01111110 

00111100 

00011000 

0.0,0.0,0. 

0,0,0,0,0 

O001100O 

00011000 

00001100 

00001100 

00000110 

00000110 

00000011 

00000011 

00000110 

00000110 

00001100 



0,0,0 
0,0,0 
0,0,0 



0,0,0 
0,0.0 
0.0,0 



0.0,0 
0.0,0 
0,0,0 



0.0,0 
0,0.0 
0.0.0 



11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11790 
11800 
11810 
11920 
11830 
11840 
11850 



11880 
11890 

11900 
11910 
11920 
11930 
11940 
11950 
11960 
11970 
11980 
11990 
12000 
12010 
12020 
12030 
12040 
12050 
12060 
120 70 
12080 
12090 
12100 
12110 
12120 
12130 
12140 
12150 
12160 
12170 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



0,0,0.0.0,0. 

0,0,0.0.0,0, 

0,0.0,0,0,0. 

00010000 

00010000 

00010000 

00111000 

00111000 

00111000 

00111000 

00111000 

0,0,0,0,0,0. 

0,0,0.0,0,0, 

0,0,0.0,0,0 

00010000 

00111000 

011 11100 

00111000 

00111000 

00111000 

00010000 

00010000 

0,0,0,0,0,0 

0,0.0,0,0,0 

0,0,0,0,0,0 

00000000 

oooooooo 

00000000 
00100000 
01010001 
10001010 
00000100 

oooooooo 

0,0.0.0,0,0 
0,0,0,0,0.0 
0,0.0,0.0,0 

oooooooo 
oooooooo 
oooooooo 

10000010 
01000101 
00101000 
00010000 

oooooooo 

0.0,0,0.0,0 
0,0.0.0,0,0 
0,0.0.0.0,0 



Q , 0 
0,0 
0,0 



0,0 
0,0 
0,0 



Execute o programa e grave a labela 
resultante com o cornando: 
BSAVE 'CAS:AVAL' -15100.-14501 



Longos programas em código devem 
ser montados por partes. Bom para tes- 
tar as rotinas individualmente, esse mé- 
todo tem, contudo, a desvantagem de 
deixar para o leitor a tarefa de juntar os 
pedaços do programa. O fato de as ro- 
tinas isoladas serem executadas com su- 
cesso não garante o funcionamento do 
programa completo. 

Como no exemplo anterior, a maior 
dificuldade consiste em uma das partes 
ser apagada por outra durante o proces- 
so de montagem. Se você gravou mais 
bytes do que devia junto com um dos 
segmentos do programa, corre o risco 
de ver alguns desses bytes apagarem par- 
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te de outro pedaço, adjacente na memó- 
ria. Assim, quando gravarmos os códi- 
gos de uma porção do jogo usando o 
monitor de INPUT, devemos informar 
o endereço inicial e o endereço final pa- 
ra determinar o número exato de bytes 
a serem transferidos para a fita. Se re- 
corrermos ao comando BSAVE do 
MSX, devemos usar a sintaxe: 
BSAVE ' CAS; NOME' 
seguida do endereço inicial, uma virgu- 
la e o endereço final da porção a ser 
gravada. 

Quando usamos o Assembler para 
montar os programas dos artigos, o en- 
dereço inicial é sempre igual à origem 
(ou seja, o número que vem após o fal- 
so mnemónico org). O próprio Assem- 
bler cuida de começar a rotina nesse en- 
dereço. Nos programas BASIC que 
criam tabelas de dados na memória a 
partir de linhas DATA e usando POKE, 
o endereço inicial da tabela pode ser en- 
contrado na própria listagem — valor 
inicial da variável de controle do laço 
FOR...NEXT responsável pela leitura e 
transferência dos dados para a memó- 
ria. 

Já o cálculo do número de bytes a 
gravar é mais difícil, pois o endereço fi- 
nal informado pelo Assembler nem sem- 
pre é o do final da rotina. 

Há quem prefira gravar alguns bytes 
a mais, por segurança; nesse caso, po- 
rém, corre-se o risco de apagar pedaços 
de outras rotinas no processo de mon- 
tagem do jogo completo. 

O modo mais seguro de juntar as par- 
tes do programa consiste em ler as roti- 
nas no gravador, preenchendo a memó- 
ria em ordem crescente. Porções com 
endereços iniciais menores devem ser re- 
cuperadas da fita primeiro, sendo segui- 
das sempre das rotinas que ocupam po- 
sições sucessivas. Isso fará os bytes gra- 
vados em excesso serem apagados pela 
próxima rotina (e não o contrário). As- 
sim, qualquer instrução rei, colocada no 
final de uma rotina apenas para permi- 
tir o seu funcionamento isolado, tam- 
bém será apagada. 

Quando todas as rotinas montadas ti- 
verem sido colocadas na memória e es- 
tiverem funcionando, o programa resul- 
tante deve ser gravado inteiro, com ou- 
tro nome. Seu endereço inicial será o da 
primeira rotina lida na fita e o final se- 
rá o endereço final da última rotina co- 
locada na memória. Qualquer problema 
pode exigir que as rotinas sejam reuni- 
das novamente. Não se esqueça de gra- 
var as listagens Assembly — os progra- 
mas- fonte — bem como os programas 
BASIC que criam as tabelas na memó- 
ria, pois você pode precisar repetir o 
processo de montagem. 
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Se houver qualquer tipo de problema 
com as tabelas de dados, podemos mon- 
tar as rotinas em código, na ordem ci- 
tada, e executar cada um dos programas 
em BASIC. Eles devem ser lidos no gra- 
vador, um a um, postos em execução e, 
em seguida, apagados pelo comando 
NEW. Depois disso, o próximo progra- 
ma criador de tabelas será lido na fita 
e o processo se repetirá. 



Ql 




Adicione as próximas linhas ao pro- 
grama criador de tabelas que vem sen- 
do montado ao longo destes artigos: 

110 READ AS 

120 FOR A-l TO LEN (AS) 

130 POKE AD. ASCtMIDS (AS ,A.l) ) 

140 AD-AD+1 

150 NEXT A 

160 DATA Itt [|f !tlli II ! Mttilti 
#•!•••!*• 1 1 

170 FOR A-l TO 702 

180 READ AS:POKE AD . UAL t "S.H "+AS 

) 

190 AD-AD+1 ! NEXT A 

200 IF AD018238 THEN PRINT "ER 
ROR" 

210 DATA 55.54,50,50,40,40,0,0, 
7F.5F.57,D7.F5.FF,D5.75.DD.77.5 
D.D5,7D,75,5D,77.F5,FD.57,75,DD 
, 77 , SD.D5 , FD. 5F, 57 . D7 . 5D. FF.D5, 
7F,75.77.FD.F7.D5,5D,75,77,55,D 
5 . D5 . 5D . 5D . D7 , F5 . 7D , D5 , 5D , 5D , D7 
,55,57,FF,7F,57,57,FD,FD 
220 REM aol 

230 DATA 55,75,D5,55,55,75,D5,5 
5 . 75 , 75 . D5 , D5 , 5D. 5D . D5 , D5 , 5D , 5D 
,D7,55,57,5D.D7.5D,D5,D5.5D,5D. 
75,D7.DD.75,7D.5D,75.D5,5D,75,5 
D,D7,57,75.5D,5D,F5.D5.57.75,5D 
,D5,57,75,S7,55,55,D7,F7,55,55, 
DD 

240 DATA 57, 55, 55, D5. 77, 55, 55. D 
F.D5.D5, 57. 55 , 5D, D5, 57 , 7F.F5 , 75 
.5D.55.57. 75.5D.F5.57.5D, 75,5F. 
5D.57.D7.55. 75.75,57.55,55, 77, 7 
5,D5.55.D7.75.D5.55,D7, 75. 75,57 
.57.5D.75.57,57,5D.55.55,57,5D, 
55 

250 REK nuieroa 

260 DATA 7D.D7,D7.D7,7D,5D.7D,5 
D.5D,FF,7D,D7,5D.75,FF,FD.5?.FD 
.57 , FD. 5D. 7D,DD, FF, 5D, FF.D5 , 7D, 
57 . FD. 7F.D5, FD, D7 , 7D. FF, 57, 5D , 7 
5,75.7D,D7.7D,D7.7D,7F,D7,7F,57 
.57 

270 BEM graficoa 

280 DATA 57.5F.5F,57,5F,5F,5F,5 
F,D5.F5.F5,D5,F5.F5.F5,F5,5F.5F 
.57.57.57.57.57.57.F5.F5.D5.D5, 
D5.D5.D5.FD. 55. 55. 55.55,55,55,5 
5,55.57.5F.5F,57,55.57,57.57,D5 
,F5.F5.D5.55.55,55.FD.55.55.55, 
55.55,55,55.55.55.55,55,55,55,5 
5.55,55.FD,55,57,5D,75.D5,75,55 
290 DATA 55.55.D5.75,5D,5D,5F,5 
5,55,55.55,55,55,55.55.55.55.55 
,55.55,57.5F,5F.57,55,55,55,55, 
D5.F5.F5,D5.55.57.57.57,FD,55,5 



7,5D,55,55,55,FD,55.55,D5.75.75 
.D5,75.55.55.55,55,55,5D,5D.5F. 
55,55.55.55.55.55.55,55,55.55,5 
5 , 55 . 55 , 55 , 55 , 55 . 55 . 57 . 5F . 5F , 57 
300 DATA 55 , 55, 55, 55.D5 , F5 . F5 ,D 
5,55,55,55.55,55,55.55.55.55,55 
,55.55.55.55,55.55.55.57,57.57. 
FD.55,57.5D.55.55,55.FD.55,55,D 
5,75,55.55.55,55,55,55,55,55,55 
. 55, 55. 55, 55, 55, 55. 55. 75, D5. 75. 
55 T 55,55,55.55.5D,5D,5F,5S,55.5 
5.55.55.55,55 

310 DATA 55.55,55.55.55,55.57,5 
F , 7F. FF , FF. FF. 7F , 5F . F5 . FD, FF , FF 
,FF,FD,F5,D5.55.55,55,55.55,55. 
55,55,5F,7F,FF,FF.FF,7F.5F,57,D 
5,F5,FD.FF.FF.FF.FD.F5.55.55,55 
, 55. 55, 55. 55. 55. 5D, 5 7, 55, 55. 55, 
55.55,55.5D.75.D5.D5.D5.D5,D5,D 
5,57,5F,7D,7F.7F,5F,57,5 7,D5,F5 
320 DATA FD.FD,FD,F5,D5.D5,57,5 
7.55,55,55,55,55, 55. D5,D5.F5,F5 
,7D,7D,5F,5F.55.55.55,55,57,57. 
5F.5F,7D,7D.F5,F5.D5.D5,55.55,7 
D,7D,F5,F5.7D.7D.5F.5F.55.55,7D 
, 5F . 7D, F5 ,D5 ,D5, 55 , 55. AA. AA.56. 
56.AA.AA,55.55,AA.AA.95.95,AA.A 
A.55,55, 7F. FF, FF, FF, 7F.5F.81 
330 DATA 15.7D,FF.FF.FF.FD.F5.5 
7,57,57.5F,5F,5F,5F,5F.55,55,55 
,D5,D5,D5,D5.57,5F,7F.5F.5F,5F. 
57.57,55.D5,F5,D5,D5.D5,55.55,A 
A , AA , AA . A6 , 99 , 6A . AA . AA . AA , AA . AA 
, AA , A9 , 66 , 9A , AA , AA , AA , AA , 6A , 9A . 
A6 , A9 , AA , AA, AA , AA , A6 , 99 . 6 A , AA. A 
A, 

Os sustenidos e pontos de exclama- 
ção na linha 160 definem a silhueta da 
montanha. Cada sustenido corresponde 
a um caractere representativo de uma 
pane plana e cada ponto de exclamação, 
a um caractere de declive. 

As linhas 210 a 330 contêm os bytes 
correspondentes aos padrões dos blocos 
gráficos utilizados — o sol, as pedras 
que rolam, as cobras venenosas e o pró- 
prio Willie. Pode parecer que há um ex- 
cesso de dados na listagem, mas, para 
dar suavidade ao processo de animação, 
as figuras móveis serão desenhadas em 
posições diferentes. 

Longos programas em código devem 
ser montados por partes. Isso é bom pa- 
ra testar as rotinas individualmente. Mas 
o sucesso na execução de rotinas isola- 
das não garante o funcionamento do 
programa completo. O principal perigo, 
neste como em outros casos, consiste em 
uma das partes apagar outra durante o 
processo de montagem. Assim, se você 
gravou mais bytes do que devia junto 
com um dos segmentos do programa, 
eles podem suprimir parte do outro pe- 
daço adjacente na memória. 

Quando gravarmos os códigos de 
uma porção do jogo usando o monitor 
de INPUT, devemos informar os ende- 
reços inicial e final, de modo a transfe- 



rir para a fita o número exato de bytes. 
Se usarmos o comando CSAVEM do 
TRS-Color, devemos recorrer à sintaxe: 

CSAVEM 'NOME' , 

seguida do endereço inicial, uma virgu- 
la e o endereço final da porção a gra- 
var. Quando usarmos o Assembler pa- 
ra montar os programas listados nos ar- 
tigos, o endereço inicial será igual à ori- 
gem (ou seja, o número que vem após 
o ralso mnemónico ORG). O próprio 
Assembler cuidará de começar a rotina 
nesse endereço. Nos programas BASIC 
que criam tabelas de dados na memória 
a partir de linhas DATA e usando PO- 
KE, o endereço inicial da tabela pode ser 
encontrado na própria listagem — va- 
lor inicial da variável de controle do la- 
ço FOR.. .NEXT responsável pela leitu- 
ra e transferência dos dados para a 
memória. 

Mais difícil é a tarefa de calcular o 
número de bytes a serem gravados. É 
que o endereço final informado pelo As- 
sembler nem sempre é o do final da ro- 
tina. Muitas vezes, aquele endereço é 
apenas o da última instrução n. ontaí. a, 
o que em muitas das nossas listagens sig- 
nifica um rótulo seguido por um aste- 
risco, usado para cálculo de s; itos e des- 
vios, não correspondendo au final do 
programa. 

Procure não gravar bytes a mais pa- 
ra não apagar pedaços de outras rotinas 
no processo de montagem do jogo. A 
maneira mais segura de juntar as partes 
do programa consiste em ler as rotinas 
no gravador, preenchendo a memória 
em ordem crescente. Porções com ende- 
reços iniciais menores devem ser recu- 
peradas da fita em primeiro lugar, sen- 
do seguidas sempre das rotinas que ocu- 
pam posições sucessivas. Isso fará os 
bytes gravados em excesso serem apa- 
gados pela próxima rotina (e não o con- 
trário). Assim, qualquer instrução RTS, 
colocada no final de uma rotina para 
permitir o seu funcionamento isolado, 
também será apagada. 

Quando todas as rotinas montadas ti- 
verem sido colocadas na memória e es- 
tiverem funcionando adequadamente, 
chegou o momento de gravar, inteiro, 
o programa resultante, com um outro 
nome. Seu endereço inicial será o da pri- 
meira rotina lida na fita e o endereço fi- 
nal será o endereço final da última roti- 
na colocada na memória. Qualquer pro- 
blema pode exigir que as rotinas sejam 
agrupadas novamente. Não se esqueça 
de gravas as listagens Assembly — os 
programas -fonte — , assim como os pro- 
gramas BASIC que criam as tabelas na 
memória, pois você pode precisar repe- 
tir o processo de montagem. 



I 
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MÓDULO LUNAR: 
COMANDE O POUSO 



paisagem lun ar 
ma rcador 

de combustível 

velqcímetro 

" contro les de pouso 



Você vai precisar de muita habilidade 
e sangue * rio para fazer uma nave 
pousar na superfície lunar em 
segurança. 0 jogo é envolvente 
e facílimo de programar. Confira! 

Programarão de jogos MO! sempre é 
sinonimo de longas e complicadas lista- 
gens. Como voei verá neste artigo, po- 
demos criar jogos muito interessantes 
com programas relativamente simples e 
curtos. 

Nosso jogo. Módulo Lunar, está 
completo. Ele oferece ao jogador grã Ti- 
cos de alta resolução e controle total so- 
bre o módulo. Se você quiser, 
acrescente-lhe sons, novas mensagens — 
como "Quer jogar novamente?" — ou 
modifique a paisagem lunar. Tudo de- 
pende de sua preferência. 



10 COLOR 15,1.1:SCREEN2 

20 FORN=l TO 50-PSET(RNDU)«255 

,RND(1)*140> , 15:NEXTN 

30 DRAWC6BM0.188M+1B.-30M+18.+ 

15M+18,+BM+18,-BH+16.-20M+16.-5 

M+13 .+20H+14. +8M+1B, +-4K+10 , OM+1 

0, -10H+20 , -25M+10, +20M+10 .+10K+ 

20 . +5M+18, -20H255 .191" 

40 PAI NT l 1 0 . 191) ,6 

50 DRAWClBM145,188M+2.-4M+14.0 

M+2.+4 - 

B0 DRAWBM93.157C1D31R1U31" 

90 3— TIME:LX=INT(RNDIS)*240)+-1 

0 ! LY«INT{RND(S) MO] +15 : XV= INT (P 

ND(S)»10) -YV-0:F-256 

100 AX-LX:AY=LY 

110 G03UB 4000 

120 GOSUB 1000:GOSUB 2000:GOSUB 
30Ú0 

130 IF LY<173 THEN 120 



140 FOR TT=0 TO 200:NEXT 

150 CLS : SCREEN0 : COLOR 1,15.15 

160 TF LX<147 OR LXM61 THEN 19 



190 LOCATE7. 1 0 : PRINT" ! ! 



1000 IF LY>1 THEN GOSUB 4000 
1010 LX-LX+XV:LY-LY+YV 
1020 IF LX<5 THEN t X-LX+245 
1030 IF LX>250 THEN LX-LX-242 
1040 IF LY<1 THEN RETURN 
1050 IF LY>150 THEN RETURN 
1060 GOSUB 4000 
1070 RETURN 

2000 YV-YV+.5:IF F<1 THEN RETUR 
M 

2010 IS=INKEYS:IFIS-"*THEN2010 



Você pode controlar a nave alternan- 
do o sentido (esquerda direita) de seu 
movimento e usando os foguetes para 
diminuir a velocidade de impacto com 
a plataforma lunar. 

Os controles são. respectivamente: A, 
S e V para o Apple, o TK-2000 e o MS\; 
5. 7 e 8 para o Specirum e as setas para 

TRS-Color. 
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V • Q-f - 246 

100 AX - LX AY - LY 

114 GOSUB 4000 

170 GOSUB 1000: COSUB 2000' CO 
SUB 1000 

130 ir LV < 140 THEN GOTO 120 

1)4 FO» TT * 0 TO 1 00 r HEXT 
140 HOME ! FF LX < 142 OB I.X > 
166 OB ABS (YVl > 4 THEN GOT 
O 160 

ISO VTA* <24j PPIN7 •(•APAfiEME 

. POUSO BEM SUCEDIDO" • GOTO 170 

160 HM '24) WIMt TAB ( lOj 

í ! VOCI COLIDIU III" 
170 FOB TT - 0 TO 2500: NEXT 
1B0 STOP 

1000 ir LY > 1 THEN GOSUB 400 
0 

1010 LX - LX ♦ XV:L* " LY * YV 
JOIO IF LX < 4 THEN LX - LX ♦ 
244 

1014 If LX > 240 THEN LX • LX 

- 292 

10)6 IF LY < 1 THEN PETUPN 
1017 IF LY > 140 THEN BETURN 



2000 YV - YV • 4- IF F < 1 THE 
N PE7UPN 

2010 OIT 13: IF 15 - "F* AND F 
> i THEN YV ■ YV - 1 -T - t - J 
PETUPN 

2020 IF 13 - *A" THEN XV - XV 

- .»:F - F - i: BETUBN 

2010 IF 13 - *S* THEN XV - XV 

* 4 F - F ~ 1 BETUBN 

2040 MfUMI 

1000 HOME : VTAB Í23, PP I NT • 
COMBUSTÍVEL: ";F 

3010 PBINT PBINT 'VELOCIDADE 

•; INT (YV) 
1020 VTAB (1) ! SETUPN 
4000 HCOLOfi- 0 

4010 HPLOT AX.AY HPLOT TO AX 
- 5, AT * 10- HPLOT TO AX.AY * 
8 HPLOT TO AX • 4.AY * 10: H 
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-247" (LX>0) 

1040 GET(LX,LY)-(LX+7.LY+7) ,B.G 
1050 PUT(LX.LY)-(LX+7,LY+7).L,P 
8ET ' R ETURN 

2000 YV-YV+.5:IF F<1 THEN BETUH 
N 

2010 IF PEEK(341)-247 ANO F>3 T 

HEN YV-YV-1:F-F-3:RETURN 

2020 IF PEEK(343)-247 THEN XV-X 

V-.S:F-P-1:RETURN 

2030 IF PEEK{344)-247 THEN XV-X 

V+.5:F-F-1 

2040 RETURN 

3000 LINE (9+F,l)-(12+F,5) .PRI8 
ST, BF 

3010 V-2"YV:IF ABS(V)>122 THEN 
V-122-SGNIV) 

3020 LINK<8,B)-(255,11).PRESET. 
BF:LINE (132,8) -(132+V. 11) ,PSET. 
BF 

3030 RETURN 



10 BORDEI) 1: INK 7: PAPER 0: 

CLS : BRIGHT 1 
20 FOR N-l TO 50: PLOT RND" 
255. (RND"135)+40: NEXT N 
70 PLOT 0,0: FOR N-l TO 16: 



RE AO GX.GY: DRAU GX , OY : NEXT 
N 

BO DATA 1B. 30, 18.-15. 18, -B, 18 
,8.16,20,16.5.13.-20,16,-8,18 
,-4,15,0,10.10,20.25.10.-20, 
10, -10. 20, -5, 1B. 20 
90 PRINT AT 0,4; INK 6; PAPER 
2;"COMB:-;AT 0 , 18 i "VELOCID :" 
110 LET LX»RND*240+10: LET LY- 
160-(15+<RND"10)> : LET XV-RND* 
15: LET YV-0: LET F-246 
115 GOSUB 4000 
120 GOSUB 1000: G0SU6 2000: 
GOSUB 3000 

130 IF LY>20 THEN GOTO 120 
135 PAUSE 50 

140 CLS : IF LX<154 OR LX>164 
OR ABS YU>4 THEN GOTO 160 
150 PRINT ■ PAPABENB . POUSO B 
EM SUCEDIDO! " : RESTORE 5000: 
FOR N-l TO 14: RE AO A, B : SOUND 
A, B : NEXT N: GOTO 170 
160 PRINT AT 10, 7 i FLASH li 
INK 2l PAPER 7 i " I ! ! 1 ! CRA3H ! ! ! I 
I": FOR T-l TO 50: BORDER RND» 
7: SOUND .01.RND-5: NEXT T 
170 PAUSE 400 
180 STOP 
1000 IF LY<160 THEN GOSUB 4000 
1010 LET LX-LX+XV: LET LY-LY+YU 



: IF LYO00 THEN SOUND . 02.LY/ 
S 

1030 IF LX<5 THEN LET LX-LX+24 

5 

1035 IF LX>250 THEN LET LX-LX- 
242 

1036 IF LY>160 THEN RETURN 

1037 IF LY<10 THEN RETURN 
1040 GOSUB 4000 

1050 RETURN 

2000 LET YV-YV-.5: IF F<1 THEN 
RETURN 

2010 IF INKEY3-"7" AND F>3 THEN 
LET YU-YU+1: LET F-F-.l: RETUR 

N 

2020 IF INKEYS-"5" THEN LET XV 
-XV-.5: LET fwT-li RETURN 
2030 IF INKEYS-"8* THEN LET XV 
«XU+.5: LET F-F-l: RETURN 
2040 RETURN 

3000 PRINT AT 0.10:* "+STR9 f*' 

" | AT 0.28i" ■+STBS INT YV+- " 
3010 RETURN 

4000 OVER 1: PLOT LX , LY : DRAU - 
5.-10: DRAU 5,2: DRAU 5,-2: DRA 
U -4,10 

4010 OVER 0: RETURN 
5000 DATA .2,4, .2,7, .2.5. .2,12. 
.2,0. .2.4, .2,4, .2,5, .6,7, .2,12, 
.2,0, .2,4. .2,2, .6,0 



mim 



CÓDIGO DE MAQUIN 
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AVALANCHE 
MONTE © CENÁRIO 



Não há avalanche sem montanha. Chegou 
a hora de colocar em cena a encosta 
que Willie irá escalar. Precisaremos 
também colorir a superfície e completar 
a tela com um belo céu azuí. 



O título e os créditos foram exibidos. 
O jogador já leu as instruções e ouviu 
a execução do tema de abertura. Che- 
gou a hora de abrir as cortinas — ou, 
no caso de Avalanche, a hora de dese- 
nhar o cenário. No Spectrum, este se 
movimenta da esquerda para a direita, 
enquanto a teia de instruções é arrasta- 
da em sentido oposto — ou seja, realiza- 
se um SCROLL horizontal. No MSX e 
no TRS-Color, a tela de instruções está 
no modo texto. Por isso, enquanto o ce- 
nário é colocado na tela gráfica, a pági- 
na de instruções vai se apagando, 
cedendo-lhe lugar. O deslocamento do 
cenário para o vídeo se dá da mesma 
maneira. 

O processo de montagem do cenário 
é bem simples. Um programa BASIC 
cria uma tabela com o contorno da 
montanha (para o TRS-Color isso foi 
dado no artigo anterior). A partir do 
conteúdo da tabela, a rotina em código 
desenha o perfil da encosta. O céu e a 
terra podem ser coloridos por meio de 
blocos gráficos, colocados acima e abai- 
xo do perfil da encosta. À medida que 
o cenário é transferido para a tela. va- 
mos retirando a página de instruções. 



A rotina Assembly listada abaixo é 
responsável pela criação e pelo 
SCROLL horizontal do cenário. 

10 BEM erg 58303 

20 BEM lei ld a. 16 

30 BEM ld (57328) ,a 

40 BEM ld íx. 58034 

50 BEM ld b,32 

60 REM npi push bc 

70 REM cal 1 scl 

80 REM ld a.O 

90 REM ld (57329) ,a 

100 BEM ld a. (ix+0) 

110 REM dec ix 

120 REM cp 33 

130 REM jr ns. lv 

140 BEM dec b 

150 REM ld a. (57328) 

160 BEM dec a 

170 BEM ld (57328) ,a 

180 REM ld .5.1 

190 BEM ld (57329) ,ã 

200 BEM lv ld a, (57326) 

210 REM ld b.a 



220 BEM ld hl , 31 

230 BEM ld a, 45 

240 REM call lg 

250 REM W bc, 57264 

260 REM ld a, (57329) 

2 71) REM cp 1 

280 REM jr nz.mp 

290 REM ld bc, 57272 

300 REM np ld a. 44 

310 REM call prlnt 

320 REM ld a, (57328) 

330 REM ld b.a 

340 REM ld a, 23 

350 REM aub b 

360 REM ld b.a 

370 BEM ld a, 32 

380 REM ld de. 32 

390 BEM add hl ,de 

400 REM call lg 

410 BEM pop bc 

420 REM djnz »pi 

430 BEM ld hl ,49 

440 REM ld b. 12 

450 BEM ld a. 41 

460 BEM ld IX, 57973 

470 REM call ae 

4B0 BEM ld hl, 113 

490 REM ld b,7 

500 REM call me 

510 REM call elb 

520 BEM ret 

530 BEM scl ld hl. 16384 

540 REM ld b. 216 

550 REM lpi ld C.31 

560 REM lpj inc hl 

570 REM ld a, (hl) 

580 REM dec hl 

590 REM ld(hl) ,a 

600 REM inc hl 

610 REM dec c 

620 REM JT ns, lpj 

630 REM inc hl 

640 REM djnz lpi 

650 REM ret 

660 REM lg push bc 

670 REM ld bc, 15616 

680 REM call prlnt 

690 REM ld de, 32 

700 REM add hl.de 

710 REM pop bc 

720 REM djm lg 

730 REM ret 

740 REM elb ret 

750 REM org 5B146 

760 REM me - 

770 REM org 58217 

780 REM print " 

Este programa BASIC coloca na me- 
mória do microcomputador a tabela cu- 
jo conteúdo é responsável pela defini- 
ção do perfil da encosta. 
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■ 


COMO USAR UMA TABELA 


■ 


0 USO DOS BLOCOS GRÁFICOS 




PARA DEFINIR 0 


■ 


COMO COLORIR 




CONTORNO DA MONTANHA 




OS ESPAÇOS 


■ 


DESLOCAMENTO 


■ 


REDEFINIÇÃO 




DO CENÁRIO 




DE CARACTERES 




5 CLEAB 57000 
10 FOR n-57973 TO 58034 
20 READ a: POKE n.a: PP! NT n; 
* ";CHR3 a 
30 NEXT n 

40 DATA 83.67,79,82.69.45,46. 

48,48.48,48, 76, 73. 86, 69.83, 45 

.53.71,65,77.69,32.79,86,69, 

82,32,33,33,33,35.35,33,35,35 

,35,33,35,35,33,35,33,35.35, 

35.35,33,35,33,35,35,35,35,33 

,35,35,33,35,35,35,54 

Como de costume, o programa usa 
um laço FOR.. .NEXT para colocar da- 
dos na memória. O endereço inicial da 
tabela criada está na linha 10. A linha 
5 protege o topo da memória para que 
os dados das outras tabelas nào sejam 
apagados. Na linha DATA os valores 
33 correspondem a porções inclinadas 
do perfil da encosta, e os números 35, 
a porções planas. Os demais valores são 
códigos das letras utilizadas para escre- 
ver o score e o número de vidas que res- 
tam a Willie. 



A MONTAGEM DO CENÁRIO 



Após a definição do endereço ini- 
cial, temos duas instruções cuja Tunção 
é colocar no endereço 57328 o valor 16. 
Esse número corresponde à coordena- 
da Y do extremo superior direito do ho- 
rizonte. A posição 57328 será usada pa- 
ra armazenar números, como se fosse 
uma variável. 

Em seguida, a instrução Id ix, 58034 
coloca no par IX o último byte da tabe- 
la que define o perfil da encosta. Esse 
byte define o declive do extremo supe- 
rior direito da montanha. 

O registro B será usado como conta- 
dor do número de colunas já desenha- 
das. Por isso, a instrução Id b,32 colo- 
ca nele o valor 32, correspondente ao 
número de colunas da tela. A próxima 
linha guarda esse valor na pilha. 

Em seguida, a sub-rotina sei é cha- 
mada. Ela se encarrega da translação do 
conteúdo da tela uma coluna para a es- 
querda — ou seja, realiza um SCROLL 
horizontal. 

Uma segunda posição da memória, 
com endereço 57329, será usada como 
indicador. Ela informará à rotina se o I 
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nível da encosta está diminuindo ou per- 
manece plano naquela coluna. Se o byte 
for 0, a encosta é plana; se for 1, o ní- 
vel está diminuindo. As instruções das 
linhas 80 e 90 colocam no endereço o va- 
lor inicial 0. 

A instrução Id a,(Íx + 0) coloca no 
acumulador o último byte da tabela de 
contorno. Temos que usar o " +0" nes- 
sa instrução porque o endereçamento in- 
direto com o registro IX deve ser inde- 
xado. Não existe uma instrução Id a,(ix). 
A instrução dec lx subtrai uma unidade 
do conteúdo de IX, para que ele aponte 
para o próximo valor da tabela. Obser- 
ve que esta será lida "de irás para a 
frente". 

A instrução cp 33 tem a função de 
comparar o conteúdo do acumulador 
com 33, valor indicativo de que o nível 
da encosta está diminuindo. Se o acu- 
mulador não contém esse valor — ou se- 
ja, se a montanha é plana no local em 
questão — , a instrução jr nz.lv salta em 
direção ao rótulo Iv. 

Se o conteúdo do acumulador for 33, 
a instrução jr nz,lv é ignorada, pois o 
indicador de zeros foi ativadu por cp 33. 
O contador B e a coordenada Y do per- 
fil (armazenada em 57328) são diminuí- 
dos em uma unidade. O indicador arma- 
zenado no endereço 57329 passa a valer 
1. Todo esse processo é executado pe- 
las linhas 140 a 190. 

A instrução dec b diminui o valor de 
B. As alterações do conteúdo dos ende- 
reços 57328 e 57329 são feitas com au- 
xílio do acumulador, já que não existe 
uma instrução que, diretamente, dimi- 
nua o valor de um byte da memória ou 
transfira um valor para determinado en- 
dereço. Não há instruções do tipo dec 
57328 ou Id (57329), 1. 

Quer a encosta da montanha apresen- 
te inclinação, quer continue plana, o 
programa continua na rotina Iv. 



A ROTINA Iv 



A linha 200 e a linha 210 colocam o 
valor da coordenada Y no registro B. Is- 
so é feito com o auxílio do acumulador, 
já que o registro B não recebe o valor 
de um byte da memória via endereça- 
mento indireto, Não há uma instrução 
Id b,(57328). 

A instrução Id hl, 31 coloca em HL a 
posição da memória de v(deo que cor- 
responde ao canto superior direito da le- 
ia. Id a, 45 coloca no acumulador o va- 
lor 45, que, quando transferido para a 
tabela de atributos, resultará num carac- 
tere desenhado em ciano sobre fundo 
ciano. A rotina Ig é chamada a seguir. 
Ela desenha uma coluna de blocos a par- 



tir da posição determinada por HL. A 
cor dos blocos é definida por A, enquan- 
to o tamanho da coluna é estabelecido 
por B. 

Quando o processador retorna da 
sub-rotina, a instrução Id bc,57264 co- 
loca em BC o endereço inicial do padrão 
do bloco usado para desenhar porções 
planas da encosta. O indicador guarda- 
do no endereço 57329 é colocado no 
acumulador e comparado ao número 1 . 

Se o valor do indicador for diferente 
de 1 — ou seja, se a montanha for pla- 
na neste local — , a instrução jr nz.mp 
faz com que o processador salte em di- 
reção ao rótulo mp. Se o valor do indi- 
cador for 1, o nível da encosta deve 
diminuir, A instrução Id bc,(57329) mo- 
difica o conteúdo de BC, de modo que 
esse par de registros passe a conter o en- 
dereço inicial do padrão do bloco usa- 
do para desenhar porções inclinadas da 
montanha. Os padrões dos blocos das 
porções planas e inclinadas da monta- 
nha são obtidos na tabela de padrões 
criada pelo programa listado no último 
artigo. 

Quer a montanha seja plana ou in- 
clinada neste ponto do desenho, o pro- 
grama prossegue na rotina mp. 



A ROTINA mp 



Para desenhar os blocos que definem 
o perfil da encosta da montanha, deter- 
minando o limite entre o céu e a terra, 
o computador precisa de duas cores. As- 
sim, a instrução ld.a.44 atribui aos ca- 
racteres a cor verde. A cor do fundo per- 
manece ciano. Em seguida, a sub-rotina 
print, listada no primeiro artigo da sé- 
rie Avalanche, é chamada para desenhar 
o bloco. 

As instruções contidas nas linhas 320 
e 330 colocam o valor da coordenada Y 
do perfil da encosta em B, com o auxí- 
lio do acumulador. Subtraindo esse va- 
lor de 23, obtém-se o número de blocos 
que devem ser desenhados abaixo do ho- 
rizonte. O número 23, correspondente 
às linhas da tela do Spectrum, foi colo- 
cado em A para permitir a subtração 
realizada pelo comando sub b. Esse co- 
mando deixa o resultado da subtração 
no registro A. A instrução Id b,a é utili- 
zada para trazer o resultado da subtra- 
ção de volta para B — a rotina Ig exige 
que o número de blocos a serem dese- 
nhados esteja em B. Note que todas as 
24 linhas da tela do Spectrum são em- 
pregadas, incluindo as duas inferiores, 
normalmente reservadas para edição de 
linhas em BASIC, 

A instrução Id a,32 coloca em A o 
código de atributo correspondente a ca- 



ractere de cor verde sobre fundo igual- 
mente verde. Em seguida, o número 32 
é colocado em DE e somado ao endere- 
ço de impressão na tela, que está em 
HL. Esse par de registros passa, então, 
a apontar para a próxima posição na 
vertical. A rotina Ig é chamada a seguir 
para imprimir os blocos verdes abaixo 
do horizonte. 

A instrução pop bc recupera da pi- 
lha o contador de colunas. A instrução 
djnz diminui seu valor em uma unida- 
de, retornando ao início do programa 
para imprimir uma nova coluna, en- 
quanto o contador não for zero. 



0 PLACAR 



Precisamos reservar uma porção da 
tela para imprimir o score e o número 
de vidas que restam a Willie. Assim, na 
linha 430, 49 é colocado em HL, deter- 
minando a posição de impressão do pla- 
car. O número de caracteres impressos 
é colocado em B. A instrução Id a,41 co- 
loca em A o código de atributo corres- 
pondente a caractere azul sobre fundo 
ciano. 

Depois, a instrução Id ix,57973 colo- 
ca em IX o endereço do byte que será 
utilizado para armazenar o total de pon- 
tos obtidos pelo jogador. A rotina me, 
criada no primeiro artigo desta série, é, 
então, chamada. Ela traduz o score sob 
a forma de códigos ASCII, e o imprime 
na tela. 

A instrução seguinte chama a sub- 
rotina elb, que cuida dos níveis de difi- 
culdade do jogo, acrescentando os bu- 
racos e as cobras ao cenário. Essa roti- 
na ainda não foi publicada e, como vo- 
cê pode observar, seu rótulo correspon- 
de a um simples ret, no final da lista- 
gem. Por enquanto, o processador re- 
tornará imediatamente da rotina, sem 
nada executar. No momento apropria- 
do, o comando ret será apagado peia 
verdadeira rotina elb. 

Ao retornar da sub-rotina elb, o pro- 
cessador encontra uma nova instrução 
rei, que provoca um retorno ao interpre- 
tador BASIC. Quando o videogame es- 
tiver completo, a rotina de criação do 
cenário terá terminado e o processador 
retornará à rotina principal (responsá- 
vel pelo controle do jogo), que chama- 
rá as sub-rotinas seguintes. 



SCROLL HORIZONTAL 



O rótulo sei marca o início da rotina 
que executa um deslocamento horizon- 
tal do conteúdo da tela para a direita, 
Esse processo — chamado geralmente 



de SCROLL horizontal — permite que 
desenhemos o cenário, a partir da extre- 
midade esquerda do vídeo, enquanto a 
página de instruções vai sendo retirada 
da tela. 

A instrução ld hl, 16384 coloca o en- 
dereço inicial da memória de vídeo em 
HL. A instrução seguinte coloca em B 
o número de linhas da memória de ví- 
deo e da tabela de atributos. O número 
de colunas por linha é colocado em C 
pela instrução ld c,31. 

O apontador HL aumenta, então, em 
uma unidade, fazendo com que a instru- 
ção ld a, (hl) coloque no acumulador o 
conteúdo da segunda posição da tela. 
Em seguida, o conteúdo do par de re- 
gistros HL é diminuído em uma unida- 
de, voltando a apontar para a primeira 
posição da tela. A instrução ld (hl|,a co- 
loca ali o padrão que antes ocupava a 
posição seguinte. 

O conteúdo do par HL é novamen- 
te aumentado, enquanto o conteúdo de 
C é diminuído. Se o registro C ainda 
não contém zero — ou seja, se o fim da 
linha não foi atingido — , a instrução jr 
nz.lpj retorna ao rótulo ípj para deslo- 
car o conteúdo da coluna seguinte. 
Quando o fim da linha for alcançado, 
a instrução jr nz.lpj será ignorada e a 
instrução inc hl aumentará HL em uma 
unidade. 

A instrução djnz sempre utiliza o par 
de registros BC. Como C é igual a ze- 
ro quando se executa a linha 640 do pro- 
grama, essa instrução diminui o conteú- 
do dc B em uma unidade e volta ao ró- 
tulo Ipi para deslocar uma nova linha. 
Depois que a última linha tiver sido des- 
locada para a direita, B conterá o valor 
0, e a instrução ret provocará o retorno 
da sub-rotina. 



A ROTINA lg 



A primeira instrução dessa sub-rotina 
é push bc, que guarda o contador de 
colunas na pilha. A instrução ld 
bc, 15616 coloca em BC o endereço ini- 
cial da tabela da ROM em que estão 
contidos os padrões dos caracteres. O 
primeiro caractere ali representado é o 
espaço em branco. Assim, quando a li- 
nha 680 chamar a sub-rotina print, ela 
imprimirá um espaço de cor apropria- 
da na tela. A instrução seguinte coloca 
32 em DE. A instrução add hl.de, por 
sua vez, soma 32 ao conteúdo do par 
HL, de modo que ele aponte para o pró- 
ximo bloco da coluna. 

A instrução pop bc recupera o con- 
tador de colunas e a instrução djnz di- 
minui seu valor em uma unidade, retor- 
nando ao rótudo lg a fim de imprimir 



mais um espaço em branco. O processo 
se repete até que o conteúdo de B seja 
reduzido a zero, indicando que o últi- 
mo bloco foi impresso. 

O salto para lg não será executado e 
a instrução rei fará com que o proces- 
sador retorne ao ponto de onde a sub- 
rotina foi chamada. 




A rotina Assembly listada a seguir cria 
e desloca na tela do TRS-Color o cená- 
rio de Avalanche. Ela difere das demais 
devido às limitações do uso de cores nes- 
se computador. Como a montanha é co- 
berta de relva e cercada pelo mar azul, 
não temos alternativa senão pintar o céu 
de amarelo. 
10 OPG 19109 
20 JSR MODE 
30 JSR CCLS 
40 LDX «5631 
50 LDY Í17503 
60 LDB |32 
70 LOOP PSHS B 
BO JSR SCROLL 
90 JSR PRINT 
100 PULS B 
110 DECB 
120 BNE LOOP 
130 LDY 117604 
140 LDX 11569 
150 JSR PRSUN 
160 RTS 

170 MODE EQU 19182 
1B0 GCLS EQU 19161 
190 SCROLL EQU 19197 
200 PRINT EQU 19216 

Digite a rotina usando nosso programa 
Asscmbler. Grave o programa- fonte e de- 
pois monte-o. Grave também a rotina em 
código, usando o comando CSAVEM. A 
rotina não deve ser executada ainda, pois 
não funcionará sem os demais programas 
do artigo. 



DESLOCAMENTO DO CENÁRIO 



Após termos definido o endereço ini- 
cial, precisamos colocar o computador 
no modo gráfico e selecionar o conjun- 
to de cores que vamos utilizar. Isso é fei- 
to pela sub-rotina MODE, chamada pe- 
lo comando JSR MODE na linha 20. A 
sub-rotina GCLS limpa a leia, 
colorindo-a de amarelo. 

A instrução LDX #5631 coloca em X 
o endereço do extremo superior esquer- 
do da tela. Essa área será ocupada pelo 
último byte do contorno da montanha 
antes de se iniciar o deslocamento do ce- 
nário. A instrução LDY #17503 colo- 
ca em Y o endereço inicial da tabela do 
perfil da encosta. LDB #32 coloca em 



B o número de colunas da tela. A ins- 
trução PSHS B guarda o contador de 
colunas na pilha da máquina, liberan- 
do o registro B. 

A sub-rotina SCROLL é chamada 
para deslocar a coluna uma posição pa- 
ra a direita. Em seguida, a sub-rotina 
PRINT é chamada, imprimindo uma 
coluna de blocos verdes abaixo do ho- 
rizonte. A instrução PULS B, na linha 
100, recupera o contador de colunas da 
pilha da máquina. O contador é, então, 
diminuído em uma unidade por DEC B. 
A instrução BNE LOOP faz o proces- 
sador voltar à linha 70 para imprimir 
uma nova coluna, até que o conteúdo 
de B acabe se tornando zero. 

Quando isso ocorrer, o programa te- 
rá desenhado a última coluna, a instru- 
ção BNE LOOP será ignorada e o pro- 
grama continuará na linha 140. Ali o re- 
gistro Y recebe o endereço inicial do pa- 
drão do desenho do sol na tabela de blo- 
cos gráficos criada no artigo anterior. 
A linha seguinte coloca em X a posição 
do sol na tela gráfica. A instrução JSR 
PRSUN chama a sub-rotina que dese- 
nha o sol. 

Como de costume, RTS provoca o 
retorno da sub-rotina ao interpretador 
BASIC — ou, quando o jogo estiver 
completo, ao programa principal. 

Várias sub rotinas chamadas não es- 
tão listadas no programa-fonte. Falsas 
instruções EQV informam seus endere- 
ços iniciais ao Assembler, para que ele 
possa calcular os saltos e desvios. 



0 INEVITÁVEL AMARELO 



A rotina GCLS limpa a tela, 
colorindo-a totalmente de amarelo — 
cor do céu nesta versão do jogo. 

10 ORG 19161 

20 CCLS LDX 11536 

30 LDA |85 

40 OCLSI STA.X+ 

50 CMPX 17680 

60 BLO GCLSI 

70 RTS 

A rotina começa colocando em X o 
endereço inicial da tela — 1536. A ins- 
trução LDA #85 coloca no acumulador 
o código da cor amarela. 

A instrução STA ,X+ coloca o con- 
teúdo do acumulador no endereço apon- 
tado por X e aumenta o valor de X em 
uma unidade. A instrução CMPX #7680 
compara X com 7680, primeiro byte aci- 
ma do final da tela. A instrução BLO 
GOLS1 retorna à linha 40 para colorir a 
próxima posição de tela, enquanto o fi- 
nal da memória de vídeo não tiver sido 
alcançado por X — ou seja, enquanto X 
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for menor que 7680. Quando isso acon- 
tece, a instrução RTS faz com que o pro- 
cessador volie ao ponto de onde a rotina 
foi chamada. 



As quatro sub-rotinas seguintes po- 
dem ser montadas juntas, pois ocupam 
posições consecutivas na memória. 

Para modificar o modo gráfico do 
TRS-Color temos que nos comunicar 
com dois circuitos integrados especiais 
que controlam o video. Esses chips são 
o Gerador de Video ou VDG (Video 
Display Generator) e o Multiplexador 
Síncrono de Endereços ou SAM 
(Synchronous Address Multiplexor). 

Na linha 20, o valor 229 é colocado 
no acumulador. A seguir, a instrução 
STA 65314 coloca o mesmo valor no en- 
dereço FF22. Essa posição da memória 
controla a saída de dados para o VDG 
e outros periféricos. Cada bit desse byte 
tem uma função diferente. 

Na linha 30, o número 229 — 
1 1 100101 — estabelece as linhas de co- 
municação. O "l" no bit sete determi- 
na o modo gráfico; "0" seria o modo 
de texto. Os bits seis e cinco, valendo 
"1", definem o modo gráfico P3. O bit 
três seleciona as cores — aqui, "0" dá 
verde, vermelho, amarelo e azul. 

Os bits dois, um e zero não se refe- 
rem ao VDG. Eles controlam o tama- 
nho da memória RAM, a produção de 
sons e a saída para a impressora, respec- 
tivamente. Sua conformação usual é 
101. Por isso, quando for modificar o 
conteúdo desse byte, coloque 101 nos 
três primeiros bits, a menos que haja al- 
guma razão para não fazê-lo. 

Quando alteramos as linhas de comu- 
nicação com o VDG, devemos fazer 
também algumas alterações nos bytes 
que se referem ao SAM. Esse chip tem 
um registro de dezesseis bits que corres- 
ponde às posições de memória que vão 
de FFCO a FFDF — intervalo que con- 
tém 32 bytes. Cada bit do registro exis- 
tente nessas posições é ativado quando 
colocamos um valor nos bytes ímpares 
correspondentes, e apagado quando fa- 
zemos o mesmo nos bytes pares. O va- 
lor colocado nos bytes e no registro do 
VDG deve ser o mesmo. Os bits ativa- 
dos pelas linhas 40 a 60 do programa- 
fonte informam ao SAM que a memó- 
ria de video começa no endereço 1536. 



10 



OBG 19182 
MODE LDA 1229 
STA 65314 
STA 65475 



O rótulo SCROLL marca o início da 
rotina que executa um deslocamento ho- 
rizontal do conteúdo da tela para a di- 
reita. Esse processo — chamado geral- 
mente de SCROLL horizontal — permi- 
te que desenhemos o cenário a partir da 
extremidade esquerda do vídeo. 



SCROLL PSHS X,Y 

LDX «1536 

LDY #1537 

SCRO LDA .1+ 

STA ,X+ 
60 CMPX #7679 
70 BLO SCRO 
80 PULS Y.X 
90 RTS 

Essa rotina precisa utilizar os regis- 
tros X e Y, mas números muito impor- 
tantes foram guardados ali por outras 
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rotinas. Assim, a primeira providência 
do programa, na linha 10, é guardar es- 
ses valores na pilha da máquina, com a 
instrução PSHS X,V. 

As linhas 20 e 30 colocam em X e Y 
os endereços da primeira e da segunda 
posições da tela, respectivamente. A ins- 
trução LDA ,Y + coloca cm A o con- 
teúdo da posição apontada por Y, e Y 
aumenta em uma unidade. 

A instrução STA ,X + coloca o con- 
teúdo de A na posição apontada por X, 




e X aumenta em uma unidade. Portan- 
to, na primeira passagem do processa- 
dor, as linhas 40 e 50 colocam o conteú- 
do da segunda posição da tela dentro da 
primeira posição, atualizando ainda os 
valores dos dois apontadores. 

A instrução CMPX #7679 compara 
o conteúdo de X com o último endere- 
ço da memória de vídeo. Enquanto X 
contiver um valor inferior, a instrução 
BLO SCROLL envia o processador de 
volta à linha 10 para deslocar mais uma 
posição de memória para a esquerda. 

A rotina não só desloca todo o con- 
teúdo da tela uma posição para a esquer- 
da como também coloca o que havia na 
última coluna da esquerda para a últi- 
ma coluna da direita, uma linha acima, 
sso não tem importância, já que a últi- 
ma coluna da direita será apagada pe- 
los blocos que desenham o cenário. 

Quando o conteúdo da última posi- 
ção da memória de vídeo for deslocado 
para a esquerda, o conteúdo original dos 
registros X e Y será recuperado da pi- 
lha pelo comando PULS Y,X. A instru- 
ção RTS da linha 90 provocará o retor- 
no da sub-rotina. 



Os blocos gráficos que compõem o 
cenário preenchem a última coluna da 
direita, à medida que o conteúdo da te- 
la vai sendo deslocado para a esquerda. 
A rotina responsável por esse processo 
c a seguinte: 



PBINT PSHS X 
LOA ,Y+ 
SUBA »33 
BNE PRZ 
PULS X 
LEAX -256.X 
PSHS ® 
LDY 117536 
LDB 18 

PRI LDA ,Y+ 

STA ,X 

LEAX 32.X 

DECB 

BNE PBI 

PULS Y 

PRZ CLB , X 

LEAX 32, X 

CMPX (7680 

BLC PRZ 

PULS X 



Desta vez a rotina usará o valor con- 
tido no apontador Y. Se estivermos de- 
senhando uma porção inclinada da 
montanha, poderá ser necessário modi- 
ficar a altura do horizonte contida no 
registro X. Mas, por enquanto, a instru- 
ção PSH X guarda o conteúdo de X na 
pilha da máquina. 



A instrução LDA ,Y +■ coloca em A 
o conteúdo do endereço indicado por Y 
e o apontador aumenta em uma unida- 
de. A seguir, a instrução SUBA #33 
subtrai 33 unidades de A. 

O número 33 é o código ASCII do 
ponto de exclamação e, na tabela cria- 
da pelo programa do artigo anterior, 
significa que a encosta é inclinada na- 
quela posição.' Se este não for o caso, 
a subtração não resulta em zero, o que 
faz a instrução BNE PRZ provocar um 
salto para a linha 160. Se A contiver o 
valor 33, indicando inclinação da encos- 
ta, a instrução BNE é ignorada e o pro- 
grama continua. 

A instrução PULS X recupera da pi- 
lha a altura do horizonte, e a instrução 
seguinte subtrai 256 unidades de X. O 
número 256 é igual a 8 x 32 — o apon- 
tador X subiu, assim, oito linhas (ou um 
bloco) na tela. O novo valor de X é re- 
colocado na pilha da máquina para ser 
usado no desenho da coluna seguinte. 
O valor do apontador Y — que aponta 
para a tabela de contorno da montanha 
— também é guardado na pilha. 

A instrução LDY # 17536 coloca em 
Y o endereço inicial do padrão do bloco 
de uma porção inclinada da montanha. 
O bloco é desenhado na posição aponta- 
da por X. Neste modo gráfico os pomos 
são criados em grupos de dois, com base 
no valor de dois bits. Dois bits podem ter 
quatro valores diferentes, um para cada 
cor. A organização da memória de ví- 
deo foi explicada no artigo da página 86. 

A instrução DECB diminui o conteú- 
do do contador B em uma unidade e, en- 
quanto esse contador não tiver sido re- 
duzido a zero. a instrução BNE PRI fa- 
rá com que o processador volte à linha 
100 para desenhar a próxima linha. 
Quando B contiver zero, a última linha 
terá sido desenhada. 

Em seguida, a instrução PULS Y re- 
cupera da pilha o apontador da tabela 
de contorno da montanha. O programa 
continua na linha rotulada PRZ. Esta 
é a rotina para a qual o programa salta- 
ria sc a montanha fosse plana neste pon- 
to (veja linha 40). Sua função é desenhar 
uma coluna de blocos verdes, recobrin- 
do parte da montanha. 



A instrução CLR ,X limpa o conteú- 
do do endereço apontado por X. Lim- 
par — ou seja, tornar igual a zero — o 
conteúdo de uma posição de memória 
equivale, no caso, a pintar aquela posi- 
ção com a cor verde. A instrução LEAX 
32,X soma 32 ao apontador X, fazendo- 
o descer uma linha na tela. 
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A instrução CMPX #7680 verifica 
se o apontador ultrapassou o final da 
memória de vídeo. Enquanto isso não 
ocorrer, a instrução BLO PRZ fará o 
processador voltar ao rótulo PRZ para 
desenhar mais uma linha de oito ponti- 
nhos verdes. Ao se completar a coluna 
de blocos verdes, a instrução PULS X 
recupera da pilha o valor da altura do 
horizonte. A instrução RTS marca o fi- 
nal da sub-rotina. 




Os dados necessários ao desenho do 
sol (padrões e posições na tela) se encon- 
tram na tabela criada no artigo anterior. 
Esses dados são utilizados pela rotina 
Assembly listada a seguir, que preenche 
um espaço de 32 por 30 pontos no céu. 

10 PRSUN LDS |30 

20 PRSUNI PSHS 8 

30 LDB |4 

40 PRSUNZ LDA ,Y+ 

50 STA ,X+ 

60 DECD 

70 BNE PRSUNZ 

80 LEAX 28, X 

90 PULCS B 

100 DECB 

110 BNE PRSUNI 

120 RTS 

A instrução LDB # 30 coloca no con- 
tador B o número de linhas que serão 
preenchidas para desenhar o sol. De- 
pois, a instrução PULS B guarda o con- 
tador na pilha da máquina. A linha se- 
guinte coloca o número 4 no registro B, 
definindo em quatro bytes — ou 4 x 8 
= 32 bits — a largura do desenho. Mes- 
mo que quiséssemos desenhar um sol 
com 30 x 30 pontos, precisaríamos de 
um quadriculado de 32 x 30 pontos — 
usaríamos, no caso, quatro bytes, dei- 
xando duas colunas com a cor de fundo. 

Como de costume, a instrução LDA 
, Y + obtém o padrão de uma parte dos 
desenhos no endereço apontado por Y, 
colocando-o em A e aumentando em 
uma unidade o apontador. A instrução 
STA ,X + coloca esse padrão na tela, na 
posição apontada por X, aumentando 
também em uma unidade o valor desse 
apontador. A instrução DECB diminui 
o valor do contador e, enquanto B não 
for zero, a instrução BNE PRSUNZ re- 
torna à linha 40, fazendo com que qua- 
tro bytes sejam colocados na tela. 

Quando o último byte da linha tiver 
sido desenhado, a instrução LEAX 28,X 
soma 28 ao conteúdo de X, de modo que 
ele aponte para o início da próxima li- 
nha. O contador de linhas é recuperado 
da pilha por PULS B e diminuído em 



uma unidade por DECB. Enquanto as 
trinta colunas não tiverem sido desenha- 
das, a instrução BNE PRSUNI faz com 
que o processador volte à linha 20, re- 
petindo o processo. 

Se a última linha foi traçada, B 
reduz-se a zero, a instrução da linha 1 10 
é ignorada e o programa encontra a ins- 
trução RTS, que provoca o retorno da 
sub-rotina. 
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Quando escrevemos a página de ins- 
truções, a tela estava no modo texto de 
quarenta colunas, totalmente inadequa- 
do para o cenário de um jogo de ação. 
A rotina Assembly a seguir seleciona o 
modo gráfico de alta resolução. 

10 org -12144 

20 Id h) .62441 

30 ld (hl), 4 

40 inc hl 

50 ld (hl). 7 

60 Inc hl 

70 ld (hl). 7 

80 call 114 

90 ld a. 226 
100 ld (62432), a 
110 call 105 
120 ret 
130 end 

Para selecionar as cores da tela, é pre- 
ciso modificar o conteúdo de algumas 
posições da RAM, nas quais o sistema 
armazena valores usados no controle 
das diversas operações do micro. 

A instrução que se segue à definição 
do endereço inicial coloca em HL o en- 
dereço do byte que determina a cor de 
frente usada na tela. Depois, a instru- 
ção td (hl),4 utiliza o endereçamento in- 
direto para colocar ali o código da cor 
azul-escuro. 

O par HL, usado como apontador, 
tem seu conteúdo aumentado em uma 
unidade pela instrução inc hl, passando 
a apontar para o próximo endereço, que 
determina a cor de fundo da tela. Esse 
byte recebe o valor 7, que é o código da 
cor ciano. Duas outras instruções colo- 
cam o mesmo código na posição seguin- 
te, que determina qual será a cor da mol- 
dura da tela. 

A instrução call 114 é responsável pe- 
la modificação das cores e do modo de 
exibição da tela. Ela chama uma sub- 
rotina do sistema, que coloca o compu- 
tador no modo gráfico de alta resolu- 
ção. Essa rotina equivale a um coman- 
do SCREEN 2,0, ou seja. ela não somen- 
te coloca o computador no modo gráfi- 
co como também limpa a tela, preenche 
as tabelas da VRAM com seu conteúdo 
padrão e, ainda, acerta os conteúdos do 



VDP ( Video Display Processor), chip de 
imagem do MSX. 

A rotina chamada na linha 80, con- 
tudo, preparou o VDP para exibir spri- 
tes pequenos (8x8 pontos), quando 
nós precisamos de sprites grandes (16 x 
16 pontos). Para fazer os acertos neces- 
sários, teremos que modificar o conteú- 
do de um dos registros do VDP. Estes 
podem ser alterados através das posições 
de memória que vão de 6243! a 62438 
— o que corresponde a oito registros de 
oito bits. As funções de cada registro do 
VDP serão comentadas em outro arti- 
go. Por hora, interessa-nos apenas o re- 
gistro 1, que modificaremos através do 
endereço 62432. 

As instruções das linhas 90 e 100 da 
listagem colocam nesse registro o valor 
226. Note que o uso do acumulador é 
temporário, justificando-se pela inexis- 
tência de uma instrução que coloque 
um número diretamente em uma posi- 
ção de memória. Não há uma instru- 
ção ld (62432) ,226. 

Cada bit do registo 1 do VDP tem 
uma função. O bil 7 indica o tamanho 
da VRAM utilizada, o bit 6 liga e desli- 
ga a tela, o bit 5 seleciona o modo de 
interrupção, os bits 3 e 4 determinam o 
tipo de tela (dois bits nos dão quatro op- 
ções: telas 0, 1, 2 e 3), o bit 2 não é uti- 
lizado, o bit 1 controla o tamanho lógi- 
co do sprite (8 x 8 ou 16 x 16 pontos) 
e o bit 0, finalmente, controla o tama- 
nho físico do sprite (normal ou amplia- 
do). Assim, como 226 c 111 10010 em 
sistema binário, quando colocado no re- 
gistro 1, ele determina uma VRAM de 
dezesseis Kbytes, tela ligada, com pos- 
sibilidade de interrupção, modo gráfi- 
co de alta resolução e sprites grandes 
não ampliados. 

A sub-rotina chamada na linha 80 
preencheu a tabela de atributos de spri- 
tes (veja o artigo da página 808) com no- 
mes compatíveis com sprites pequenos. 
A instrução call 105 chama, então, ou- 
tra sub-rotina da ROM, que preenche a 
mesma tabela com valores compatíveis 
com sprites de 16 x 16 pontos. Na rea- 
lidade, essa sub-rotina preenche a tabe- 
la de atributos com seu conteúdo pa- 
drão, conforme os valores dos registros 
do VDP. Depois disso, nossa rotina ter- 
mina com a instrução ret. 



TABELA DE PADRÕES 



A tela de alta resolução dos micro- 
computadores da linha MSX é organi- 
zada em cinco tabelas: nomes, padrões, 
cores, atributos de sprites e padrões de 
sprites. Os efeitos visuais do videogarne 
são criados por intermédio da modifi- 
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cação dos valores contidos nessas 
tabelas. 

A rotina listada a seguir transfere pa- 
ra a tabela de padrões os blocos gráfi- 
cos criados pelo programa BASIC do 
artigo anterior. Como os mesmos blo- 
cos são transferidos para a tabela de pa- 
drões de sprites, podemos utilizar as fi- 
guras que criamos tanto na forma de 
blocos gráficos como na forma de spri- 
tes. Observe que o programa exige que 
o banco de blocos anteriormente cria- 
do esteja na memória. 

10 org -12121 

20 ld de. (62411) 

30 ld hl .-15100 

40 ld bc.640 

50 puBh bc 

60 push hl 

70 push de 

80 call 92 

90 pop de 
100 ld hl.204B 
110 add hl.de 
120 ld d.h 
130 ld e.l 
140 pop hl 
150 pop bc 
160 push bc 
170 push hl 
180 puHh de 
190 call 92 
200 pop de 
210 ld hl. 2048 
220 add hl .de 
230 ld d.h 



240 

250 
260 
270 
280 
290 



350 



ld e.l 
pop hl 

push bc 
pueh hl 
call 92 
ld de. (62415) 

call 92 
ret 



Para transferir os padrões da RAM 
para a VRAM, utilizamos a sub-rotina 
da ROM que fica no endereço 92. Usa- 
mos a mesma sub-rotina para criar a pá- 
gina inicial e escrever as instruções. 

A instrução ld de,(62411) coloca em 
DE o endereço inicial da tabela de pa- 
drões. Esse endereço fica armazenado 
nos bytes 624 1 1 e 624 1 2 e equivale a B A- 
SE(12). Note que a instrução transfere 
dezesseis bits, ou seja, um par de bytes 
para um par de registros. O registro E 
recebe o conteúdo de 624 1 1 , byte menos 
significativo. D recebe o byte mais sig- 
nificativo, 62412. 

A instrução seguinte coloca em HL 
o endereço inicial do banco de blocos 
que criamos na memória. O número de 
bytes a serem transferidos para a VRAM 
é colocado em BC por ld bc,700. 

A sub-rotina que começa no endere- 
ço 92 baseia-se no conteúdo dos regis- 
tros DE, HL e BC para efetuar a trans- 




ferência. DE deve conter o endereço ini- 
cial da porção da VRAM a ser modifi- 
cada; HL, o endereço inicial da porção 
da RAM que vai ser transferida; e BC, 
o número de bytes. Como a sub-rotina 
altera o conteúdo desses mesmos regis- 
tros no decorrer de seu funcionamento, 
eles são guardados na pilha, para even- 
tual uso futuro. As instruções push bc, 
push hl e push de tratam disso, antes que 
call 92 mande o processador executar a 
sub-rotina. 

A tela de nomes da tela de alta reso- 
lução é dividida em três porções, cada 
uma representando os padrões contidos 
no terço correspondente da tabela de pa- 
drões. Como usaremos toda a tela, pre- 
cisaremos ter três cópias do banco de 
blocos na tabela de padrões. 

Para fazer a segunda cópia, o ende- 
reço inicial da tabela de padrões é recu- 
perado como pop de. O par HL recebe, 
então, o valor 2048, que corresponde à 
posição inicial do segundo terço da ta- 
bela de padrões. Esse valor é somado ao 
endereço inicial da tabela, para obter- 
mos o endereço inicial do terço médio 
na VRAM. A instrução que faz esta so- 
ma — add hl.de — deixa o resultado da 
operação em HL. 

Precisamos do endereço inicial em 
DE. Como não existem as instruções 
add de.hl e ld de.hl, para transferir o re- 
sultado para o par HL utilizamos duas 
instruções: ld d.h e ld e.l 

O endereço inicial do banco de blo- 
cos na RAM é recuperado da pilha com 
pop hl e o número de bytes a serem 
transferidos para a VRAM, como pop 
bc. Observe que a ordem de recupera- 
ção dos pares de registro da pilha é a 
mesma de sua colocação. Os registros 
são guardados na pilha novamente, an- 
tes que call 92 volte a transferir o ban- 
co de blocos para a VRAM. 

Obtém-se a terceira cópia do banco 
de blocos de maneira muito parecida. O 
endereço inicial do terço médio é recu- 
perado e somado a 2048, resultando no 
endereço correspondente ao terço infe- 
rior. HL e BC são recuperados da pilha 
e a rotina da memória ROM é executa- 
da novamente. Desta vez, somente BC 
e HL são guardados na pilha. 

Uma quarta cópia do banco de blo- 
cos deve ser feita na tabela de padrões 
de sprites. O endereço inicial da tabela 
é armazenado nos endereços 62415 e 
62416. A instrução ld de,(62415) trans- 
fere esses dois bytes para DE, como foi 
explicado anteriormente. 

As instruções pop hl e pop bc recu- 
peram da pilha o endereço inicial e o ta- 
manho do banco. A cópia é feita com 
call 92. A rotina termina com uma ins- 
trução ret. 
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A TABELA OE CORES 



Se não colocarmos valores adequados 
na labela de cores, nenhum bloco grá- 
fico será mostrado no vídeo. Um novo 
programa BASIC, que coloca os códi- 
gos de cores no topo da memória, está 
listado no final do artigo. Os valores são 
transferidos para a tabela de cores da te- 
la gráfica por esta rotina: 

10 org -12066 

20 ld de, (62409) 

30 ld hl, -16100 

40 ld bc,672 

50 puah bc 

60 puah hl 

70 puah de 

BO call 92 

90 pop de 

100 ld hl ,2048 

110 add hl.de 

120 ld d.h 

130 ld e. 1 

140 pop hl 

150 pop bc 

160 puah bc 

170 puah hl 

180 push de 

190 call 92 

200 pop de 

210 ld hl , 2048 

220 add hl.de 

230 ld d.h 

240 ld e.l 

250 pop hl 

260 pop bc 

270 call 92 

280 ret 

290 end 

Essa rotina é bem parecida com a an- 
terior. Ela começa colocando em DE o 
endereço inicial da tabela de cores, ar- 
mazenado nos endereços 62409 e 62410. 
HL recebe o endereço inicial da lista de 
códigos de cores que será criada pelo 
programa BASIC no final do artigo. BC 
recebe o número de bytes a serem trans- 
feridos. Os conteúdos desses três pares 
de registros são guardados na pilha e a 
rotina do endereço 92 é chamada no- 
vamente. 

Utiliza-se o mesmo processo explica- 
do anteriormente para a .obtenção de 
três cópias do banco de cores — cada 
uma correspondendo a um terço do ví- 
deo. Sprites serão coloridos no momen- 
to em que surgirem no vídeo. 



SCR0LL HORIZONTAL 



Para realizar o deslocamento da tela 
para a direita, usaremos um processo 
muito semelhante ao que foi descrito no 
artigo da página 213. 

As três rotinas listadas abaixo reali- 



zam o processo da translação do conteú- 
do da tela gráfica: 

10 ora -12022 

20 ld hl. (62407) 

30 ld de, -6000 

40 ld bc,76B 

50 call 89 

60 ret 

70 org -12009 

80 ld de, -5233 

90 ld hl. -5234 

100 ld b,24 

110 loop push bc 

120 ld a, (de) 

130 ld bc,31 

140 lddr 

150 ld (de) ,a 

160 dec hl 

170 dec de 

180 pop bc 

190 djni loop 

200 ret 

210 org -11987 

220 ld de, (62407) 

230 ld hl. -6000 

240 ld bc.768 

250 call 92 

260 ret 

270 end 

A primeira rotina transfere o conteú- 
do da tabela de nomes da tela de alta re- 
solução para um buffer localizado no 
topo da memória. 

O endereço inicial dessa tabela na 
VRAM fica guardado nos bytes 62407 
e 62408 da RAM. A instrução da linha 
20 do programa coloca esse valor no par 
de registros HL. O endereço inicial do 
buffer é colocado em DE por ld 
dc,-6000. O número de bytes a serem 
transferidos vai para o par de registros 
BC. A instrução call 89 chama, então, 
a sub-rotina da ROM que transfere nú- 
meros da VRAM para a RAM. 

A segunda sub-rotina, que começa na 
linha 70, promove o deslocamento do 
conteúdo do buffer para a direita. 

Os endereços dos dois últimos bytes 
do buffer são colocados em DE e HL. 
O número de linhas da tela vai para B. 
Como BC será utilizado adiante, a ins- 
trução push bc armazena o contador de 
linhas na pilha. 

O conteúdo da última posição da te- 
la é guardado no acumulador por ld 
a,(de). O par BC recebe o número de co- 
lunas de uma linha — 31. A instrução 
lddr coloca no endereço apontado por 
DE o conteúdo do endereço apontado 
por HL e subtrai uma unidade de cada 
um dos apontadores e do contador BC. 
O processo é repetido automaticamen- 
te até que BC seja zero. A instrução da 
linha 140 desloca, assim, toda uma li- 
nha de blocos para a direita. 

O conteúdo da última posição da li- 
nha é colocado na primeira posição, 



agora apontada por DE. As instruções 
dec hl e dec de fazem com que esses re- 
gistros apontem para as duas últimas 
posições da próxima linha a ser deslo- 
cada. No nosso caso, ela fica imediata- 
mente acima da primeira. 

O contador de linhas é recuperado da 
pilha e djnz repete o laço loop até que 
todas as 24 linhas de blocos gráficos que 
compõem o buffer tenham sido des- 
locadas. 

A última rotina, que começa na linha 
210, transfere o conteúdo do buffer de 
volta para a tabela de nomes. Suas ins- 
truções são parecidas com as da rotina 
da linha 10, só que DE recebe o endere- 
ço da tabela na VRAM e HL recebe o 
endereço do buffer. A rotina chamada 
fica no endereço 92 da ROM. 



A ROTINA PRINCIPAL 



Para desenhar a montanha que Wil- 
lie deve escalar, o programa usa a se- 
guinte rotina: 

10 org 53563 

20 ld a, 255 

30 ld hl , (62407) 

40 ld bc, 768 

50 call 86 

60 call -12121 

70 call -12066 

80 call -12022 

90 ld a, 8 

100 ld (-5230) ,a 

110 ld a, D 

120 ld (-5229) . a 

1 30 ld hl . -6001 

140 ld b,33 

150 mpi puah bc 

160 push hl 

170 call -119B7 

180 call -12009 

190 pop hl 

200 ld a. (-5229) 

210 cp l 

220 jr nz.lq 

230 ld a . (-5230) 

240 inc a 

250 ld (-5230) ,ã 

260 tq ld a,0 

270 ld (-5229) ,a 

280 ld a. (hl) 

290 dec hl 

300 push hl 

110 cp 33 

320 jr nz, Iv 

330 ld a. 1 

340 ld (-5229) ,a 

350 lv ld a, (-5230) 

360 ld b,a 

3/0 ld hl . -6000 

380 ld a, 255 

390 call lg 

400 ld b.48 

410 ld a. (-5229) 

420 cp 1 

430 jr nz.no 
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440 ld b.52 

450 no ld a,b 

460 ld (hl). a 

470 ld a, (-5230) 

480 ld b.a 

490 ld a, 23 

500 sub b 

510 ld b.a 

520 ld a. 81 

530 ld de,32 

540 add hl.de 

550 call lg 

560 pop hl 

570 pop bc 

5B0 djnz mpi 

590 ret 

600 lg ld (hl] .a 

610 ld de. 32 

620 add hl .de 

630 djnz lg 

640 ret 

650 end 

A tabela de nomes será utilizada pa- 
ra representar blocos gráficos. Estes de- 
vem estar devidamente representados 
nas tabelas de padrões e de cores. Para 
entender o funcionamento das rotinas 
gráficas é necessário conhecer a organi- 
zação da VRAM. 

A primeira coisa que a rotina princi- 
pal faz é preencher a tabela de nomes 
com o número 255. Isso equivale a en- 
cher a tela com o bloco gráfico de códi- 
go 255, que, no nosso caso, é um bloco 
ciano. O acumulador recebe o código do 
bloco, 255. A instrução ld hl,(62407) co- 
loca o endereço inicial da tabela de no- 
mes em HL. BC recebe o número de 
bytes da tabela — 768. 

A rotina da memória ROM chama- 
da por call 86 preenche com o conteú- 
do de A uma porção da VRAM. O par 
de registros HL aponta o endereço ini- 
cial da porção e o par BC, o número de 
bytes que sofrerão alterações. 

A linha 60 chama a sub-rotina que 
gera os padrões dos bytes, e a 70, a sub- 
rotina que cuida da tabela de cores. A 
sub-rotina do endereço - 12022 coloca 
o conteúdo da tabela de nomes no buf- 
fer de deslocamento. 

As linhas 90 e 100 colocam no ende- 
reço -5230 o número da linha em que co- 
locaremos o horizonte. O endereço 
-5229 recebe o valor zero. Esse byte ser- 
virá de indicador de inclinação da mon- 
tanha. Se valer zero, ela será plana; se 
\aler um, será inclinada. 

O par HL recebe o último valor da 
tabela de perfil da encosta. Essa tabela 
será gerada por um programa BASIC 
listado no final do artigo. O perfil é de- 
finido por meio de códigos que indicam 
se a montanha é plana ou inclinada num 
determinado local. 

Na linha 140, B recebe o número de 
colunas, que é logo colocado na pilha 



para liberar o uso desse registro. As li- 
nhas 170 e 180 chamam as rotinas que 
copiam o buffer na tabela de nomes e 
realizam o deslocamento. 

As linhas 200 a 250 verificam se o in- 
dicador de inclinação, no endereço 
•5229, foi modificado anteriormente. 
Quando isso acontecer, a linha do hori- 
zonte deve ser alterada no endereço 
-5230, o que é feito pelas linhas 230 a 
250. A seguir, o indicador recebe nova- 
mente o valor zero. 

A instrução ld a,(hl) coloca em A o 
valor da tabela de perfil da encosta 
apontado por HL. Em seguida, esse par 
de registros é diminuído em uma unida- 
de e guardado na pilha. 

O conteúdo de A é comparado a 33 
— valor que indica região inclinada. Sc 
A tiver outro valor, a instrução jr nz.lv 
salta para o rótulo Iv. Caso contrário, 
as linhas 330 c 340 colocam o número 
1 no indicador de inclinação. 



A ROTINA Iv 



As instruções das linhas 350 e 360 co- 
locam em B o número da linha do hori- 
zonte. Isso é feito com o auxilio do acu- 
mulador, já que não existe uma instru- 
ção que coloque o conteúdo de um en- 
dereço diretamente em B. HL recebe o 
endereço inicial do buffer, que corres- 
ponde ao topo da primeira coluna da te- 
la. A instrução ld a,255 coloca o códi- 
go do bloco ciano no acumulador. Esse 
bloco será usado para desenhar o céu. 
A rotina lg desenha uma coluna de blo- 
cos ciano. 

A instrução ld b,48 coloca em B o 
código do bloco que representa uma 
porção plana da montanha. As duas 
linhas seguintes verificam o conteúdo do 
indicador de inclinação. Se a encosta for 
plana nessa coluna, a instrução jr nz.no 
desvia o programa para o rótulo no. 
Se for inclinada, B recebe o código do 
bloco adequado e a rotina passa ao 
rótulo no. 




As linhas 450 e 460 colocam o bloco 
adequado na posição apontada pelo par 
de registros HL. As duas linhas que se 
seguem colocam em B o número da li- 
nha do horizonte. O registro A recebe 
o número de linhas da tela e a instrução 
da linha 500 subtrai o número da linha 
de horizonte desse valor. Calcula-se. as- 
sim, o número de blocos que devem ser 
colocados abaixo da linha de horizonte 
nesta coluna. 

O resultado da operação fica em A; 



a instrução ld b.a transfere-o para B. A 
instrução ld a, 81 coloca em A o código 
do caractere verde, que preenche a en- 
costa. O par de registros DE recebe o 
número 32 e add hl.de soma esse valor 
ao conteúdo de HL, para que este apon- 
te para a linha seguinte. A rotina lg é 
chamada novamente para desenhar uma 
coluna de blocos. 

Para finalizar, a posição do aponta- 
dor da tabela de perfil da encosta da 
montanha é recuperado da pilha por 
pop hl. O contador de colunas também 
sai da pilha com pop bc. A instrução 
djnz repete o processo até que as 32 co- 
lunas do desenho tenham sido traçadas 
e deslocadas na tela. 



A ROTINA lg 



Essa rotina desenha uma coluna de 
blocos. O código do bloco deve estar no 
acumulador; o endereço inicial da colu- 
na no buffer deve estar em HL; o nú- 
mero de linhas, em B. 

A linha 600 coloca o código do blo- 
co gráfico no endereço dado por HL. 
DE recebe o número 32, que é logo so- 
mado ao conteúdo de HL. A instrução 
djnz repete o processo de acordo com 
o conteúdo de B. 



AS TABELAS 



Este programa cria a tabela de cores 
na RAM: 

5 CLEAR 200,-16100 

10 FOR 1=0 TO 20 

20 READ A 

30 FOR J-0 TO 31 

40 POKE -16L00 + IM2+J.A 

50 NEXT J,I 

100 DATA 23,23.23.103,103.247.2 
47.23.23. 199. 199. 199. 55. 55. 167. 
135.215, 151 . 244. 244.51 

A tabela criada lem 672 bytes. Cada 
valor na linha DATA 100 corresponde 
a um código de cor. que é repetido 32 
vezes, uma para cada linha do bloco 
gráfico. 

O programa a seguir cria a tabela do 
perfil da encosta: 

10 FOR 1=0 TO 31 

20 HEAD A:POKE -6032+1. A 

30 NEXT 

100 DATA 33.33.35,35.33.35,35.3 
5.33,35,35.33.35.33,35,35.35,35 
,33.35.33,35,35.35.35,33.35.35, 
33,35.35.35 

Cada valor da linha DATA 100 cor- 
responde a uma coluna do desenho. Um 
número 33 significa porção inclinada, e 
um 35, porção plana. 
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UMA AGENDA 
ELETRÔNICA(l) 



Com nosso programa para calendário 
e agenda, você poderá planejar seus 
compromissos diários e manter um 
registro de datas especiais. Aproveite 
a oportunidade e organize-se! 

Você é daquele tipo de pessoa que 
sempre se esquece do aniversário da es- 
posa ou só se lembra da hora marcada 
no dentista quando já é tarde demais? 
Ou, ainda, que se assusta ao descobrir 
que uma conta de luz está vencida há 
mais de um mês? 

O programa que apresentamos neste 
artigo cuidará de todos os seus compro- 
missos. Com ele, você não terá mais des- 
culpas para faltar a encontros ou deixar 
dc pagar suas contas na data certa. Ten- 
do uma impressora, você poderá, inclu- 
sive, fazer uma cópia da agenda em pa- 
pel, para consultá-la sempre que estiver 
longe do computador. 



CALENDÁRIO AUTOMÁTICO 



Este programa coloca à sua disposi- 
ção um calendário ou uma agenda. A 
primeira opção é a mais simples: mos- 
tra um calendário para qualquer mês 
dos anos de 1753 a 29999. A apresenta- 
ção do calendário é a usual, com os dias 
da semana no topo e os dias do mês 
abaixo. O programa leva em considera- 
ção, automaticamente, os anos bissex- 
tos, e indica a data do domingo de Pás- 
coa, no mês correspondente. 

É possível, ainda, imprimir um calen- 
dário para o ano todo — alternativa es- 
pecialmente útil se você pretende colocá- 
lo em sua escrivaninha ou pendurá-lo 
na parede. 
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A AGENDA ELETRÔNICA 



Nossa agenda permitirá que você or- 
ganize melhor seu dia-a-dia, mantendo 
um registro de todos os seus compromis- 
sos. As entradas são feitas sob quatro 
títulos — Finanças, Encontros, Celebra- 
ções e Feriados — , o que torna mais fá- 
cil encontrar um determinado tipo de in- 
M formação. 



É muito simples dar entrada à infor- 
mação e, como vantagem adicional, o 
programa requer um único registro dos 
eventos regulares. Assim, aniversários e 
contas a pagar podem ser anotados uma 
só vez, no dia correto, em todos os me- 
ses ou anos subsequentes. Quando se di- 
gita um dado de Finanças, por exemplo, 
o programa pergunta se o evento é úni- 
co (apenas para aquela data específica), 



mensal, trimestral ou anuai. Se você es- 
tá entrando dados sobre um pagamen- 
to mensal, apenas digite M para men- 
sal, em seguida o nome ALUGUEL e, 
finalmente, o dia do vencimento. A pa- 
lavra ALUGUEL aparecerá naquele dia 
em todos os meses seguintes. 

A opção Celebrações inclui datas co- 
mo aniversários de nascimento, casa- 
mento, enfim, todo evento que tenha 
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_ CALENDÁRIO MENSAL ■ FINANÇ AS, ENCONTROS , 

CÁLCULO DE UM EVENTO CELEBRAÇÕES E FERIADOS 

CALENDÁRIO AN UAL ■ COMO USAR A AGENDA 

AGENDA DIÁRIA ■ PRIMEIRA PARTE 

REGISTRO DE EVENTOS DO PROGRAMA 




ocorrência anual. Os Encontros e Feria- 
dos são tratados como eventos únicos. 

Grave os dados logo depois de entrá- 
los, usando a opção GRAVAR, para 
evitar que alguma informação se perca. 
Eles são armazenados em um arquivo à 
parte, chamado DIÁRIO, e podem ser 
carregados, corrigidos ou apagados a 
qualquer momento, o que torna muito 
fácil a aiualização da agenda. 



O USO DO PROGRAMA 



Depois de digitar alguns dados, você 
poderá observar o funcionamento da 
agenda. Se teclar o número do mês e 
ano, verá todas as entradas para aquele 
mês, incluindo compromissos financei- 
ros ou celebrações levadas de um mês a 
outro pelo programa. 

As entradas são agrupadas nas dife- 
rentes categorias, Antes de exibir deter- 
minado grupo na tela, o programa es- 
pera que uma tecla seja pressionada. 
Dessa maneira, nenhuma entrada será 
retirada sem que você possa vê-la. Se 
dispuser de uma impressora, copie to- 
das as entradas em papel, sempre que as- 
sim julgar necessário. 

Se você decidir voltar à opção de ca- 
lendário e apontar o mesmo mês, pode- 
rá destacar as datas correspondentes a 
compromissos na agenda pressionando, 
para cada uma das categorias, as teclas 
$, E, C ou F. 

A escolha de uma ou de outra opção 
do programa depende daquilo que se 
quer encontrar. Se você pretende exami- 
nar a programação para um determina- 
do mês, a escolha mais adequada será 
a da agenda. Mas você pode precisar ex- 
clusivamente de informações sobre os 
eventos financeiros do ano, para fazer 
um planejamento. Nesse caso, será me- 
lhor selecionar o calendário para um dos 
meses, destacar os compromissos co- 
merciais teclando $, passar para o mês 
seguinte e repetir a operação até com- 
pletar o período desejado. 

Como você verá, nosso programa é 
muito versátil. Você descobrirá várias 
outras possibilidades tão logo comece 
a usá-lo. 



Dividimos o programa em três par- 
tes, A primeira, que apresentamos a se- 
guir, contém várias rotinas e a tela do 
menu principal. As outras duas partes, 
incluindo instruções mais detalhadas de 
como usar 9 programa, serão dadas em 
artigos futuros. 

Não se esqueça de que deve gravar es- 
ta parte do programa para acrescentá- 
la às próximas. 



10 DATA 2.4,1,3,7,31,26,31.30 

,31,30,31,31.30,31.30,31 

20 DATA •MENS",'TRIM","ANUA', 

"UNIC" 

30 BORDER 0: PAPER 0: INK 7: 
CLS 

40 CLS 

50 CLEAR I LET P-2 
60 LET Z9-" 

70 DIM 03(1,31) : DIK Q (4) : 
DIM LS(4,150,31) : DIM TS14.12 
) r DIM C<4> : DIM 2(5) 
80 FOR n-1 TO 5: READ Z(n) ! 
NEXT n 

90 DIM DU2) : FOR n-1 TO 12: 

READ D(n) : NEXT n 
100 LET MS"" Janeiro Fevereiro 
Marco Abr 11 Maio Jun 
ho Julho Aooato Setesb 
ro Outubro Novembro Dezembro 

110 LET ■ S-"Do»SegTerQua0.ulSex 
Sab" 

120 DIM PSÍ4.4): FOR n-1 TO 4: 

READ P3(n) : KEXT n 

130 LET TS (1) -"Financao" : LET 

TS (2) -"Aponta«entoo" : LET TSÍ3 

)-"Celebracoea": LET TS(4)-"Fe 

nados" 

'140 DEF FN M<A)-((A/K2-INT (A/ 
K2) )"K2) 

150 LET SV-0: LET MO-0: LET DA 
-0 



170 CLS : GOSUB 990: CLS ! LET 
P-2 

180 IF C-l THEN GOSUB 760 
190 IF C-2 THEN GOSUB 1760 
200 IF C-3 THEN GOSUB 2240 
210 IF C>3 AND C<8 THEN LET K 
B-C-3: GOSUB 1140: LET SV-1 
220 IF C-8 THEN GOSUB 1610: 
LET SV-0 

230 IF C-9 AND SV-1 THEN 
PRINT : PR TNT "VOCE NAO GRAVOU 
AS ALTERAÇÕES" "CONFIRMA A SA 
IDA ?": LET K9-"«n" : GOSUB 
14B0: IF KB-2 THEN LET C-0 
240 IF C<>9 THEN GOTO 170 
250 CLS : PRINT "ADEUS !" 
260 STOP 

270 LET MX-0: LET A2-0 

280 LET K2-4: IF FN M(YR)-0 

THEN LET A2-1 

290 LET K2-100: IF FN M(YR)-0 
THEN LET A2-0 
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300 LET K2-400: IF FN M(YR)-0 ■ 
THEN LET A2-1 

310 IF KB-2 THEN LET MX-A2+28 
320 IF KB-0 THEN LET KB-1 
330 IF KB<>2 THEN LET MX-D (KB 

) 

340 LET KB-HX: RETURN 
350 LET RS-0 

360 IF DA- DE AND MO-ME AND KB- 
5 THEN LET KB-5: RETURN 
370 IF KB-5 THEN LET KB-7 : 
RETURN 

380 LET RS-Z(KB) 

390 IF Q(KB)-0 THEN GOTO 450 

400 LET M4-Q(KB) 

410 FOR 1-1 TO M4 

420 LET K3-LSÍKB.I): LET K2-3: 

GOSUB 470: IF VAL KS<2 TO 3)<> 

DA THEN LET K2-0 

430 IF K2"l THEN LET KB-7: 

RETURN 

440 NEXT I 

450 LET XB-RS 

460 RETURN 

470 IF KBOl THEN GOTO 520 
460 IF VAL K3(l)-3 THEN GOTO 
540 

490 IF VAL K$(l)-4 THEN GOTO 



530 

500 IF VAL K$(l)-1 AND VAL K3 ( 
2 TO 3) -DA THEN LET K2-1 : 
RETURN 

510 IF VAL K3(l)-2 AND FN M<(( 
(YR-VAL KS(6 TO 9))»12)+(12- 
VAL KS(4 TO 5))*MO))-0 THEN 
LET K2 = l : RETURN 
520 IF KB-3 THEN GOTO 540 
530 IF VAL KS{2 TO 3) -DA AND 
VAL KS(4 TO 5) -MO AND VAL K$(6 

TO 9)=YR THEN LET K2-1: 
RETURN 

540 IF VAL K3(4 TO 5)-MO THEN 

LET K2-1 : RETURN 

550 LET K2-0: RETURN 

560 LET Y2-0: LET D2-0 : LET M2 

-0 

570 LET Y2-YR-1 

580 LET D2-Y2*365*INT (Y2/4J- 

INT (Y2/100)+INT (Y2/400) 

590 IF MO-1 THEN GOTO 630 

600 FOR »-l TO MO-1 

610 LET KB-b: GOSUB 270: LET D 

2-D2+KB 

620 NEXT ■ 

630 LET KB-D2+DA: RETURN 
640 LET MS-MO: LET DS-DA 



650 LET DA-1: LET MO-3: GOSUB 
560: LET K2-7: LET DE-FN M (KB) 
660 LET N2-UNT (YR/100) ) -16: 
LET C2-3+N2-INT ( (N2+1 ) /3) -INT 
(N2/4) 

670 LET K2-19: LET N2*FN M (YR+ 
1): LET K2-30: LET D2-FN MCC2+ 
(N2*19) ) 

6B0 IF N2>11 AND D2<27 THEN 

LET D2-D2-1: GOTO 700 

690 IF N2011 AND D2-29 THEN 

LET D2-2B 

700 LET D2-D2+21 

710 LET D2=D2+1: LET K2 = 7: IF 

INT (FN M[D2+DE)+0.1)Ol THEN 

GOTO 710 

720 IF D202 THEN LET ME-3 
730 IF D2>-32 THEN LET D2-D2- 
31 i LET ME-4 

740 LET DE-INT (D2+0.1): LET M 
O-MS: LET DA-DS 
750 RETURN 

760 GOSUB 2510: GOSUB 24B0 

770 CLS 

780 LET MK-5 

790 CLS 

800 PRINT AT 17.0: *<BREAK> ret 
BIO PRINT "Teclae z.x altera» 




840 PRINT AT 0,0; 

850 GOSUB 2570: IF MK<5 THEN 

PRINT T$ |MK) 

860 PRINT fP: LET KB-1: GOSUB 
1920 

870 IF P-3 THEN PRINT tP 
B80 PRINT IP: LET T2-MK: LET 3 
2-1: GOSUB 2020 
890 LET P-2 

900 LET K8-"íXfacf ": GOSUB 

1480: LET A-KB 
910 IF A-l THEN LET MO-MO-1 
920 IF A-2 THEN LET MO-MO+1 
930 IF MO' 11 THEN LET MQ--1 
LET YR-YR+1 : GOSUB 640 
940 IF MO-0 THEN LET MO-12: 
LET YR-YR-1: GOSUB 640 
950 IF A>2 AND A<7 THEN LET 
MK-A-2 

960 IF A<3 THEN LET MK-5 
970 IF AO 7 THEN GOTO 790 
980 RETURN 

990 CLS : PRINT PAPER 5; INK 
1;AT 0,5;" CALENDÁRIO L DIÁRIO 
■; PAPER 6; INK 0;AT 2,7;" MEN 
U PRINCIPAL * 

1000 FOR Z-l TO 19: PRINT PAPE 

R 1 

* ; NEXT Z: PRINT AT 3, 0 
1010 PAPER 1: INK 7 
1020 PRINT AT 4,1;"1- Consultar 

calendário nensal" 
1030 PRINT AT 6,1;"2- Consultar 

calendário anual" 
1040 PRINT AT 6,1;"3- Consultar 
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1050 PRINT AT 10.1 
itar Finanças" 
1060 PBINT AT 12.1 
i tar Apontamentos" 
1070 PBINT AT 14.1 
itar Celebrações" 
1080 PBINT AT 16.1 
itar Feriados" 
1090 PBINT AT 18,1 
s listas" 

1100 PBINT AT 20,1 



U 



10 CLS 

20 CLEAR 5000 

30 DIM LIS ( 3 . 150 ) . TYS ( 3) .CO (4) 
40 DMS-"31283130313031313031303 
1" 

50 MNS-"JANEIRO FEVEREIROMARCO 

ABRIL MAIO JUNHO 
JULHO AGOSTO SETEMBRO OUTU 
BRO NOVEMBRO DEZEMBRO " 
60 DNS-"DOMSEGTERQUAQUISEXSAB" 
70 PAS""MENSTRIMANUAUNIC* 
80 TYS(0)-"F1NANCAS':TYS(1)-"EN 
CONTROS" : TYS (2) ■ "CELEBRAÇÕES" :T 
YS(3)-"FERIADOS" 

90 DEF FNM(A)-INT< ( A/K2- INT ( A/K 
2))*K2+0.S)«SGN<A/K2) 
100 SV-0:P-0:MO-0:DA-0 
110 PBINT e256."HA ALGUMA LISTA 

DE DAOS GRAVADA? (S/N) " 
120 BEM 

130 CLS:GOSUB 1030:CLS:P-0 

140 IF C-l GOSUB 770 

150 IF C-2 GOSUB 2010 

160 IF C-3 GOSUB 2460 

170 IF C>3 AND C<8 THEN KB-C-4 : 

GOSUB 1180;SV-1 

180 IF C-B GOSUB 1730:SV-0 

190 IF C-9 AND SV-1 THEN PBINT : 

PRINT"VOCE NAO GRAVOU AS ALTEBA 

COES" : PBINT"CONFIRMA A SAÍDA?": 

KBS-*SN" :GOSUB 1590: IF KB-2 THE 

N C-0 

200 IF C<>9 THEN 120 
210 CLS:PRINT" ADEUS 1" 
220 END 

230 ' COMPRIMENTO DO MES 
240 MX-0:A2-0 

250 K2-4:IF FNM ( YB) »0 THEN A2-1 
260 K2-100:IF FNM(YR)-Q THEN A2 
-0 

270 K2-400:IF FNM ( YR) -0 THEN A2 
-1 

280 IF KB-2 THEN MX-A2+28 

290 IF KB02 THEN MX-VAL (MID3 (D 

HS.KB*2-1.2)) 

300 KB"MX : RETUBN 

310 'CARACTER DECISÓRIO 

320 A3S-":N3-0:F3-0:M3-0 

330 IF P-2 THEN RS"32:GOTO 460 

340 IF KB-5 AND MO- HE AND DA'DE 

THEN RS-191 :GOTO 460 
350 IF KB-5 THEN BS-143:G0TO 46 




3B0 N3-N3+1 

390 A3S-LIS(KB,N3) 

400 IF MIDS(A3S,2.1)-"" THEN D- 

0 ELSE D-ASC(MIDS(A3S.2,1)> 

410 IF DO DA THEN 430 

420 KBS-A33:G0SUB 470:F3-K2 

430 IF NOT(F3-l OB N3>M3) THEN 3 

70 

440 IF F3-0 THEN BS-32:GOTO 460 

450 N3-159+16*KB-RS-N3 

460 KB"RS : RETURN 

470 'CONFERIR ITEM NO MES 

480 T4-0:Y4-0:F4-0 

490 T4-ASC ÍMIDS (KBS . 1. 1)) 

500 Y4-ASC(MIDS(KBS.3.1>) 

510 M4-(Y4 AND 15) 

520 Y4-(FIX(Y4/16)*17)«100+ASC( 

MIDS(KBS.4,1J) 

530 IF Y4>YH THEN K2"0 : RETURN 
540 K2-3:IF(T4-1 AND M0>-M4)0R{ 
T4-2 AND FNM(M4-MO)-0)OR(T4-3 A 
ND M4-M0)OR<T4-4 AND M4-M0 AND 
Y4-YR) THEN F4-1 
550 K2-F4 : RETURN 
560 ' NUMERO DO DIA 
570 YX-O:D2-0:M2-0 
580 Y2-YR-1 

590 D2-Y2*365+FIX(Y2/4) -FIXÍY2/ 

100)+FIX(Y2/400) 

600 IF MO-1 THEN 640 

610 FOR M2-1 TO MO-1 

620 KB-M2:GOSUB 230:D2-D2+KB 

630 NEXT 

640 KB-D2+DA: RETURN 



660 N2-0 : C2-0 : D2-0 
670 MS-M0:DS-DA 

680 DA-1 :MO-3 :GOSUB 560:K2-7:DE 
=FNM (KB) 

690 N2-FIX (YR/100) -16 : C2-3+N2-F 

IX ( (N2+l)/3)-FIX(N2/4) 

700 K2-19:N2-FNH(YR+1) :K2-30:D2 

-FNM(C2+(N2«19)) 

710 IF N2>11 AND D2<27 THEN D2- 
D2-1 ELSE IF N2<-11 AND D2-29 T 
HEN D2'28 
720 D2-D2+21 

730 D2=D2*l:K2=7:IF FNM (D2+DE) < 
M THEN 730 

740 IF D2<32 THEN ME-3 ELSE D2- 
D2-31 :ME-4 

750 DE-D2:MO-MS:DA-DS 
760 RETURN 
770 'VER CAL. MES 
780 BEM 

790 GOSUB 2750:GOSUB 2720 
800 CLS 

810 PBINT" SETAS UP/DOWN ALTERAM 
MES" 

820 PRINT"USE clear PARA VOLTAR 

AO MENU" 
830 PRINT: PRINT CHRS t 159) j TYS (0 
) i " (3) " . CHRS (175) :TVS(D 
840 PRINT : PRINT CHRS (191) ; TYS (2 
) ,CHR3(207) ;TY3(3) 
850 PRINT ] PRINT" QUALQUER TECLA 
PARA CONTINUAR" 
855 IF INKEY8-"" THEN 855 
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860 MK-S 
870 REM 
880 CLS 

890 GOSUB 2820: IF MK<4 THEN Pfil 
NT §19.TYS<MK) 

900 PRINT *-P: KB-1 :GOSUB 2150 

910 IF P-2 THEN PRINT |-P 

920 PRINT|-P:T2-MK:S2-l:GOSUB 2 

240 

930 P-0 

940 KB3-*""+CHRSC10)+"3ECF"+CHR 

3(12):COSUB 1590: A-KB 

950 IF A-l THEN MO -MO- 1 

960 IF A-2 THEN MO-MO+1 

970 IF MO-13 THEN MO-1 : YR-YR+1 : 

GOSUB 650 

980 IF MO-0 THEN MO- 1 2 : YB- YR- 1 : 

GOSUB 650 

990 IF A>2 AND A<7 THEN MK-A-3 

1000 IF A<3 THEN MK-5 

1010 IF A<>7 THEN 870 

1020 RETURN 

1030 ' RETORNO AO MENU 

1040 PRINT ' PROGRAMA CALENDAS 

IO L DIÁRIO ■ :STRINCS (32 , 131 ) 

1050 PRINT TABUS) 1 "«nu" 

1070 PRINT-1- CONSULTAR CALENDA 

RIO MENSAL" 

1080 PRINT'2- CONSULTAR CALENDA 
RIO ANUAL" 

1090 PRINT" 3- CONSULTAR DIÁRIO" 
1100 PRINT"4- REVER/EDITAR FINA 
NCAS" 

1110 PRINT"5- REVER/EDITAR ENCO 
NTROS" 

1120 PRINT"6- REVER/EDITAR CELE 
BRACOES" 

1130 PRINT" 7 - REVER/EDITAR FERI 
ADOS" 

1140 PRINT-8- GRAVAR AS LISTAS" 
1150 PRINT"9- SAIR DO PROGRAMA" 
1160 PRINT : PRINT TAB[9);*FACA A 
OPCAO" 

1170 KB3-"123456789" :GOSUB 1590 
: C-KB : RETURN 



10 CLS:COLOR 15.4,4: KEYOFF 

12 CLEAR 70Q0:MAXFILES-3 

15 OPEN "CRT : * FOR OUTPUT AS 13 

20 OPEN "LPT : * FOR OUTPUT AS 12 

30 DIM LI3(3,150) ,TY3(3) ,CO(4) 

40 DM3-*31283130313031313031303 

50 MN3- " JANEIRO FEVEREIROMARCO 

ABRIL MAIO JUNHO 
JULHO AGOSTO SETEMBRO OUTU 
BRO NOVEMBRO DEZEMBRO " : ' O nd 
■aro da eapaçoo deve coapletar 
9 caractere» para cada afa 
60 DN9-"DOMSEGTERQUAO.UISEXSAB" 
70 PA3-*aenetriaanuauntc" 
80 TY3(0)-"Fin*nçsa":TYS(l)-"Kn 
controe" :TY9(2)-"Celabraç8es" :T 
Y3 (3) -"FanadoB- 

90 DEF FNM(A)-INT{[A/K2-INT(A/K 

2) ) *K2+. 5)*SGNÍA/K2) 

100 SV-O: P-0: MO-0 :DA-0 

110 LOCATE l,5:PRINT"Você te» 1 

lataa da dados? (S/N) " i 



120 REM 

130 CLS: GOSUB 1030:CLS:P-3 
140 IF C-l THEN GOSUB 770 
150 IF C-2 THEN GOSUB 2010 
160 IF C-3 THEN GOSUB 2460 
170 IF C>3 AND C<8 THEN KB-C-4 : 
GOSUB 11B0:8V-1 

180 IF C-8 THEN GOSUB 1730:SV-0 
190 IF C-9 AND SV-1 THEN PRINT : 
PRINT"VocS não gravou as ultima 
8 alterações !": PRINT"Conf ima a 

■aída? (S/N)": :KBS-"SN":GOSUB 
1590:IF KB-2 THEN C-0 
200 IF C09 THEN 120 
210 CLS:CLOSE:PRINT"Atí logo... 

220 END 

230 ' Taaanho do «Ca 
240 MX-0:A2-0 

250 K2-4:IF FNM ( YR) -0 THEN A2-1 
260 K2-100:IF FNM (YR) -0 THEN A2 
-0 

270 K2-400:1F FNM ( YR) -0 THEN A2 
-1 

280 IF KB-2 THEN MX-A2+2B 
290 IF KB<>2 THEN MX-VAL (MIDS (D 
MS . KB* 2-1.211 
300 KB-MX: RETURN 
310 ' Marcar dia de coipronseo 
320 A33-"":N3-OiF3-0:M3-0 
330 IF P-2 THEN RS-32:G0TO 460 
340 IF KB-5 AND MO-ME AND DA-DE 
THEN RS-42:GOTO 460 



350 IF K8-5 THEN RS-32:GOTO 460 
360 M3-VAL (LIS ÍKB.O) ) 
370 REM 
380 N3-N3+1 
390 A33-LI3(KB,N3) 
400 IF MID3(A3S,2.D-"" THEN D- 
0 ELSE D-ASC(MID3<A3S.2.1>> 
410 IF DO DA THEN 430 
420 KB3-A3S : GOSUB 470:F3-X2 
430 IF NOT (F3-1 OR N3>M3) THEN 
370 

440 IF F3-0 THEN RS-32:GOTO 460 

450 RS-62 

460 KB-RS: RETURN 

470 ' Procura por ítea es aês 

480 T4-Q:Y4-0rF4-0 

490 T4-A3C(MID9{KB5.1.D) 

500 Y4-ASC(MIDS(KB8,3,1)) 

510 M4- (Y4 AND 15) 

520 Y4-(FIX(Y4/16)*17)«100+ASC( 

MIDS ( KBS .4.1)) 

530 IF Y4>YR THEN K2-0 r RETURN 

540 K2-3:IF (T4-1 AND MO-M4) 0 

R <T4-2 AND FNM (M4 -MO) -0) OR (T 

4-3 AND M4-M0) OR (T4-4 AND M4- 

MO AND Y4-YR) THEN F4-1 

550 K2-F4 : RETURN 

560 ' Det mlaero do dia 

570 YX-0:D2-0:M2-O 

580 Y2-YH-1 

590 D2-Y2«365+FIX(Y2/4)-FIX(Y2/ 

100)+FIX(Y2/400) 

600 IF MO-1 THEN 640 
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610 rOB M2-1 TO MO-1 

620 K8-M2:GOSUB 230:D2-D2+KB 

630 NEXT 

640 KB-D2*DA : BE TUR N 

650 ' Encontrar o dia de Páscoa 

660 N2-0:C2-0:D2-0 

670 M9-MO-D9-DA 

660 DA-1 :M0- 3 : GOSUB 5>60:K2-7:DE 

-FNM(KB) 

690 N2-FIX(YR/100)-16:C2-3+N2-F 

IX((N2+l)/3)-FIX(N2/4) 

700 K2-19:N2-FNM(YB+1) :K2-30:D2 

-FNM(C2+ (N2»19)) 

710 IF N2>11 AND D2<27 THEN D2- 
D2-1 ELSE IF N2-C-11 AND D2-29 T 
HEN D2-2S 
720 D2-D2+21 

730 D2-D2+1:K2-7:IF FNM (D2+DE) < 
>1 THEN 730 

740 IF D2<32 THEN HE-3 ELSE D2- 
D2-31 :ME-4 

750 DE-D2:MO-MS:DA-DS 
760 RETUBN 

770 ' Consulta calend mensal 
780 BEM 

790 GOSUB 2750:GOSUB 2720:MK-5 

SOO CLS: LOCATE 0,20 

810 PBINT"<- e -> «udaii o aia * 

820 PHINT"<esc> volta ao »enu"i 
830 PBINT" 3 : " ; TY9 (0) . "E : " ; TYS (1 

í 

840 PRINT-C:"iTY9(2) ,"F:";TYS(3 

) 

850 LOCATE 0.0 
860 BEM 
870 BEM 
860 BEM 

890 GOSUB 2820 :IF MK<4 THEN LOC 

ATE 3,2:PRINTTY9(MK) 

895 REMI F P-2 THEN LPBINT 

900 PRINTIP. :KB-l:GOSUB 2150 

910 IF P-2 THEN LPBINT 

920 PRINT»P, :T2-MK:S2-l:GOSUB 2 

240 

930 P-3 

940 KBS-CHBS(29)+CHBSÍ2B)+"SECF 

"+CHB9(27) :GOSUB 1590:A-KB 

950 IF A-l THEN MO-MO-1 

960 IF A-2 THEN M0-M0+1 

970 IF MO-13 THEN MO-1 : YH-YB+1 : 

GOSUB 650 

960 IF MO-0 THEN MO-12 : YB- YB- 1 : 

GOSUB 650 

990 IF A>2 AND A<7 THEN MK-A-3 
1000 IF A<3 THEN MK-5 
1010 IF AO 7 THEN 800 
1020 BETUBN 

1030 ' Menu devolve escolha em 
KB 

1040 LOCATE 10 , 0 : PRINT"CALENDABI 
O E DIÁRIO" 

1050 PBINT : PBINTTAB ( 16) ;"Menu 
1060 PBINT 

1070 PBINT-1- Consultar calendd 
rio mensal ' 

1080 PBINT : PBINT" 2- Consultar c 

alendario anual' 

1090 PBINT:PBINT"3- Consultar d 

tino" 

1100 PBINT ! PBINT"4- Bever/edita 
r finanças" 



1110 PBINT:PBINT"5- Bever/edita 

1120 PBINT:PBINT"6- Bever/edita 
r celebrações" 

1130 PBINT:PBINT"7- Bever/edita 
r feriados" 

1140 PBINT:PBINT"8- Gravar as 1 
istas" 

1150 PBINT:PBINT"9- Fia de prog 

1160 PBINT : PBINTTAB (9) : "Escolha 

1170 KB5--123456789" :003UB 1590 
: C- KB I BETUBN 

SE 

10 HOME 

30 DIM LISO, 150) ,TYS(3) ,CO(4) 

40 DM9 - "312831303130313130313 
031" 

50 MNS - "JANEIRO FEVEREIROMAR 
CO ABBIL MAIO JUNHO 

JULHO AGOSTO SETEMBRO OU 
TUBBO NOVEMBRO DEZEMBRO ' 
60 DNS - "DOMSEGTERQUAQUISEXSAB 

70 PAS - "MENSALTB I MES ANUAL UNI 
CO -:DS " CHBS (131 + CHB9 (4 
) 

80 TY3(0) - "FINANÇAS" ; TYS (1 ) - 
"ENCONTB0S":TYS(2> - "CELEBBAC 
0ES":TY9(3) - "FEBIADOS" 
90 DEF FN M (A) - INT { í A / K 
2 - INT (A / K2)) * K2 + .5) * 

SGN (A / K2) 
100 SV - 0:P - 0:MO - 0:DA - 0 
110 VTAB 8; PR INT "VOCÊ TEM LI 
STAS DE DADOS? (S/N) "; 
120 BEM 



130 HOME : GOSUB 1030: HOME : P" 

- 0 

140 IF C - 1 THEN GOSUB 770 
150 IF C - 2 THEN GOSUB 2010 
160 IF C - 3 THEN GOSUB 2460 
170 IF C > 3 AND C < 8 THEN KB 

- C - 4: GOSUB I180:SV - 1 
180 IF C - 8 THEN GOSUB 1730: 
SV - 0 

190 IF C - 9 AND SV - 1 THEN 
PBINT : PBINT "VOCÊ NAO GRAVOU 
AS ALTEBACOES i " ! PBINT "CONFIEM 
A A SAÍDA? (S/N)*:KB9 - "SN": G 
OSUB 1590: IF KB - 2 THEN C - 0 

200 IF C < > 9 THEN 120 

210 HOME : PBINT "ATE LOGO..." 

220 END 

230 BEM DURAÇÃO DO MES 

240 MX - 0:A2 - 0 

250 K2 - 4: IF FN M (YR) - 0 TH 

EN A2 - 1 

260 K2 - 100: IF FN M ( YR) - 0 
THEN A2 - 0 

270 K2 - 400: IF FN M (YR) - 0 
THEN A2 - 1 

2B0 IF KB - 2 THEN MX - A2 + 2 
8 

290 IF KB < > 2 THEN MX - VA 
L ( MID9 (DM9. KB * 2 - 1.2)) 
'300 KB - MX: RETUBN 
310 REM CARACTER MARCADOR 
320 A3S - "":N3 - 0:F3 - 0:M3 - 
0 

330 IF P - 2 THEN BS - 32: GOT 
O 460 

340 IF KB - 5 AND MO - ME AND 
DA - DE THEN RS - 42: GOTO 460 
350 IF KB - 5 THEN RS - 32: GO 
TO 460 




IIIIIIIIIH 
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360 M3 - VAL (LIS(KB.O)) 

370 BEM 

380 N3 - N3 + 1 

390 A38 - LI3(KB,N3) 

400 IF MIDS (A3S.2.1) - "" TH 

EN D = 0 

405 IF MIDS (A3S.2.1) < > 
THEN D - ASC ( MIDS (A33.2.1) 

) 

410 IF (D < > DA) THEN 430 
420 KBS - A3S: GOSUB 470:F3 - K 



750 DE - D2iMO - M8 : DA - D3 
760 RETURN 

770 BEM CALENDÁRIO MENSAL 
7B0 BEM 

790 GOSUB 2750: GOSUB 2720:MK 
- 5 

800 HOME 

BIO VTAB 21: PBINT "<- ->! MUD 
A O MES " ; 
820 PRINT *<ESC> - MENU" 
PRINT "3:"TY3(0) . " E : 



2 

430 IF NOT (F3 - 1 OB N3 > M3 
) THEN 370 

440 IF F3 - O THEN BS ■ 32: GO 

TO 460 

450 BS - 62 

460 KB - BS: RETURN 

470 REM VEBIFICA ITEM EM MES 

480 T4 - 0:Y4 ■ 0 i F4 - 0 

490 T4 ■= ASC ( MIDS (KBS, 1,1)) 

500 Y4 - ASC [ MIDS (KBS ,3,1)) 

:T - Y4 

510 Y4 = ( INT ( ABS (Y4 / 16)) 
+ 17) * 100 + ASC { MIDS (KBS 
,4,1)) 

520 M4 - T - ( ( INT <Y4 / 100) 
- 17) * 16) 

530 IF Y4 > YR THEN K2 - 0: RE 
TURN 

540 K2 ■ 3: IF <T4 - 1 AND { (Y4 
< YR) OB (MO > ■ M4 AND Y4 = 

YR))) OR (T4 - 2 AND FN M(M4 - 
MO) - 0) OR (T4 - 3 AND M4 - M 

O) OB (T4 - 4 AND M4 - MO AND Y 

4 = YR) THEN F4 - 1 

550 K2 ■ F4: RETUBN 

560 BEM NUME BO DO DIA 

570 YX - 0:D2 - 0:M2 - 0 

580 Y2 - YR - 1 

590 D2 - Y2 * 365 + INT ( ABS 

(Y2 / 4)) - INT ( ABS (Y2 / 10 

0)) + INT ( ABS (Y2 / 400)) 

600 IF MO ■ 1 THEN 640 

610 FOR M2 - 1 TO MO - 1 

620 KB - M2: GOSUB 230:D2 - D2 

+ KB 

630 NEXT 

640 KB - D2 + DA: BETUBN 

650 REM DATA DA PÁSCOA 

660 N2 - 0:C2 - 0:D2 - 0 

670 MS - MO:DS - DA 

680 DA - l:MO - 3: GOSUB 560 : K2 

- 7:DE - FN M (KB) 

690 N2 - INT ( ABS (YR / 100)) 

- 16C2 - 3 + N2 - INT ( ABS 
((N2 * 1) / 3)) - INT ( ABS (N 
2/4)) 

700 K2 - 19:N2 - FN M ( YB + 1) : 
K2 - 30:D2 - FN M(C2 ♦ (N2 « 1 
9)) 

710 IF N2 > 11 AND D2 < 27 THE 

N D2 - D2 - 1 : GOTO 720 

715 IF N2 < - 11 AND D2 - 29 

THEN D2 - 2B 

720 D2 - D2 + 21 

730 D2 - D2 + 1:K2 - 7: IF FN 

M(D2 + DE) < > 1 THEN 730 

740 IF D2 < 32 THEN ME - 3 : GO 

TO 750 

745 D2 - D2 - 31:ME - 4 



B30 

) 



840 PRINT *C: *TYS(2) . 



TYS (1 
'TYS (3 



990 



850 REM 
855 REM 
670 BEM 

B80 PBINT DSi"PRI"iP: VTAB 1: 
HTAB 1 

890 GOSUB 2820: IF MK < 4 THEN 
HTAB 20: VTAB l: PRINT TYS (MK 

) 

900 PBINT : PBINT : KB - li GOS 
UB 2150 

910 IF P ■ 1 THEN PBINT 

920 PBINT iT2 - MKiS2 - 1: GOS 

UB 2240 

930 P - 0: PBINT DSi"PR|";P 
940 KBS - CHR3 (8) + CHRS (21 
) + "SECF" + CHRS (2?) ! GOSUB 
1590:A - KB 

950 IF A = 1 THEN MO = MO - 1 
960 IF A - 2 THEN MO - MO + 1 
970 IF MO - 13 THEN MO - 1:YR 
- YR + 1: GOSUB 650 
980 IF MO - 0 THEN MO - 12:YR 
■= YR - 1: GOSUB 650 

IF A > 2 AND A < 7 THEN MK 
3 

1000 IF A < 3 THEN MK = 5 
1010 IF A < > 7 THEN BOO 
1020 BETUBN 

1030 BEM MENU DEVOLVE ESCOLHA 
EM KB 

1040 INVERSE : PBINT TAB ( 4)" 
PROGRAMA DE CALENDÁRIO E DIÁRIO 

■ : NOBMAL 
1050 PBINT : PRINT TAB { 18) "M 
ENU" 

1060 PBINT 

1070 PBINT TAB ( 6);"1:-VEB CA 
LENDÁRIO MENSAL" 
1080 PRINT : PRINT TAB ( 8). 
:-VER CALENDÁRIO ANUAL" 
1090 PRINT : PRINT TAB ( 8) 
:-VEB DIÁRIO" 

1100 PRINT : PBINT TAB ( B) 
; -REVER/EDITAR FINANÇAS" 
1110 PBINT : PBINT TAB ( 8) 
: -REVER/EDITAR ENCONTBOS" 
1120 PBINT : PBINT TAB ( B) 
: -REVER/EDITAR CELEBRAÇÕES" 
1130 PRINT : PBINT TAB ( 8) 
: -REVER/EDITAR FERIADOS" 
1140 PRINT ! PBINT TAB ( 8) 
: -GRAVAR AS LISTAS" 
1150 PRINT : PRINT TAB I 8) 
:-SAIR DO PROGRAMA" 
1160 PRINT : PRINT : PRINT 
B( 15) "ESCOLHA " ; 
1170 KBS - "123456789": COSU 
590:C = KB: RETURN 




COMO CALCULAR DATAS 
EM UM PROGRAMA DE CALENDÁRIO 

Um problema sério de programação, 
para quem deseja desenvolver aplica- 
ções que envolvem cálculos de datas 
ou a determinação das funções de um 
calendário universal, é a realização des- 
ses cálculos em BASIC ou outra lingua- 
gem de alto nível. 

Há várias soluções para o problema 
— umas mais fáceis e intuitivas e ou- 
tras mais difíceis, mas que utilizam al- 
goritmos ("truques" matemáticos de 
cálculo! bem compactos. Desenvolvi- 
do o procedimento para todos os tipos 
de cálculo, oiganize-os na forma de 
sub rotinas, que poderão ser usadas 
em diversos programas. 

Esse assunto será tratado em um ar- 



gumas considerações importantes: 

* Teste de datas 

Tenha sempre o cuidado de testar 
a data fornecida pelo usuário, que de- 
verá ser entrada no formato numérico 
(no Brasil. DD/MM/AAAAI. 

Verifique se o número do mês cai 
entre 01 e 1 2 e se o dia do mês cai en- 
tre 1 e o número de dias no mês 128, 
29, 30 ou 311. Pode-se armazenar o 
número de dias para cada més em um 
conjunto de doze elementos, 

Teste, também, se o ano é bissex- 
to. Para isso, basta verificar se ele é di- 
visível exatamente por 4, 

A maneira de testar o ano varia com 
a aplicação. Se se pede ao usuário a da- 
ta atual, por exemplo, pode-se incluir 
na rotina um teste que indique se ela 
é ou não anterior à data de criação do 
programai 

• Tipos de data 

O tipo 6e data que utilizamos 
IDD/MM/AA), chamado de data grego 
riana. é muito inconveniente para en 
trada em computador e para cálculos 
de diferenças de datas. Para colocá-las 
em ordem crescente é preciso alterar 
a ordem dos seus trés elementos; o al 
goritmo de ordenação deve testá-la: 
como AAMMDD. 

Existem outros tipos de data, mais 
racionais. A data ordinal, por exemplo, 
torna bem mais fácil calcular diferen 
ças entre datas. É expressa numa for 
ma como esta: 1 23/1 986 - ou seja, 
dia n,° 1 23 (desde 1 ." de janeirol do ano 
de 1 986, A data ftscal, por sua vez, lf 
va em consideração o número do di 
da semana e o número da semana 
(3/25/1 986 é a terça-feira da 25: 
mana de 1 9861. 
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JMA AGENDA 
IIETRÔN! 



COMO USAR 0 PROGRAMA 



CONSULTE 0 C ALENDÁRIO 



CONSULTE A AGENDA 



DIGITA Ç ÃO DOS PRIMEIROS DADOS 
VERIFIQUE AS LISTAS 



Festividades, aniversários, encontros, 
reuniões... Você costuma esquecer -se 
dos compromissos? Anime-se: com 
a agenda e o calendário eletrônicos 
você nunca mais passará vergonha. 



Carregado na memória o programa 
da lição anterior, digite as linhas aqui 
apresentadas. O computador pergunta- 
rá se alguma lista de dados já foi grava- 
da. Como isso ainda não aconteceu, res- 
ponda N. O programa mostrará então 
o menu principal com nove opções: 

1. Consultar o calendário mensal 

2. Consultar o calendário anual 

3. Consultar a agenda 

4. Rever/editar finanças 

5. Rever/editar encontros 

6. Rever/editar celebrações 

7. Rever/editar feriados 

8. Gravar as listas 

9. Sair do programa 

Pode-se consultar o calendário sem 
digitar nenhum dado previamente. Va- 
mos começar por ele. 



CONSULTE 0 CALENDÁRIO 



Escolha a opção 1 e será possível ver 
o calendário de qualquer mês dentro dos 
limites do programa. A lista de meses é,^ 
na realidade, bastante grande. Ela vai 
de 1753, quando o calendário gregoria- 
no foi adotado na Grâ-Bretanha, até 
29999. O mês deve ser sempre escolhi- 
do pelo número (de 1 a 12) e nào pelo 
nome. 

Se você dispuser de uma impressora, 
pode optar por trabalhar com uma có- 
pia impressa do calendário. Caso con- 
trário, e!e será apresentado apenas na te- 
la. O nome do mês, bem como o ano, 
é mostrado no topo da tela, com os dias 
logo abaixo. A semana começa com o 
domingo, que é colocado na cor verme- 
lha em alguns computadores. A data da 
Páscoa será calculada automaticamen- 
te e mostrada no rodapé, se cair no mês 
escolhido (março ou abril). 

Muitas coisas podem ser feitas duran- 



te a consulta ao calendário mensal. A 
lista de opções aparece no rodapé da tela 
ou na página anterior, conforme o mi- 
cro. Teclar <BREAK>, <ESCAPE> 
ou <CLEAR> levará você de volta ao 
menu principal. Outras teclas permitem- 
Ihe avançar ou retroceder de mês em 
mês. O Spectrum usa as teclas Z e X; 
o TRS-Color, as setas para cima e para 
baixo; e o Apple e o MSX, as setas pa- 
ra a esquerda e para a direita. 

As outras teclas com funções no pro- 
grama são as seguintes: $, que serve pa- 
ra destacar dados referentes a finanças; 
E, utilizada para encontros; C, para ce- 
lebrações, e F, para feriados. Mas nada 
acontecerá até que alguns dados sejam 
introduzidos no computador. 



Assim, escolha a opção adequada a par- 
tir do menu principal. 

Qualquer que seja a opção, tecle A 
para adicionar um dado, D para apagar 
e M para retornar ao menu. 

Como já foi descrito, a seção de fi- 
nanças oferece as opções Mensal, Tri- 
mestral, Anual ou entrada única. Faça 
a opção teclando a letra inicial corres- 
pondente (M, T, A ou U). Em seguida, 
o programa pede que você entre um no- 
me ou frase com um máximo de vime 
letras, e que descreva o evento com sua 
respectiva data. 

Para um dado recorrente, esta seria 
a primeira vez que ele acontece (o pri- 
meiro aluguel pago, por exemplo). O 
programa completa automaticamente os 
meses seguintes com os dados adequa- 
dos. Apontamentos e feriados são tra- 



A opção 3 leva-o para a agenda. Mas, 
antes, é necessário entrar alguns dados. 
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tados como eventos únicos, e celebra- 
ções, como eventos anuais. Use esta op- 
ção para comemorações como aniversá- 
rios de nascimento e de casamento etc. 

Pode-se executar até 1 50 entradas em 
cada categoria. 

Mas, para fazer tudo isso, será pre- 
ciso esperar as rotinas do próximo arti- 
go. Esse artigo apresentará também a 
parte fina! do programa, que permitirá 
gravar, carregar e imprimir dados, con- 
cluindo o processamento. 



165 GOSUB 14B0: IF KB=1 THEN 

GOSIJB 1690 
1120 PAPER 0: INK 7 
1130 LET K3 = " 1234567B9" : GOSUB 
14B0: LET C-KB: RETURN 
1 140 LET KK=KB 
1150 LET KB-KK: GOSUB 1330 
1160 LET B = O.ÍKK): FOR y = 4 TO 20 
: PHINT AT y , 0 ; ?.S : NEXT y: PRIN 
T AT <t,0 

1170 IF 8-0 THEN GOTO 1210 
1180 FOR N=) TO B 
1190 LET KS-I.S IKK.N) : LET K2-N: 
GOSUB 13 70 
1200 NEXT N 

1210 LET KS = "adnT: GOSUB 1480' 
LET A=KB 

1220 FOR 1=1 TO 100: NEXT I 
1 230 IF AOl THEN GOTO 1280 
1240 LET K2-B: LET T7-KK: GOSUB 
1550: LET VS=STR$ T7: GOSUB 14 
00 

1250 LET W5=3TRS DA: IF LEN WS= 
! THEN LET WS="0"+WS 
1 260 LET VS = VS+W$: I.ET U3-STRS 
MO: IF LEN WS = 1 THEN LET WS= 

■0 "+US 

1270 LET V$ = V5 + W$-iSTRS yp, : 
LET LS(KK,n+J)=V3+BS: LET Q 
(KK) =Q(K K] +1 

1280 TF A<>2 THEN GOTO 1310 
1290 INPUT "APAGAR OUAL 
NUMERO (MT N 1 ) " ; NN : IF NN<1 
OR NN>B THEN GOTO 1290 
1300 FOR ?>NN*1 TO B: LET 
LS(KK .Z-L)=LS(KK,Z) : NEXT 
Z: LET U(K K)=0(KK)-l 
1 110 IF AO 3 THEN GOTO 11' 
I 320 HETURN 

1130 PRINT "Lista de Dados 
■TS( KB) 

1340 PRINT AT 0,17; INVER 
SE 1|" S"; INVEH3E 0 i "OMAR 
"1 INVERSE l;"A"; TNVERSE 
0;"PAGAR »| INVEHSE I ; "M" i 
TNVEH3E 0;"ENU" 
1 350 PRINT AT 3,0: 
1360 RETURN 

1370 LET FS = LS (KK , K2) : 
LET E$ = P 2 (VAI. F3< TO 1)) 
+--+FS(2 TO 3)+ ":"+FS(4 
TO 5)+" : ■+F3C6 TO 9) 
1380 PRINT ESi" ":FStl0 
TO 30) 

_ 1390 RETURN 

■ 1400 LET BS="": LET UP=5 



1410 INPUT "Qual o nome ? (Max 

22 letras) " 1 LINE BS 

1420 LET VP=VP-1 

1430 PRINT AT VP , 0 ; - " ; 

1440 INPUT "DATA SIGNIFICATIVA 

:";DA: IF DA<1 OR DA>31 THEN G 

OTO 1430 

1450 GOSUB 2510 

1460 LET KB-HO: GOSUB 270: IF D 

A>KB THEN GOTO 1430 

1470 LET KS-BS: GOSUB 1520: LET 

YS-K3: RETURN 
14B0 LET a$-lNKEYS : IF aS-"" TH 
EN GOTO 1480 

1490 FOR n-1 TO LEN KS : IF aSO 

KS (n) THEN NEXT n 

1500 IF n>LEN K3 THEN GOTO 148 

0 

1510 LET KB-n: RETURN 

1520 LET PP-(INT ( YR/1 .00) -1 7) *1 

6+MO 

1530 LET K2-100: LET QQ-FN M(YH 

) 

1540 LET KS-CHRS PP+CHRS QQ+KS : 
RETURN 

1550 IF T7<>1 THEN GOTO 15B0 



1560 PRINT AT 20,0; INVERSE lr" 
M" ; INVERSE 0:"ENSAL *J INVERSE 
1 j "T" | INVERSE 0 ; "RIME5TRAL "; 
INVERSE li"A"; INVERSE 0;"NUAL 
"| INVERSE 1:"U"; INVERSE 0 ; "N 
ICO" 

1570 LET KS-"mtau": GOSUB 1460: 
PRINT AT 20,0;Z$: PRINT AT .3,0 
;: LET T7-KB: GOTO 1600 
1580 IF T7-3 THEN RETURN 
1590 LET T7-4 
1600 RETURN 

1610 CLS : PRINT FLASH 1 ; AT 10 

,5; "PREPARE O GRAVADOR" 

1620 IF INKEYSO" " THEN GOTO ) 

620 

1630 SAVE "dados" DATA IH) 
1640 FOR N=l TO 4 
1650 IF Q(N)-0 THEN GOTO 1670 
1660 FOR M-l TO t}(N): LET 03(1) 
-LS(N,M): SAVE "dados" DATA OS ( 
) : NEXT M 
1670 NEXT N 
1680 RETURN 

1690 CLS : PRINT AT 10,5; FLASH 

1; "PREPARE O GRAVADOR" 
1700 LOAD "dados" DATA Q() 
1710 FOR N-1. TO 4 
1720 IF Q(N)=0 THEN GOTO 1740 
1730 FOR M-l TO Q(N): LOAD "dad 
DATA 0$<): LET L$ (N , M) = 0$ (1 
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) l NEXT M 
1740 NEXT N 
1 750 RETURN 



U 



115 KBS--SN" :GOSUB 1590 : IF KB-1 

GOSUB 1870 
1180 REM 

1190 N-0:A-O:B-0:KK-KB 
1200 KB"KK : GOSUB 1330 
1210 REH 

1220 POR VU-1 TO 14: PRINT §VU*3 

2:NEXTrPRINT «32.""; 

1230 B-VALtLIS(KK.O)) 

1240 IF B-0 THEN 1280 

1250 FOR N-l TO B 

1260 KBS-LI3ÍKK.N) :K2-N:GOSUB 1 

410 

1270 NEXT 

1280 RBS-"ADM" : GOSUB 1590:A-KB 
1290 IF A=l THEN T7=KK:GOSUB 16 
80:GOSU8 1490 : LIS (KK , B+l ) -CHR3 ( 
T7)+T8S: LIS (KK.O) -MIDS (STRSÍB+l 
> .2) 

1300 IF A-2 THEN INPUT"QUE NUME 
RO";NN:IF NN<1 OR NN>B THEN 130 



0 ELSE FOR PP-NN+1 TO B:LIS(KK. 
PP-l)-LIS(KK.PP) :NEXT:LIS(KK.O) 
-STRS(B-l) 

1310 IF AO 3 THEN 1210 
1320 RETURN 
1330 REM 

1340 PRINT TYS (KB) . "LISTA CORRE 
NTE" 

1350 FOR Y-2 TO 14 
1360 PRINT «Y*32 
1370 NEXT 

1380 PRINT §480 , "aDICIONAR dELE 

TAR mENU- : 

1390 PRINT 832 , "" ; 

1400 RETURN 

1410 'OP 

1420 N2-0:BBS-"":DDS-"":K3-K2 
1430 FOR N2-1 TO 4 : IF MIDStKBS. 
N2,l)-"" THEN CO(N2)-0 ELSE COÍ 
N2) -ASC (MIDS (KBS, N2. 1) ) 
1440 NEXT 

1450 BBS-MIDS(PAS,CO(l)*4-3,4) 
1460 K2-16:DDS-MID$(STflS(CO<2>) 
,2)+" : "+MIDS (STRS (FNM(CO(3) ) ) .2 
)+":"+MID3(STR9((FIX(CO<3)/16)+ 
17) *100+CO(4) ) , 2) 

1470 PRINT MID$(STRS(K3> .2) ; " " 
;BB$:" ";DD$;" " ; RIGHTS (KBS . LEN 
(KBS) -4) 



1480 RETURN 

1490 'ADICIONAR UMA ENTRADA 
1500 B3S-"" :VP-0 

1510 PRINT-A SER CHAMADO? (MAX 
22 LETRAS) * : LINE INPUT B3S 
1520 VP-INTUPEEKU36)*256+PEEK 
U37)-1024)/32) 
1530 PRINT #VP*32,""i 
1540 PRINT "DATA SIGNIFICATIVA 
? " 

1550 INPUT" DIA:";DA:IF DA<1 
OR DA>31 THEN 1530 
1560 GOSUB 2750 
1570 KB-MO:GOSUB230:IFDA>KB 
THEN 1530 

1580 KBS-B3S:GOSUB 1630:T8S 
-KBS : RETURN 
1590 REM 

1600 BS-INKEY$:IF BS-*" 
THEN 1600 

1610 KB-INSTR(1,KB9,BS) : 
IF KB-0 THEN 1600 
1620 RETURN 
1630 REM 
1640 PP=0:QQ-0 
1650 PP-(FIX(YR/100)-17) 
16+MO 

1660 K2-100:QQ-FNM(YR) 
1670 KBS-CHRS(DA)+CHR$( 
PP) +CHRS ÍQQ) +LEFTS (KBS 
, 22) : RETURN 
1680 REM 

1690 IF T7-0 THEN PRINT 
"MENSAL . TRIMESTRAL . ANU 
AL OU ÚNICO* : KBS- "MT AU 
":GOSUB 1590:T7-KB:GOTO 
17 20 

1700 IF T7-2 THEN T7-3: 
GOTO 1720 
1710 T7-4 
1720 RETURN 
1730 REM 
1740 N-0 : P-0 

1750 OPEN"0* ,#-1. "DIÁRIO" 
1760 FOR N-0 TO 3 
1770 M-VAL (LIS <N, 0) ) 
1780 PRINT t-l.LI$(N,0) 
1790 IF M-0 THEN 1840 
1800 FOR P-l TO M 

1810 FOR J=l TO 4:PRINT|-1,STRS 
(ASC (MIDS (LIS (N.P) . J. 1) ) í:NEXTJ 
1820 PRINT »-l .MIDS (LIS (N. P) . 5) 
1830 NEXT P 
1B40 NEXT N 
1850 CLOSE «-1 
1860 RETURN 
1870 REM 

ISSO N=0:P-0:M-0 

1890 OPEN"I". 1-1. "DIÁRIO" 

1900 FOR N-0 TO 3 

1910 LINE INPUT |-1.LIS(N.0) 

1920 M-VAL{LIS(N,0)1 



1950 FOR J-l TO 4:INPUT*-1,NN5: 
LIS(N.P)-LIS(N.P)+CHRS(VAL(NNS) 
: NEXT J 



1960 LINE INPUT 
)-LIS(N.P)+NNS 
1970 NEXT 
19B0 NEXT 
1990 CLOSE t-1 
2000 RETURN 



t-l,NNS:LIS(N,P 
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2010 'CAL. ANUAL 
Z020 M4-0:A4-0 

2030 INPUT*ANO: " ; YR: IF YR<1753 
OB YR>29999 THEN 2030 ELSE GOSU 
B 650 

2040 GOSUB 2720 :CLS 
2050 PR I NT "ANO " ; YR 
2060 IF P-2 THEN PRINT »-2."ANO 
" iYR 

2070 PRINT *-P:KB-0:GOSUB 2150: 

PRINT#-P 

2080 GOSUB 2660 

2090 FOR HO-1 TO 12 

2100 PRINT |-P,MIDS(MNS.MO*9-B, 

9) 

2110 T2-5:S2-0:GOSUB 2240 

2120 IF P-0 AND INKEYS"*" " THEN 

2120 

2130 NEXT 
2140 RETURN 
2150 REM 

2160 X2-0:C2-0:D2-0 

2170 IF KB-0 THEN X2-7 

2180 IF P-2 THEN KB-KB+1 

2190 PRINT |-P,STRING$(X2,32) : 

2200 FOR D2-0 TO 6 

2210 PRINT |-P,STRING3(KB.- ") + 

MIDS(DNS.D2«3+1.3) ; 

2220 NEXT 

2230 RETURN 

ff/i 

115 KBS-"SN" : GOSUB 1590:IF KB-1 

THEN GOSUB 1B70 
1180 ' LISTAR E ATUALIZAR 
1190 N-0:A-O:B-0tKK-KB 
1200 KB = KK : GOSUB 1330 
1210 REM 

1220 FOR VU-1 TO 21:LOCATE O.VU 
: PRINTSPACES ( 38) i :NEXT:LOCATE 0 

, 1 

1230 B-VAHLIS(KK.O)) 

1240 IF B-0 THEN 1280 

1250 FOR N-l TO B 

12b0 KBS-L-IS(KK.N) :K2-N:GOSUB 1 

410 

1270 NEXT 

1280 KB3-"ADM" :GOSUB 1590:A-KB 
1290 IF A-l THEN T7-KK:GOSUB 16 
80 : GOSUB 1490 : LIS (KK , B+l) -CHRS ( 
T7 ) +TBS : I.IS (KK. 0) -MIOS (STR3 {B+l 

) .2) 

1100 IF A=2 THEN INPUT "QUAL NU 

MERO" ; NN : IF NN <1 OR NN>B THEN 

1300 ELSE FOR PP-NN+1 TO B:LIS( 

KK.PP-D-LI3IKK.PP) :NEXT:LIS(KK 

.0) -STR5 (B-l) 

1310 IF AO 3 THEN 1210 

1320 RETURN 

I 330 ' Imprime cabeçalho 

1 i40 PRINTTYSIKB)," Li Bt a de dadna" 

1350 FOR Y-2 TO 21 

1360 LOCATE0.Y:PRINTSPACES(3B); 

1370 NEXT 

1380 LOCATE 5.23: PRINT" Ad Iclona 
t Deletar Menu" ; 
1390 LOCATE 0.1 
1400 RETURN 
1410 1 OP 

1420 N2-0:BBS="" :DDS="" : K3-K2 
14.10 FOR N2 = l TO 4:IF MIDSÍKB3, 
144 N2.1)-"" THEN CO(N2)-0 ELSE CO ( 



N2) =ASC (MIDS (KBS . N2 . 1 ) ) 
1440 NEXT 

1450 BBS = MID$(PAS.CO(l)M-3.4) 
1460 K2=16:DDS-MIDS(STRS<CO(2)) 
. 2)+" : "+MIDS<STRS(FNM(CO(3) ) ) . 2 
) +" : "+MIDS(STRS( (FIX (CO (3) 716) + 
17)*100+CO<4)> ,2) 

1470 PRINTMID3(STRS(K3) .2) i" "i 
BBS;" "jDDSi" " ; RIGHT3 (KBS , LEN ( 
KBS) -4) 
1480 RETURN 

1490 ' Adiciona um dado 

1500 B3S-" :VP-0 

1510 PRINT-Rótulo? (max 20 letr 

as) " : LINE INPUT B3S 
1520 PRINT 
1530 REM 

1540 PRINT "Da ta do compromisso: 

1550 INPUT" Dia:";DA:IF DA<1 OR 

DA>31 THEN 1530 
1560 GOSUB 2750 

1570 KB=MO:GOSUB 230 :IF DA>KB T 
HEN 1530 

1580 KBS-B3S:GOSUB 1630:T8S-KBS 
: RETURN 

1590 ' Venf teclagem de caract 

er e compara com kbS 

1600 BS=INKEYS:IF BS-"" THEN 16 

00 

1610 KB-INSTR(KBS.BS) :IF KB-0 T 
HEN 1600 
1620 RETURN 

1630 ' Codifica informação 
1640 PP=0:QQ«0 

1650 PP-(FIX(YR/100)-17)*16+MO 
1660 K2-100:QQ-FNM{YR) 
1670 KBS-CHR$(DA)+CHRS(PP)+CHRS 
{Q,Q>+LEFT3<KB3.20) : RETURN 
1680 ' verifica tipo 
1690 IF T7=0 THEN PRINT"Menaa 1 , 
Trimestral, Anual, unico":KB3- 
"MTAU" :G0SUB 1590 : T7-KB : GOTO 17 
20 

1700 IF T7-2 THEN T7-3:GOTO 172 
0 

1710 T7 = 4 

1720 RETURN 

1730 ' gravar dados 

1740 N-0:P-G 

1750 OPEN "DIÁRIO" FOR OUTPUT A 
S «1 

1760 FOB N-0 TO 3 

1770 M=UAL(LI3(N.0)) 

1780 PRINT|1,LIS(N,0) 

1790 IF M-0 THEN 1B40 

1800 FOR P-l TO M 

1810 FOR J-l TO 4:PRINTI1,STR3( 

ASC(MID3(LIS(N,P) ,J.l))) : NEXT 

1820 PRINT#1.MIDS(LIS(N.P) ,5) 

1830 NEXT 

1840 NEXT 

1B50 CL0SEI1 

1860 RETURN 

1B70 " carregar dados 

1880 N=0:P-0:M=0 

1B90 OPEN "DIÁRIO" FOR INPUT AS 
• 1 

1900 FOR N-0 TO 3 
1910 LINE INPUT* l .LIS (N , 0) 
1920 M-VAL(LIS(N,0)) 
1930 IF M-0 THEN 1980 
1940 FOR P-l TO M 



1950 FOR J-l TO 4:INPUT#1,NN3:L 
I$(N.P)-LI3(N.P)+CHRS(VAL(NNS)) 
: NEXT 

1960 LINE INPUTI1,NN$:LIS(N,P)- 

LIS<N,P)+NN3 

1970 NEXT 

1980 NEXT 

1990 CLOSEtl 

2000 RETURN 

2010 ' calendário anual 
2020 M4-0:A4-0 

2030 INPUT-Ano: ":YR:IF YR<1753 
OR YR>29999 THEN 2030 ELSE G0S 
UB 650 

2040 GOSUB 2720:CLS 

2050 PRINT" Ano " ; YR 

2060 IF P-2 THEN LPRINT "Ano: " 

; YR : LPRINT 

2070 PRINT:KB-0:GOSUB 2150:PRIN 
T:IF P-2 THEN LPRINT 
2080 GOSUB 2660 
2090 FOR M0-1 TO 12 
2100 PRINTMIDS(MN5.MO*9-8,9) : IF 
P-2 THEN LPRINT MIDS (MNS . MO*9- 
8,9) 

2110 T2-5:S2-0:GOSUB 2240 
21Z0 IF P-0 AND INKEYS-"" THEN 

2120 

2130 NEXT 

2140 RETURN 

2150 ' imprime dias 

2160 X2-0:C2-0:D2-0 

2170 IF KB-0 THEN X2-7 

2180 IF P-2 THEN KB-KB+1 

2190 PRINT4P , STRING3 (X2 . 32) l 

2200 FOR D2-0 TO 6 

2210 PRINTIP. STRINGS (KB , " ")+M 

IDS(DNS,D2*3+1,3) : 

2220 NEXT 

2230 RETURN 

á 

115 KBS - "SN": GOSUB 1590: IF 
KB-1 THEN GOSUB 1870 
1180 REM LISTAR E ATUALIZAR 
1190 N - 0:A - 0:B - 0:KK - KB 
1200 KB - KK: GOSUB 1330: P0KE 
34,1: P0KE 35,22 
1210 REM 
1220 HOME 

1230 B - VAL ÍLISÍKK.0)) 

1240 IF B - 0 THEN 1280 

1250 FOR N - 1 TO 8 

1260 KBS - LIS(KK,N):K2 - N: GO 

SUB 1410 

1270 NEXT 

1280 KBS - "ADM": GOSUB 1590:A 

1290 IF A - 1 THEN T7 - KK: 00 
SUB 1680: GOSUB 1490 : LIS (KK , B + 

1) - CHRS (T7) + T8$:LIS(KK.O 
) = STR3 (B + 1): COTO 1310 
1300 IF A - 2 AND B > 0 THEN 
INPUT "QUAL NUMERO? " ; NN : IF NN 

< 1 OR NN > B THEN 1300 
1305 IF A - 2 AND B > 0 THEN 
FOR PP - NN + 1 TO B:LIS(KK,PP 
- 1) = LIS(KK.PP): NEXT :LIS(KK 
,0) - STRS (B - 1) 
1310 IF A < > 3 THEN 1210 
1320 POKE 34.0: POKE 35.24: RE 
TU RN 
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1330 BEM CABEÇALHO 
1310 PUI NT TYS(KB), "LISTA COHH 
ENTE" 
1350 
136 0 
1370 
13S0 

AJDICIONAR 
1390 BEM 
1400 RETURN 
1410 P. EM OP 
1420 N2 - 0:BBS - " " : DDS 
3 - K2 

1430 FOR N2 c 1 TO 4: IF MIDS 
THEN CO(N2) = 



REM 
CALL 
REM 

VTAB 23: HTAB 5r PRINT 1 
[D1ELETAR IMJENU' 



ASC { MIDS <KBS 



(KB3.N2.1) = 
0: GOTO 1440 
1435 CO(N2) - 
N2, 1) ) 
1440 NEXT 

1450 BBS - MIDS (PAS.CO(l) 

- 5,6) 

1460 K2 - 16:DD3 - STBS (CO(2) 
)+-:"+ 3TR3 ( FN M(CO(3))) 
+ ":" + 3TRS (( INT < ABS (CO ( 
3) / 16)) * SGN <CO<3) / 16) + 

17) * 100 + CO(4)) 
1470 PRINT STRS <K3};" "iBBSi 
" " ;DDS ; " " ; RIGHT3 í KBS , LEN ( 
KBS) - 4) 
1460 RETURN 

1490 REM ADICIONAR DADOS 
1500 B3S - :VP • 0 
1510 PRINT "TITULO? (MAX 22 LE 
TRAS) " : INPUT B3S 
1520 REM 
1530 PRINT 

1540 PRINT "DATA DE REFERENCIA 

?" 

1550 INPUT " DIA:";DA: IF DA < 

1 OR DA > 31 THEN 1530 
1560 GOSUB 2750 

1570 KB - MO: GOSUB 230: IF DA 
> KB THEN 1530 

!5S0 KBS ■ B3S : GOSUB 1630:T9S 
- KBS ■ RETURN 

1590 REM VERIF TECLAGEM DE CA 
RACT EM KBS E DEVOLVE POSIÇÃO E 
M KB 

1600 GET BS:KB = 0 
1610 FOR I = 1 TO LEN (KBS): 
IF MIDS (KBS.I.l) - BS THEN KB 

- I 

1615 NEXT : IF KB ■ 0 THEN 160 




17 



16 ■ 



MO 



1660 K2 = 100:QQ - FN M(YR) 
1670 KBS - CHRS (DA) + CHRS ( 
PP) + CHRS (QQ) + LEFTS (KBS, 
22) : RETURN 

1680 REM INDICA TIPO 
1690 IF T7 - O THEN PRINT "ME 
NSAL, TRIMESTRAL, ANUAL, ÚNICO" 
:KBS ■ "MTAU" : GOSUB 1590:T7 - 
KB: GOTO 1720 

1700 IF T7 = 2 THEN T7 = 3 : GO 
TO 1720 
1710 T7 - 4 
1720 RETURN 



1730 REM GRAVAR MATRIZ 
1740 N - 0:P = 0 
1750 PRINT DSi"OPEN DIÁRIO" 
1755 PRINT DS;"WRITE DIÁRIO" 
1760 FOR N - 0 TO 3 
1770 M = VAL (LIS(N.O)} 
1780 PRINT M 
1790 IF M - 0 THEN 1840 
1800 FOR P - 1 TO M 
1B10 FOR J =■ 1 TO 4: PRINT ST 
RS ( ASC ( MIDS (LIS(N.P) .J.l}) 
) : NEXT 

1820 PRINT MIDS (LIS(N,P),5) 
1830 NEXT 
1840 NEXT 

1850 PRINT DS:"CLOSE" 
1860 RETURN 

1870 REM CARREGAR DADOS 

1880 N - 0:P - 0:M - 0 

1690 PRINT D3í"OPEN DIÁRIO" 

1B95 PRINT DS ; "READ DIÁRIO" 

1900 FOR N - 0 TO 3 

1910 INPUT LIS(N.O) 

1920 M = VAL (LIS(N.O)) 

1930 IF M - 0 THEN 1980 

1940 FOR P = 1 TO M 

1950 FOR J - 1 TO 4: INPUT NNS 

:LI3(N,P) = LIS(N.P) + CHRS ( 

VAL (NNS) ) : NEXT 

1960 INPUT NN3:LIS(N,P) = LIS( 
N,P) + NNS 
1970 NEXT 



NEXT 

PRINT DS ; "CLOSE" 
RETURN 

REM CALENDÁRIO ANUAL 
M4 - 0:A4 - 0 

INPUT "ANO:";YR: IF YR 
OR YR > 29999 THEN 2030 

GOSUB 650: GOSUB 2720: 



KB = 0 : GOSUB 2) 50 
GOSUB 2660 
FOR MO - 1 TO 12 
PRINT MIDS (MNS.MO * 9 - 

T2 - 5:S2 - 0: GOSIIB 2240 
IF P = 0 THEN GET RS 
NEXT 
RETURN 

REM IMPRIME DIAS 
X2 - 0:C2 - 0:D2 = 0 
IF KB - 0 THEN X2 - 7 
IF P - 2 THEN KB = KB + 1 



2050 
2060 
ESS 
2070 
2060 
2090 
2100 
8,9] 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 



2190 PRINT 
2200 FOR D2 
2210 PRINT 
S.D2 * 3 + 1, 
2220 NEXT 
2230 RETURN 



SPC( X2) 
- O TO 6 
SPC( KB) ; 
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PALETA ElETRÔNiCA 
PAHAOTK-2©©© 



Os programas elaboradores de gráfi- 
cos consliluem uma das ferramentas 
mais poderosas e versáteis para os usuá- 
rios de microcomputadores. É preciso 
notar, entretanto, que existem diversos 
tipos de programas gráficos. Os mais co- 
muns permitem traçar gráficos de aná- 
lise de dados, como histogramas, cur- 
vas, segmentos circulares ("pizzas") 
etc, e têm muitas aplicações em educa- 
ção, ciências e negócios. 

Outro tipo de muita aceitação con- 
siste nos programas "desenhistas", que 
fazem desenhos livremente sobre a te- 
la, usando o teclado ou um dispositivo 
de entrada gráfica ( "mouse" ou joy - 
stick) para deslocar um cursor gráfico 
sobre o vídeo. Esses programas, dis- 
poníveis para a maioria dos microcom- 
putadores, principalmente para os que 
têm boa capacidade gráfica e de impres- 
são em cores (Spectrum, Apple, MSX, 
IBM, PC etc). contam com um grande 
número de recursos, tais como: figuras 
geométricas pré-programadas (círculos, 
elipses, retângulos etc); "pincéis" de 
várias espessuras: cores para desenhar 
e pintar; dispositivos para "cortar e 
colar" (retirar uma parte de um desenho 
e colocar em ouiro ponto da leia) e "ca- 
rimbar" (copiar uma parte de um de- 
senho em outro ponto da tela); recur- 
sos para escrever títulos e textos com 
letras de diversos estilos e tamanhos 
etc. Programas como esses constituem 
uma verdadeira "paleia eletrônica". Al- 
guns deles são bem conhecidos; é o ca- 
so de Paint, Painl-Brush, Dr. Halo, 
Apple-Paini etc. 

O programa apresentado aqui perten- 
ce a essa categoria, embora seja muito 
mais simples. Ele permite a elaboração 
de letreiros e gráficos, empregando o 
conceito de cursor gráfico. Os recursos 
de programação de que ele dispõe não 
são muito complexos, e consistirão num 
bom aprendizado para quem quiser co- 
nhecer os "truques" básicos usados em 
programas do mesmo tipo. 



COMANDOS SIMPLES 



A filosofia de operação dó programa 
é simples: ao ser inicializado, o progra- 
ma entra em modo gráfico de baixa re- 



solução (GR) e coloca um cursor bran- 
co no canto superior esquerdo da tela. 
Ao pressionar as teclas correspondentes 
a cada comando, o usuário pode deslo- 
car o cursor sobre a tela, trocar sua cor. 
desenhar com a cor selecionada, apagar 
traços, desenhar blocos retangulares 
(preenchidos com cor) ou molduras (re- 
tângulos vazios) etc. Existem também 
comandos para escrever um texto em 
qualquer ponto da tela, em vídeo dire- 
10 ou vídeo inverso. 

Compõe-se, assim, uma ilustração 
que depois pode ser fotografada direta- 
mente da tela — ou copiada — , em pre- 
to e branco, em uma impressora gráfi- 
ca. Portanto, além de ser uma diversão 
para quem quer apenas exercitar os seus 
dotes criativos na pintura, o programa 
é muito bom para a produção de dispo- 
sitivos coloridos destinados a ilustrar pa- 
lestras, aulas, apresentações etc. 

O. cursor pode se movido pela teia, . 
usando-se as teclas T i -»e — . Para 
mudar sua cor, pressiona-se a tecla C, 
e logo em seguida digita-se um dos nú- 
meros compreendidos entre 0 e 6 (cada 
um deles correspondendo a uma das co- 
res disponíveis). 

Para traçar uma reta com a cor do 
cursor, pressiona-se a tecla <FIRE> e 
movimenia-se o cursor na direção dese- 
jada. Para parar de traçar, aciona-se 
<F1RE> novamente. Assim, esse sis- 
tema de operação serve ainda para apa- 
gar trechos de um desenho: basta sele- 
cionar a mesma cor do fundo para o 
cursor, c deslocá-lo sobre a área que de- 
ve ser apagada. No TK-2000, o joystick 
pode ser usado para movimentar o cur- 
sor e também para traçar retas, pois seu 
acionamento corresponde às teclas do 
cursor e à tecla <FIRE>. 

O proerama tem oito comandos ape- 
nas (no final deste artigo vamos dar al- 
gumas "dicas" sobre como expandir o 
programa, adicionando outros tipos de 
comandos). Eis aqui os citados coman- 
dos, em ordem alfabética: 

B - traça uma borda na leia, na cor 
previamente indicada. 

C - muda a cor do cursor. Um núme- 
ro de 0 a 6 será, enião, digitado. 

F - preenche Ioda a tela com a cor de- 
signada pelo cursor. 



A imaginação ao poder! Siga o lema das 
barricadas parisienses de 1968, 
e transforme seu vídeo em uma leia de 
pintura, executando o programa 
deste artigo no velho e fiel TK-2000. 



I - passa a aceitar um texto qualquer 
digitado pelo teclado, escrevendo- 
o em vídeo inverso (letras escuras 
sobre fundo claro). O cursor grá- 
fico não se desloca, permanecen- 
do na posição inicial. Pressionan- 
do-se a tecla < RETURN > , o sis- 
tema volta ao modo gráfico. 

R - retorna o cursor à sua posição de 
parlida (canto superior esquerdo 
da tela) e limpa o vídeo. 

M - traça uma moldura (retângulo va- 
zio) com a cor e posição indicadas 
pelo cursor (o canto superior es- 
ouerdo do retângulo ficará posi- 
.ionado na localização do cursor). 
O programa solicita o comprimen- 
to e a largura do retângulo (em pi- 
xels). que devem ser digitados se- 
parados por uma vírgula. 

Q - iraça um quadro (retângulo cheio), 
com a cor e posição indicadas pe- 
lo cursor. O restante funciona co- 
mo no caso do comando M. 

T - passa a aceitar um texto qualquer 
digitado pelo teclado, escrevendo- 
o em vídeo díreto ou normal (ou 
seja, letras claras sobre fundo es- 
curo). O restante funciona do mes- 
mo modo que no comando I. 

Depois que um texto for colocado cm 
algum ponio da tela, deve-se evitar pas- 
sar com o cursor sobre ele; do contrá- 
rio, ele será apagado. 



COMO FUNCIONA 0 PROGRAMA 



O programa é dividido em quatro 
grandes seeões de processamenio: 

A seção que vai da linha 50 até a li- 
nha 60 inicializa todos os parâmetros 
usados no programa e prepara ao mes- 
mo tempo a leia inicial. 

A seção que vai da linha 100 à 175 
aceita comandos airavés do teclado e ve- 
rifica qual foi a tecla pressionada. Se for 
um dos comandos válidos, ela modifi- 
cará os parâmetros internos do progra- 
ma, ou chamará a rotina encarregada de 
executar a função desejada. 

A seção que vai da linha 180 à 200 
serve para testar se os limites da tela fo- 
ram ultrapassados pelo movimento do 
cursor, e traça no vídeo um quadradi- 




nho na cor vigente, na posição indica- 
da (coordenadas do cursor). 

Finalmente, as linhas 500 a 900 con- 
têm diversas sub-rotinas de trabalho, 
que explicaremos mais adiante. 

Comecemos com a primeira seção 
(não a execute ainda; caso contrário, 
ocorrerá uma mensagem de erro): 

50 GR: COLOR - 0 

55 LET FL = 0 : X - 0 : Y = 0 

56 LET QX - 39: QY - 39: GOSUB 
815 

60 LET XL = 1 : YL « Íl CL = 0: 
C - 3: GOSUB 196 

A linha 50 estabelece o modo gráfi- 
co de baixa resolução (GR) bem como 
a cor inicial (preto) do cursor. A linha 
55 inicializa as variáveis FL (um indica- 
dor lógico, que mostra se o modo de de- 
senhar está "ligado" ou "desligado"), 
X e V (coordenadas correntes do cursor; 
note que X = 0e Y = 0 correspondem, no 
TK-2000, à posição no canto superior 
esquerdo). 

A linha 56 define, por sua vez, as va- 
riáveis QX e QV, necessárias para a 
atuaçào da rotina da linha 815 (mostra- 
da mais adiante num dos segmentos do 
programa), que é responsável por tra- 
çar um bloco colorido. Quando as va- 
riáveis QX e QY são igualadas a 39, co- 
mo neste caso, isso significa que a tela 
será inteiramente pintada com a cor cor- 



rente do cursor (na primeira vez será 
preto, ou COLOR = 0). 

A linha 60 define as variáveis XL e 
YL, que servem para armazenar as últi- 
mas coordenadas do cursor, atingidas 
antes das correntes (X e Y), bem como 
a última cor CL. Ainda nessa linha, é 
definida a cor inicial do cursor (C * 3), 
e a sub-rotina da linha 196 é chamada 
para traçar esse cursor em sua posição 
inicial (0,0). 

Digite agora a seção de entrada e teste 
(sem, contudo, apagar a seção de entra- 
da anterior): 



100 GET AS: A 
105 IF A$="C" 

GOTO 100 
110 IF AS="Q" 

GOTO 100 
115 IF AS="M" 

GOTO 100 
120 IF A$-"T" 

GOTO 100 
125 IF A$="I" 
GOSUB 500 
IF A$-"R" 



55 

IF AS = "B' 
- 1: X - 
B15: X = 
100 

IF AS= - F 



THEN GOSUB 600 

THEN GOSUB 650 

THEN GOSUB 500 

THEN INVERSE: 

GOTO 100 
THEN HOME: GOTO 



THEN COLOR - C : TY 
0: Y - 0: GOSUB 
XL: Y = YL: GOTO 

THEN COLOR - C:TY 
0: Y = 0: GOSUB 
XL: í - YL: GOTO 



150 IF A - 112 THEN Y = Y-l : 

GOTO 190 
155 IF A ■ 113 THEN Y = Y+l : 

GOTO 190 
160 IF A - 8 THEN X = X-l : GOTO 

1B0 

165 IF A = 21 THEN X - X+l : GO- 
TO 180 

166 IF A O 46 THEN GOTO 100 
170 IF FL » 1 THEN FL = 0: GOTO 

100 

172 IF FL - 0 THEN FL - 1 
175 GOTO 100 

A linha Í00 usa um comando GET 
para permitir uma pressão à tecla e ar- 
mazenar o caractere correspondente em 
AS. Ao mesmo tempo, o valor ASCII 
desse caractere é determinado pela fun- 
ção ASC e guardado em A. 

Em seguida, as linhas 105 a 145 veri- 
ficam se o caractere digitado é C, Q, M, 
T, B, R, I ou F. Em caso positivo, elas 
lomam as providências necessárias pa- 
ra executar a função perdida, e retor- 
nam ã linha 100 para receber mais um 
comando. 

Essa estrutura de programa caracte- 
riza, de fato, um laço sem fim (conhe- 
cido, neste caso, como laço de entrada), 
que não chega a ser um laço de espera 
verdadeiro, pois o programa ficará pa- 
rado na linha 100 enquanto nenhuma te- 
cla for pressionada. 

As linhas entre 150 e 175 servem pa- 
ra verificar se uma das teclas de movi- 
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mentaçào do cursor foi pressionada. 
Aqui, lemos que usar o vaior ASCII pa- 
ra fazer a averiguação, pois não existe 
representação gráfica da tela para os 
cursores. Se a tecla tiver sido pressiona- 
da, o parâmetro V (coordenada vertical 
do cursor) será diminuído de uma posi- 
ção, e o programa saltará, então, para 
a linha 190. que verifica se os limites da 
tela foram ultrapassados. Transforma- 
ções semelhantes de X e Y são feitas, 
conforme a tecla de cursor seja pressio- 
nada. Mas não execute o programa 
ainda. 



COMECE A DESENHAR 



Adicione as linhas abaixo: 



180 IF X < 0 THEN X - 0 
182 IF X > 39 THEN X = 39 
185 GOTO 196 
190 IF Y < 0 THEN Y - 0 

195 IF Y > 39 THEN Y - 39 

196 IF FL - 1 THEN GOTO 19B 

197 COLOB » CL: PLOT XL.YL 

198 LET CL » SCRN (X,Y): COLOR 
- C: PLOT X,Y 

199 LET XL - X: YL - Y 

200 GOTO 100 

As linhas 180 a 185 avaliam se X ul- 
trapassou ou não a borda da tela, 
mantendo-o nesse limite, caso isso tenha 



acontecido. As linhas 190 e 195 fazem 
o mesmo com V. 

A linha 196 verifica se o cursor está 
em modo de desenho. Se estiver, a linha 
197 traçará o cursor, com a cor CL (úl- 
tima cor encontrada), na posição (XL, 
YL). O programa prosseguirá então pa- 
ra a linha 198, que testa a cor do pixel 
em X, Y, armazena-o em CL, e traça fi- 
nalmente o pixel em X e Y, usando a cor 
C. 

Se esse procedimento, aparentemen- 
te complexo, não for aplicado, toda vez 
que o cursor for deslocado deixará um 
"buraco" de cor diferente na posição 
anterior. 

Por fim, nas linhas 199 e 200, são 
usados os valores das variáveis XL e YL, 
e o programa retorna à linha 100, pon- 
to de partida desse segmento, para mais 
uma "rodada" de entrada. 

Uma vez concluídos esses preparati- 
vos, podemos adicionaF as rotinas de 
trabalho do programa: 

500 LET YT = Y/2: XT = X+l 
510 HTAB XT: VTAB YT 

515 GET AS: IF ASC (AS) - 13 
THEN NORMAL: RETURN 

516 IF ASC (AS) = 6 THEN XT - 
XT-1 : G0T0 510 

520 PRINT AS: XT - XT+1 
525- GOTO 510 

600 LET TY = 0 : GOTO 750 
650 LET TY - 1 



HTAB 1: VTAB 2 3 
INPUT "COMPRIMENTO. LARGURA 
: " ;QX.QY 

IF TY = 1 THEN GOTO 840 
FOR I = Y TO Y+QY 
HLIN X.X+QX AT I 
NEXT I: CL - C: GOTO 900 
HLIN X.X+QX AT Y: HLIN 
X.X+QX AT Y.Y+QY 
LET CL ■= C: GOTO 900 
HTAB li VTAB 23: INPUT "COR 
(D-60) :" ;C 
855 IF C<0 OR C>7 THEN GOTO 850 
860 COLOR - C: PLOT X.Y 
900 HTAB 1: VTAB 23: PRINT SPC 

(39) : RETURN 
999 END 

A sub-rotina que vai da linha 500 à 
linha 525 responde aos comandos I e T 
e serve para receber caracleres pelo te- 
clado (linha 515) e colocá-los na tela, a 
partir da última posição do cursor de 
texto. 

As variáveis XT e YT correspondem 
às posições de tabulamento de texto, nas 
posições HTAB e VTAB. que são cal- 
culadas a partir da localização do cur- 
sor gráfico no momento (X e Y). O ca- 
ractere é impresso pelo comando 
PRINT na linha 520, onde também é in- 
crementado o cursor de texto (XT). 

Ao mesmo tempo, a entrada de um 
comando < RETURN > (linha 515, 
com código 13) encerra a sub-rotina e 
volta para a alça de espera. O código 
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8. por sua vez, corresponde ao 
comando BACKSPACE no mi- 
cro TK-2000 e faz com que o 
cursor recue uma posição, apa- 
gando o caractere escrito. 

A sub-rotina que vai da linha 
600 á linha 847 é um procedi- 
mento universal para traçar re- 
tãngulos, sejam eles coloridos ou 
não. Ela serve, portanto, para 
executar os comandos B, R, Q e 
M (os parâmetros adequados pa- 
ra o caso são fixados nos IF das 
linhas 105 a 145). 

A variável TV serve para assinalar se 
o retângulo écheio ou vazio. Alinha 800 
pergunta as suas dimensões, no caso dos 
comandos Q e M, e à linha 810 cabe in- 
vestigar se ele não excede os limites da 
tela. 

Finalmente, a rotina que vai de 850 
a 900 muda a cor do cursor. Na linha 
900, é apagada a última linha de texto 
da tela, de modo a prepará-la para o 
próximo comando. 



INCREMENTANDO... 



Execute agora, com todo o cuidado, 
o programa completo e dè asas à sua 
imaginação. Entretanto, não esqueça de 
gravá-lo antes em fita. 

Com um pouco de criatividade e al- 
gum esforço de programação, não é di- 
fícil aumentar a utilidade do programa, 
adicionando-lhe novos comandos. Pa- 
ra isso, basta inserir uma nova linha 1F 
na série de linhas desse tipo existente en- 
tre as linhas 100 e 165, verificando se 
a nova tecla foi pressionada ou não, e 
desviar o processamento com um co- 
mando GOStlB para a sub-rotina que 
fará a tarefa. 

Eis aqui algumas sugestões de exten- 
são do programa: 

- sub-rotina para traçar retas de uma 
só vez (marque os pontos inicial e fi- 
nal da reta, com o cursor, e pressione 
<ENTER> para acionar a 
rotina). 

sub-rotina para copiar blo- 
cos de um lugar para outro, 
sub-rotina para apagar um 
bioco retangular inteiro da 
tela, reconstituindo a cor de 
fundo. 

rotinas para gravar telas em 
fita e carregá-las de volta à 
tela (leia a tela gráfica com comandos 
POKE). 

rotinas para criar uma biblioteca de 
"ícones" (pequenos desenhos ou mo- 
tivos gráficos), que podem ser copia- 
dos em qualquer ponto da tela. 
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MONITORES 



MONITORES E TELEVISORES 



SINAIS DE ENTRADA 



COR VERSUS PRETO E BRANCO 



DEFINIÇÃO DA IMAGEM 



COMO ESCOLHER 




Monitores ou televisores? Se você tem 
dúvidas a respeito do vídeo 
ideal para o seu computador, leia este 
artigo, onde são abordadas as 
diferenças entre os dois aparelhos. 



Componente essencial para a opera- 
ção dos microcomputadores, a tela de 
vídeo constilui o principal canal de co- 



municação entre o usuário e a máqui- 
na. Além disso, é o vídeo que mantém 
visível o registro de ludo o que é digita- 
do no teclado. Sofisticado e sensível, es- 
se equipamento eletrônico deve ser bem 
selecionado no momento da compra, 
pois o seu desempenho influencia dire- 
tamente o da máquina. 

Existem basicamente duas opções de 
saída de vídeo para os microcomputa- 
dores: o uso direto de um aparelho de 
TV (em cores ou em preto e branco), ou 



um monitor de vídeo (que também po 
de ser monocromático ou colorido). 
Muitas máquinas já vêm equipadas com 
um monitor de vídeo padrão, que difi- 
cilmente pode ser trocado. Se o seu com 
puiador é desse tipo, nada resta a fazer. 
Caso contrário, vale a pena ler as linhas 
a seguir. Elas explicam como funciona 
um desses equipamentos e como o com- 
putador controla a salda de vídeo. 

Embora existam muitas maneiras di- 
ferentes de passar informações do com- 



8 PERIFÉRICOS 8 



putador para a tela, os diversos tipos de 
vídeo contam com um dispositivo espe- 
cialmente destinado para isso: é o tubo 
de raios catódicos, conhecido por sua si- 
gla em inglês. CRT {Cathode-Ray Tu- 
be). Os tubos de raios catódicos (chama- 
dos também de cinescópios) funcionam 
com base no fenómeno da fosforescên- 
cia, ou luminosidade provocada por fei- 
xes de elétrons em certas substâncias 
químicas, como fósforo. 

Um tubo de raios catódicos consiste 
em um invólucro de vidro em forma de 
cone ou pirâmide, em cujo interior se 
produz vácuo. Em uma de suas extre- 
midades é montado um canhão de elé- 
trons (um filamento aquecido, emissor 
de elétrons). Uma vez liberados, os elé- 
trons compõem uma espécie de nuvens 
ao redor do filamento; eles são então 
acelerados e aglomerados em forma de 
feixe, para poder bombardear a tela com 
uma certa velocidade. Essa função é rea- 
lizada por anéis c placas metálicas dis- 



postas ao longo do tubo, que são eletri- 
ficadas — positivamente, para acelerar 
os elétrons, e negativamente, para 
obrigá-los a constituir um fino feixe, 
que, ao atingir a tela, produzirá um pon- 
to de luz. 

Para criar imagens na tela, é neces- 
sário fazer esse ponto de luz se deslocar 
em várias direcões sobre a camada de 
fósforo. Isso se dá através de dois pa- 
res de placas, dispostas em ângulo reto: 
são as placas defletoras, que realizam 
sua função por meio de voltagens elé- 
tricas; estas, por sua vez, atraem ou re- 
pelem o feixe nas direções horizontal e 
vertical. 

Os aparelhos de TV e a maioria dos 
monitores de vídeo criam imagens e tex- 
tos empregando a técnica de varredura. 
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Nesia, um sinal eletrônico especial é 
aplicado ás placas defletoras, de modo 
que o ponto de luz percorre todo o ví- 
deo a grande velocidade, em um movi- 
mento de ziguezague. Isso permite for- 
mar na tela entre quinhentas e 625 linhas 
(dependendo, evidentemente, do padrão 
adotado), em cerca de 1/60 de segundo. 
Esse padrão de varredura é constante- 
mente repetido. 

Para produzir uma imagem ou tex- 
to, portanto, basia modular a intensi- 
dade do feixe, ou seja. variar a volta- 
gem do canhão de clétrons, de modo a 
liga-lo e desligá-lo em determinados mo- 
mentos. Assim, por exemplo, os carac- 
teres podem ser criados por meio de 
pontinhos acesos. Portanto, tudo o que 
o controlador de vídeo do computador 
precisa fazer é enviar esse sinal de inten- 
sidade ao CRT. 

Alguns tipos de monitores especiais 
para micro formam imagens ou carac- 
teres utilizando a modulação das r. ' 
defletoras. Embora essa técnica produ- 
za imagens de excelente definição e qua- 
lidade, uma boa velocidade de exibição 
somente pode ser obtida a custos muito 
altos. Na verdade, o CRT de varredura 
gera imagens complexas de maneira 
mais barata e rápida. 



PERSISTÊNCIA VISUAL 



O uso da técnica de varredura para 
gerar imagens é baseado em uma pro- 
priedade da visão humana, que, em ou- 
tras circunstâncias, poderia ser conside- 
rada um defeito. O olho humano retém 
uma imagem na retina por cerca de I /25 
de segundo. Como a maioria dos tubos 
de raios CRT é capaz de varrer toda a 
tela em cerca de 1/60 de segundo, isto 
significa que uma nova imagem, ou 
"quadro", aparece mais rapidamente do 
que o olho pode perceber. Assim, vemos 
na tela uma imagem que se mantém, ou 
se move, sem piscar. Se nossos olhos ti- 
vessem uma capacidade de retenção dc 
1/100 de segundo, ou menos, a imagem 
gerada em um televisor pareceria piscar 
inioleravelmenie. 



Esse principio vale tanto para televi- 
sores em preto e branco (monocromáti- 
cos), quanto para os que transmitem 
imagens coloridas. A única diferença en- 
tre os CRT dos dois tipos c que os apa- 
relhos monocromáticos têm apenas um 



canhão eletrônico e uma variedade de 
fósforo na tela. enquanto os equipamen- 
tos coloridos dispõem normalmente de 
três canhões e três espécies de fósforo 
(existe ainda um tipo de CRT colorido 
que possui apenas um canhão que dis- 
para três feixes de elétrons). 

A cor é produzida da seguinte manei- 
ra: os feixes eletrõnicos ativam os fós- 
foros, que se iluminam, assumindo.ca- 
da um, uma cor diferente (azul, verme- 
lho ou verde). 



Monitor ou televisor, monocromáti- 
co ou em cores, o vídeo é preparado pa- 
ra aceitar três tipos dc sinal de entrada. 
O primeiro deles, o sinal padrão de ra- 
dioemissào, c usado por aparelhos dc te- 
levisão; ele produz a imagem convencio- 
nal de TV na tela e c conhecido por RF 
(abreviatura dc radiofreqúência, usual- 
mente na faixa VHF). 

Chamado de vídeo composto, o se- 
gundo tipo de sinal é utilizado pela 
maioria dos monitores, embora alguns 
aparelhos de TV também tenham uma 
entrada dc vídeo composto já embuti- 
da. Esses sinais contêm a modulação de 



intensidade para os feixes eletrônicos, 
além de pulsos de sincronização. 

Finalmenie, existe o sinal RGB, cu- 
jo nome vem das iniciais das três cores: 
Red, Green, Blue (vermelho, verde e 
azul, em inglês). Ele constitui a forma 
mais direta e precisa de entrada de co- 
res. Neste caso, cada canhão eletrônico 
é alimentado por informações acerca da 
cor correspondente (há, porém, moni- 
tores monocromáticos capazes de acei- 
tar sinais RGB, transformando-os em 
níveis de intensidade, também chama- 
dos de níveis de cinza). 

O sinal de vídeo composto é interme- 
diário, em qualidade e flexibilidade, en- 
tre o RF e o RGB. O sinal RF, em últi- 
ma instância, passa por uma série de 
amplificações e transformações, ames 
de ser convertido em um sinal de vídeo 
direto. Portanto, ele é de menor quali- 
dade c definição, pois, quanto maior for 
o número de estágios intermediários, 
maiores serão as distorções e interferên- 
cias sofridas por ele. 



LARGURA DE FAIXA 



Existem razões interessantes, mas tec- 
nicamente complicadas, para o fato de 
um televisor não possibilitar o mesmo 
grau de definição de imagem na tela que 
um monitor de vídeo. O elemento dife- 
renciador é. aqui, a chamada largura de 
faixa {bandwidth, em inglês), que é a di- 
ferença algébrica entre as frequências 
máxima e minima de sinal, ãs quais o 
dispositivo eletrônico e o CRT podem 
responder sem perda apreciável de inten- 
sidade (ou ganho). Do mesmo modo, a 
largura de faixa é o principal parâme- 
tro a determinar a qualidade ou resolu- 
ção de imagem. 

Um aparelho de TV, por exemplo, 
não aceita sinais que requeiram uma lar- 
gura de faixa maior do que 5,5 MHz 
(megahertz, ou l 000 000 de oscilações 
por segundo). Essa faixa funciona bem 
em um vídeo de 32 ou quarenta colunas; 
neste último caso (quarenta colunas), 
porém, os caracteres tendem a tornar- 
se indefinidos ou "borrados" (é que essa 
dimensão de vídeo exige, normalmente, 
uma largura mínima de 10 MHz). 

Os monitores de vídeo são projetados 
especificamente para processar faixas de 
tal magnitude. Entretanto, é necessá- 
rio que o computador tenha uma saída 
de vídeo composto, em vez de uma RF 
(algumas vezes ambas estão presentes, 
como é o caso dos micros da linha 
MSX). Os modelos da linha Sinclair, 
por exemplo (ZX-81 e Spectrum), têm 
saídas somente para RF. 

Quando falamos da qualidade da 



imagem na tela, estamos nos referindo 
à resolução (ou definição de imagem) e 
à separação de cores. Infelizmente, qua- 
se sempre as duas características são an- 
tagónicas, ou seja, a presença de mui- 
tas cores implica menor definição, pois 
a largura de faixa tem que ser dividida 
entre as frequências presentes nos três 
canhões. Assim, um monitor monocro- 
mático produz uma definição melhor do 
que os tubos cromáticos. 

Em uma tela normal de vídeo, de qual- 
quer espécie, existem cerca de 360 000 
pontos de fósforo. No caso de uma tela 
em cores, 120 000 desses pontos serão 
vermelhos; 1 20 000, verdes, e 1 20 000, 
azuis. Portanto, a resolução da imagem 
será três vezes menor do que a de um 
tubo monocromático. 

Para muitas aplicações, como o pro- 
cessamento de textos, o monitor mono- 
cromático é a opção natural, pois força 
menos os olhos do usuário. A combina- 
ção mais frequente é verde sobre fundo 
preto. O vídeo inverso, ou seja, carac- 
teres pretos sobre fundo branco ou de 
cor clara, é menos frequente, pois pro- 
voca maior cansaço visual. 

É bom lembrar, aliás, que a maioria 
das pesquisas a respeito dos efeitos do 
vídeo sobre a saúde não conseguiram de- 
monstrar a nocividade do CRT. 

Os efeitos maléficos são geralmente 
causados por outros fatores, como bri- 
lho refletido na tela, cores inadequadas, 
caracteres imprecisos. Uma tela de TV, 
entretanto, pisca imperceptivelmente 
— embora mais que a de um monitor 
— , o que pode provocar dores de cabe- 
ça e problemas visuais. 

É importante notar ainda que a defi- 
nição de imagem não depende apenas do 
CRT e dos seus circuitos de controle, 
mas também do hardware do computa- 
dor. Os caracteres são formados por 
"células" ou matrizes de pontinhos de 
5 x 7, 7 x 9, ou 9 x 9, conforme a 
qualidade do micro. Combinada com a 
largura de faixa do monitor, essa con- 
figuração pode produzir caracteres de 
pequena ou de grande resolução. 

Por outro lado, embora o ideal fos- 
se associar a cada pontinho luminoso na 
tela um bit ou um conjunto de bits na 
memória do computador (no caso de in- 
formação em cores são necessários de 
três a sete bils), esta seria uma solução 
pouca prática, e muito cara. Assim, nor- 
malmente, um ou mais bytes da RAM 
são associados a caracteres (matrizes de 
pontinhos) e não a pontinhos indivi- 
duais, e o circuito gerador de vídeo do 
computador faz o resto do trabalho, uti- 
lizando uma tabela interna de caracte- 
res (que pode ser alterada em alguns mi- 
cros, como no Sinclair). 



COMO ESCOLHER 



Os dois fatores mais importantes a se- 
rem considerados quando se deseja com- 
prar um vídeo são: o tipo de computa- 
dor ao qual ele deve ser acoplado, e as 
aplicações a que ele esiá destinado. Em- 
bora a tela seja um elemento importan- 
te do sistema, ela depende do tipo de 
hardware de vídeo do computador. Se 
a capacidade gráfica do micro é pobre, 
não adianta comprar um monitor de al- 
tíssima resolução, que ela não vai me- 
lhorar: você estará jogando dinheiro fo- 
ra. Portanto, é preciso comprar o vídeo 
mais adequado para aquilo que o com- 
putador tem a oferecer. 

Ao mesmo tempo, é importante tam- 
bém levar em conta a função para a qual 
o computador está sendo destinado. As- 
sim, o monitor monocromático é a so- 
lução mais adequada quando se procu- 
ra uma melhor relação custo/beneficio 
em aplicações nas quais a cor não é um 
pré-requisito. Se, ao contrário, é neces- 
sário um padrão de cor de alta qualida- 
de, então um bom monitor RGB deve 
ser considerado, embora a maioria dos 
micros pessoais e domésticos não preci- 
se de nada mais sofisticado do que um 
monitor de vídeo composto. 

Jogos e programações pouco comple- 
xas requerem apenas um aparelho de TV 
como saída de vídeo. Evidentemente, a 
maioria dos jogos aparece de forma 
muito melhor cm um monitor em cores: 
entretanto, quase todos eles são progra- 
mados em função das limitações dos te- 
levisores. Além disso, o monitor pode 
ser uma má escolha com relação a ou- 
tros aspectos. Por exemplo, normalmen- 
te os monitores de vídeo não têm saída 
sonora, pois são fabricados para o mer- 
cado profissional. Ora, essa caracterís- 
tica tem importantes implicações, pois, 
de modo geral, os jogos mais sofistica- 
dos e interessantes são programados 
com efeitos sonoros. 

Também não é recomendável usar te- 
levisores baratos ou muito antigos. Em 
primeiro lugar, os circuitos eletrónicos 
(alguns ainda usando válvulas) podem 
não ser compatíveis com a saída analó- 
gica de vídeo dos computadores. Em se- 
gundo lugar, defeitos que* não causam 
grande impacto sobre a qualidade da 
imagem de TV — como o "estouro" da 
varredura nas margens da tela, ou a 
acentuação de uma cor sobre as outras 
— afetam negativamente tanto o texto 
como as imagens geradas pelo compu- 
tador. Neste caso, pode sair muito mais 
caro tentar reparar o velho aparelho 
com defeito do que comprar um moni- 
tor ou um televisor novos. 
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O BANDIDO Di 



■ 


UTILIZE TODA A CAPACIDADE 


GRÁFICA DO SEU MICRO 


■ 


AS ENGRENAGENS DA MAQUINA 


■ 


MONTANDO 0 CACA-NÍQUEIS 


■ 


AS INSTRUÇÕES 



Participe desle novo jogo de INPUT e 
viaje para o mundo mágico de 
Las Vegas, acionando a manivela de 
uma máquina caça niquets que 
não vai deixá-lo de bolsos vazios. 



Alualmente, já é possível substituir 
os velhos caça-niqueis mecânicos por 
programas de microcomputadores, on- 
de a tela é usada para mostrar as rodas 



com os desenhos de frutas. É exatamen- 
te isso que faremos neste e nos próximos 
artigos de INPUT. 

O jogo desempenha as funções carac- 
terísticas de um caça-níqueis real — ou 
seja, prender, apostar e empurrar. As 
rodas móveis com os desenhos de fru- 
tas são representadas por meio de grá- 
ficos animados. 

Como se não bastasse, ele tem a van- 
tagem de poupar o jogador de perder 
grandes quantias em dinheiro para es- 
ses bandidos de um braço só — como 



são conhecidos os caça-níqueis em sua 
terra natal, os Estados Unidos. Em com- 
pensação — já que ninguém é perfeito 
— , o jogador não ganha nenhum tos- 
tão. Para começar, consulte a seção de- 
dicada a seu micro. 

Não se esqueça, entretanto, de gra- 
var a primeira parte do programa, apre- 
sentada neste artigo, antes de passar à 
execução da segunda pane. O progra- 
ma não funciona neste estágio, embora 
alguns microcomputadores mostrem o . 
aspecto básico da tela gráfica. 
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OS BIOCOS GRÁFICOS 



As Unhas 140 a 150 contêm os bytes 
responsáveis pelos blocos usados para 
desenhar as frutas do caça-níqueis. As 
instruções coloridas devem ser digitadas 
diretamente por meio de códigos de con- 
trole, de modo a economizar memória. 
Para escrever essas linhas, entre no 
"modo estendido" (CAPS SHIFT + 
SYMBOL SHIFT) e pressione a tecla re- 
lativa à cor desejada. A seguir entre no 
modo gráfico (CAPS SHIFT e 9) e di- 
gite as letras da listagem. 

10 LET HFLAG=0 : POKF. 2365R.8: 

RESTORE 20: GOSUB 860 

20 DATA 14. 31, 31, 31. 31, 15,. 1.1 

.56.252,252,252.252.248,224, 

192 

30 DATA 49,42,51,42.50,255, 
255,255,152.84,216,84,84,255. 
255. 255 

40 DATA 3.4.8.28,62.62,62, 2B, 

28,190, 125,62, 28.0.0.0 

50 DATA 0,0,16.28,15,7,3.0,4. 

12.26.56,248.240,224.0 

60 DATA 0.0,7.15.31.31.15,7,8 

.248,240,240,224,224.192,128 

70 DATA 1.3,3.7,15,15,24,1, 

128,192. 192.2 24,240. 240, 24. 

12S 

80 DATA 1,7,15.31,31.31.31.15 
,224.240.240.240,240,224,192, 
126 

90 DATA 8,8,8,8,73,42.28.8,16 
.56.84. 146. 16. 16. 16, 16 
100 FOR i-USR "a" TO USR "P" + 7 
: READ a: POKE l,ai NEXT 1 



910 PRINT PAPER 6: INK 2;AT 1 

^"□□□□□□□^□□□□□□□an 
□□□□□□ ■ t at 2,4;" ul:ijibcí 

pi p b ri r^mmrfiprn^- 

920 PRINT PAPER 6: INK 2 ; AT 1 



110 


LET TOTAL 


100 




140 


DATA "AB" 


"AB" 


"CD" 




" AB" . " EF" 


"EB" 






"MN" 






145 






"EH" 




" * , "CD" 


"CD" 


"EF" 


CD" 








150 


DATA "EF" 






CC" 


"AB" . "HJ" 


"AB" 


-BB" 



"CD" , " 

ff j- . ■ EB" 

160 DJM aS<24.4) : D TM bS(24,4) 
: DIM c${24,4): FOR 1=1 TO 12: 
READ aSd): LET a$ ( i + 1 2 ) -aS ( 1 ) 
: NEXT l 

180 FOR 1-1 TO 12: READ bS < 1 ) : 
LET bS d + 1.2) = b°(l ) : NtiXT i 
190 FOR i-l TO 12: READ cS { l ) : 
LET c5(i+12)-c3(i) : NEXT i 
860 BORDER 7: PAPES 9: INK 2: 
CL8 

870 PRINT ■"' 

880 FOR 1-0 TO I: FOR J = 0 TO 
31: PRINT PAPER 7;AT l.j;" " 
: NEXT j: NEXT l 

890 FOR 1=2 TO 5: PRINT AT 1.0 

; PAPER 6;"CGDZi"iAT 1 . 28 ; " r_ 
□ CO NEXT I 

900 PRINT PAPER 6; INK 2 ; AT 0 
.6; "10 CENTAVOS A JOGADA" 



,4; 1 __ 

□ □□□□□"( AT 3,4;" □□□HBCtl 

r- r r. r r. 1 1 1 i " 

930 PRINT PAPER 6; INK 2 ; AT 1 

,<;"□□□□□□□□□□□□□□□□□□ 
DDrJDDD*) AT 4.4:"^LJnnHHE] 

H iHEJnEEaHEBOCBCinn" 

94 0 PRINT PAPER 6; INK 2 J AT 1 
,4i" □□□□□□□□□□□□□□□□□□ 

□ CCDCiZ":AT 5,4i"0arJa" S INK 



950 FOR i-6 TO 14: FOR j-8 TO 
23 STEP 5: PRINT INK 0 ; AT i.j 

. " " : NEXT J : NEXT i 

960 FOR 1=8 TO 23: PRINT AT 15 

. i i INK 0;"B" : NEXT i 
970 FOR 1-6 TO 21: PRINT 
PAPER 6;AT I , 0 ; "C.C ; 

AT 1,24;" 1 i": NEXT I 

980 FOR 1-16 TO 21: PRINT 

paper 6; at i.Bi-cncnaaannL 

□ □□□□□" : NEXT I 
990 PRINT INK 1; PAPER B i AT 2 
. 0 ; "PREMIO" i AT 2 , 26 ; "PREMIO" ; 
AT 3,1 ;"B"B B" ;AT 3,27;"BB 

B" 

1000 PRINT INK 1| PAPER 8 ; AT 4 
,2;"10";AT 4 . 27 ; " 100 " ; AT 6,2;"2 
0";AT 8.2;"50";AT 7.27; "RAPA" ; A 
T 8,25:"B*""BBB" 
1010 PRINT INK 1; PAPER 8;AT 2 
0,6;"<SPACE> GIRA AS RODAS" ; AT 
21, 3| "BOtO SEGURA E NUDGE EMPUR 
RA" 



AS (4) ; AS (4) ; AS (4) ; AT 1 0 , 0 ; AS ( 1 ) 
:A$(1) ;AS(l) 

1060 PRINT AT 1 1 . 0 ; CS í 2) ; CS (2) ; 

CS(2):AT l2.0;B3tl) ;BStl) ;BS(1) 

1070 PRINT AT 5 , 26 ; CS 1 1 ) ; CS ( 1 > i 

CS(1) ; AT 6.26;C$(3) ;C3(3) ;CS(3) 

i AT 9,26;CS(4) ;CS(4) ;CS(4) 

1080 PRTNT AT 7 , 10 ; AS ( 1) [AT lt). 

10; AS (2); AT 13, 10; AS (3) 

1090 PRINT AT 7 , 1 5 : BS ( l) ; AT 10, 

15;BS(21 íAT 13.15:BS(3) 

1100 PRINT AT 7 . 20 ; CS ( l ) ; AT 10. 

20;CS(2) ; AT 13,20:CS(3) 

1110 PRINT AT 16,26; INK 2: PAP 

ER 6; "NUDGE" ; AT 1 7 , 24 ; "TECLAS" ; 

AT 1.5 , 25 ; "Q-W-E P" ; AT 18,25;"A- 

S-D 0" 

1120 PRINT INK 0; PAPER 7;AT 1 
2.25;" QHdHda*: " ;AT 13,25;" 
1 " ;AT 13. 31 ; "r " jAT 14. 25; " 
rnr" _ r«]";AT13.26; INK 2;"B1 

1130 PRINT PAPER 6: INK 0; INV 
ERSE 1;AT 15.0; "TOTAL" ; INVERSE 
0;AT 17.0;"S";AT 18,0;"C";AT 1 
7,1 ; PAPER 7; BRTGHT li'Dl";AT 
lB.li "i 00" 

1140 PRINT ll;AT 0,0; - rannCACI 

FE INICIAL - 1 DOLLAR" 

1150 PAUSE 0 

1 160 PRINT #1 : AT 0,0:": 

□□□□□□□□□□□ □□□□D □□□□□□ 

1 ] 70 RETURN 

A sub-rotina da linha 1050 desenha 
as rodas em sua posição inicial junto 
com alguns detalhes complementares. 0< 
jogador é informado que seu cacife ini- 
cial è de um dólar e que cada jogada cus- 
ta dez centavos. 



1030 PRINT AT 16, 7 1 "04-11205-21 
3.6-1)1.3" ;AT 19.4; INK 7; PAPER 
2;" :H0LD : TECLAS DE 1 A 6Q" 
1040 RETURN 

A linha 10 salta para a sub-rotina da 
linha 860, que desenha o caça-níqueis. 
As instruções ao jogador são colocadas 
na frente da máquina. 

A linha 100 cria os blocos gráficos — 
UDG — na memória usando o coman- 
do READ para ler os valores contidos 
nas linhas DATA 20 a 90. Depois que 
o banco de blocos é criado, os caracte- 
res das frutas aparecem nas linhas 140 
a 150, de onde o programa retira dados 
para produzir as rodas giratórias. As va- 
riáveis a$, bS e c$ representam as três 
rodas, e a ordem das frutas na rodas é 
determinada pela ordem dos blocos nas 
linhas DATA. 



OS BLOCOS GRÁFICOS 



200 GOSUB 1050 

1050 PRINT AT 5,0;AS(4):" "; 

AT 7,0;ASt4) ; AS Í4) ;"--"; AT 9,0; 



10 PM0DE 3,1:PCLS:CLS 

20 DIM BU2) .C(12) ,AU2) ,BR(12) 

,S(12) .PL(12) ,P(12) ,R1 (15) .R2(l 

5) ,R3 (15) .«(9) ,H (29) 

30 DRAWBM16 , 0C2L2GLG4DG4D2R7FR 

FR3ERER7U2H4UH4LH" i PAINT (14 .10) 

:DRAWBM17,2C1F4DF" 

40 GET(0,0>- (31. 15) ,B.G 

50 DRAWBM62 . 0C2L6GL6G2C4L3GLGL 

GFDGLGLGLGFRFRFR3ERERER5FRFR3ER 

EREHLHLHL5HEHLHLH" : PAINT (48,8) : 

DRAW"BM41 , BC1FRFRFRNFUR2UR2URBM 

-4,-2HBM-5.7HBR17H" 

60 GET (32 ,0)-(63.15) ,C,G 

70 DRAWBM80 , 0C3G8R1 7NH8BD2LNL1 

5GLGLGLGL3NH3RFR7E" : PAI NT (80, 4) 

:PAINT(B0.13) 

80 GET(64.0)- (95, 15) , A. G 

90 DRAWBM96 , 0C4R30BD2L30DH30BD 

6UBU2HL4D2NR4D2BL7U3HL 3GDNR4D2B 

L12R4EHEHL5D2NR2D2BD2R30DL30BD2 

R30" 

100 GET(96.0)-(127,15) .BR.G 
110 DRAWBM148.0C2GL3GC4LHLGL3G 
4RF3RF5RFR3ERE4UER2E3LH3LHLGL5G 
L" : PAINT (144. 8) : DRAU"BM138 . 3C1R 
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O caça-níqueis •'Superfruil" é bem atraente no Acorn, ntkro que não existe no Brasil, À direita, como ete aparece no Spectrum. 



BR1 3RBDBL10LBDBL5LBDBR6RBR9RBDB 
L4LBL1 3LBD6FU0RBR<!BDLBL9LBDSR4R 
BG2LBH6R" 

120 GETU28.0)-(159,15) .S.G 

130 DRAW"BM186 , 0C3L2GL5DGR6DF4D 

G2LG3LGL5H6E5R2 " : PAI NT (176,8) :D 

RAWBR6BDC1D2F" 

140 GET(160,0) - (191. 15) , PL.G 

150 DRAWBM218 , QC2L4DL3D3F4DF4L 

GLGL13HLHUE7REU2":PAINT(208.6) ! 

DRAW"BM211,6C1DF2" 

160 GET(192,0)-(223,15) .P.G 

O nosso caça-níqueis é desenhado em 
PMODE3. Os comandos GET e PUT 
são utilizados para desenhar os símbo- 
los das frutas nas rodas giratórias. 

As matrizes que contêm os símbolos 
são dimensionadas na linha 20 — I 
ra o sino, C para a cereja, A para a bo- 
lota de carvalho, BR para a barra, S 
ra o morango, PL para a ameixa e P pa- 
ra a pêra. As matrizes RI, R2 e R3 re- 
presentam o conteúdo das três rodas; W 
contém os valores dos prémios e H é 
usada para segurar as rodas, impedin 
do que girem livremente. 



170 BS-CHFSU28) :CLS:PRINT ê9 , B 
S"nuperf ruit"BS 

180 PRINT"VOCE TEM 1 DÓLAR. CADA 
JOGADA CUSTA .10, ATE ACABAR 
O DINHEIRO" 
190 PRI NT" contro 1 ea : " : PRINT "<S 
PACE>"TAB(3) "-GIRA RODAS/ APOSTA 
":PRINT"<1>"TAB(3)"-LIBERA RODA 
S" 

200 PRINT "<2>"TAB { 3) " -SEGURA RO 
DA ESQUERDA":PRINT"<3>"TAB(3>"- 
SEGURA RODA DO MEIO" : PRINT"<4>" 
TAB (3) "-SEGURA RODA DIREITA" 
210 PRINT "<5>"TAB 13) " -EMPURRA 
RODA ESQ. P/ CIMA" : PRINT"<6>"TA 
B ( 3) " -EMPURRA RODA CENTRAL P/CI 
MA":PRINT"<7>"TAB(3)"-EMPURRA R 



ODA DIR. P/ CIMA" 
220 PRINT "<8>"TAB(3)"-EMPURRA 
RODA ESQ. P/BAIXO" :PRINT"<9>"TAB 
( 3) " -EMPURRA RODA CENT. P/BAIXO 
":PRINT " <0>"TAB (3) "-EMPURRA RO 
DA DIR-P/BAIXO-:PRINT"<ENTER>"T 
AB(3)"-RECOLHE O PREMIO" ; 

As linhas 170 a 220 escrevem as ins- 
truções na tela de textos. 



230 IF INKEYSO" " THEN 230 
240 FOR A-0 TO 15 : READ R1(A),R2 
(A) , R3 (A) : NEXT 

250 DATA 0.1.2.3.5.6,6,2.0,5,3. 
4.4.6,5,6,4,3,1.2.0,3,0,5.2,1,4 
,6,5,1,0,6.6,1,4,3,2,0,1.5,3,2, 
4,6,6,6,4,5 

260 FOR A-0 TO 9 : READW (A) : NEXT 
270 DATA 200,150,100.80.60.40,3 
0,20. 10,0 
280 GOSUB 4000 

290 SCREEN 1 , 0 : PCLS 3:DRAW"BM84 

, 4C2S20LDRDLBR2NU2RU2BRND2RDLBE 

BRNRDNRDRBRU2RDLFBRUNRURBRND2RD 

LFBRNU2HU2BRD2BR2U2LR2" 

300 FOR K-0 TO 2:LINE (40+64*K , 

20)- (87+64*K. 115} , PRESET , BF : NEX 

T 

310 FOR K-0 TO 2 : DRAW"BM"+STRS ( 
40*64*K) +" , 124S16R12D4L12U4BFD2 
BRUNLUBR2RD2LU2BR3D2RBR2U2S8RFD 
2GL" : NEXT 

320 GET(38.122)-(91,143) ,H,G 
330 COLOR 4:FOR K-l TO 5:LINE(1 
0+KM6, 158) - (21 + K*16, 169) , PSET. 
BF : NEXT 

340 DRAW"BR30C1S24U2F2U2BRD2RU2 
BRD2S8RE2U2H2LS24BR3LD2RUBENRDN 
RDR" 

350 GOTO 350 

4000 CLS:PRINT «1 1 , "prémios" 
4010 PRINT 665. "BARRA BARRA B 
ARRA": PRINT" BOLOTA BOLOTA BOLO 
TA": PRINT" AMEIXA AMEIXA AMEIXA 



4020 PRINT "MORANGO MORANGO MOR 
ANGO": PRINT" PERA PERA PERA 
": PRINT" SINO SINO SINO" 
4030 PRINT" CEREJA CEREJA CEREJ 
A": PRINT" SINO SINO -":PR 
INT" CEREJA CEREJA -": PRINT" 
CEREJA 

4040 FOR A-0 TO 9:IF A<7 THEN P 
RINT e89+A*32,USING"SSt.4l";W(A 

)/100i :GOTO 4060 

4050 PRINT §89+A"32.USING"SS#-l 

♦";W(A-1]/100 

4060 NEXT 

4070 PRINT «416. "PRESSIONE OPA 
CE> PARA CONTINUAR" 
4080 IF INKEYSO" " THEN 4080 
4090 RETURN 

As linhas 240 e 250 colocam as rodas 
na tela — cada número representa uma 
das frutas. As linhas 260 e 270 acertam 
os valores dos prémios. A linha 280 sal- 
ta para a sub-rotina que começa na li- 
nha 4000; esta exibe os resultados pre- 
miados e seus valores. 

As linhas 290 e 340 desenham a tela 
inicial. É a linha 290 que liga a tela de 
alta resolução, permitindo o surgimen- 
to do caça-níqueis na tela. 



O programa listado a seguir cuida es- 
pecificamente da pane gráfica básica do 
jogo caça-níqueis. 
5 CLEAR 5000 

10 SCREEN l:COLOR l.H.15:KEY O 
FF 

20 DATA 14,31,31,31,31.15.3.1,5 
6. 252, 252, 252, 252, Z4B, 224, 192 
30 DATA 49.42,51,42.50.255,255, 
255, 152. 84, 216, 84. 84, 255, 255, 25 

5 

40 DATA 3,4.8.28,62.62,62,28,28 

, 1 90 , 125 , 62 , 28 , 0,0,0 

50 DATA 0,0.16,28.15.7,3,0.4,12 

,26,56,248,240,224,0 

60 DATA 0. 0, 7, 15, 31, 31, 15, 7. B, 2 I 
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48,240, 740, 224, 224. 192. 12B 

70 DATA 1,3.3.7.15,15,24,1.128, 

192, 192.224. 240.240.24,128 

80 DATA 1.7,15.31,31,31.31.15.2 

24,240.240.240.240,224.192,126 

90 DATA 8.8.B.8. 73,42, 28.8,16,5 

6,84. 146,16. 16, 16,16 

100 FOR 1=15*8 TO 30*8 STEP 8 

110 FOR .1 = 0 TO 7 

120 READ AtVPOKE BASE ( 7 ) +1*8+ J . 
A 

1 30 NEXT J.I 

140 FOH 1-15 TO 31 

150 READ A:VPOKE BASE(6)+I,A 

160 NEXT 

170 DATA 143. 143, 31 . 31 , 111 , 111 . 
J 91 .191. 63.61. 223, 223. 159,159. 3 
1 .31,0 

180 D1M A(24. 2) ,B{24 , 2) ,C (24, 2) 
190 FOR 1-0 TO 11: READ A(l. 1).A 
(1,2) :A(Í + 12.1) -A(I.l) :A(I+12.2 
)=A(I,2) : NEXT 1 

200 FOR 1-0 TO .11: READ B(1,1).B 
(1.2) :B(l+12.1)-B[I.l) :B(1+12,2 
)=B(1,2) : NEXT 1 

710 FOR T-0 TO I 1 : READ C(I.1).C 
(1.2) :C (1+12.1) -C(I,1) :C 11+12. 2 
) -Cl 1.2) : NEXT 1 

270 DATA 200. ?0B. 120, 1 28. 136. 14 
4. 152. 160. 168, 1 76. 184. 192. 200,2 
08,216.224.168.176.136.144,216. 
224.120.12B 

230 DATA 216,224.136.144,200.20 
8, 152, 160, 216,2 24.168, 176,1 B4.1 
92. 120. 12B. 200,208,152. 160, 168, 
176,170.128 

240 DATA 120,128,200.208.184,19 
2, 152. 160. 21 6. 224. 120, 128, 136,1 
44 . 168. 1 76. 200.208. 184, 192.152. 
160.216.224 

860 PRINT " " 

B70 FOR 1 = 0 TO 31: UPOKF BA!!E(5 
)+I,254:NEXT 

B80 LOCATE 4,1):PHINT "10 CENTAV 
OS A .JOGADA" 

890 LOCATE if , 2 : PH I NT " ";CH»S( 
254);" BSEBBeEUHHBHFJHBBlBB 

■ r 

900 LOCATE 2, 3: PRINT " "[CHft$( 

7S4) ; " ^l l t ^Y " ;f.'H«5 (254 1 . " ■ 

" ; CHRS(254) ! " H3BBB1 " ;CHR5 
(254);- » 

910 LOCATE 2.4: PRINT " ";CHRS( 
754! ; " BOSBE " iCHH5(254 ) ;"BEE 
HB"i chrs (254) EBBBB5 " tCHR 

• (254] ■." ' 

920 LOCATE 7 . 5 : PR I NT " ■■■■ 

■fgiiaiigiiiiaaiD: - 

970 FOR 1 = 6 TO 14 : LOCATE B,1*PH 

1 nt STRIHG8U2.254) : NEXT 

990 LOCATE 0.4:PRÍNT "WllLOC* 

TE 0,6:PR1NT "20* i : LOCATE 0,8:P 

R 1 NT " 50" ; : LOCATE 25.4-PRINT "1 

00";: LOCATE 25 . 7 i PH I NT "RAPA";; 

LOCATE 24.8:PHINT " ■ :V 

POKE RASE(5)+2B/.197 

1000 LOCATE B.15:PRINT " ]■■□□ 

■ ■□□■■□": : LOCATE 10.16:PHINT 
"1 2 3": 

10)0 LOCATE 6.17:PBINT "4-U7 5 

• 2S3 6-1*3": LOCATE 6.18 :PR1NT 
I "HOLD TECLAS 1 A 6" ; 



1020 LOCATE 1.19-PRlNT BARRA 1) 
E ESPAÇO PARA RODAR" 
1030 LOCATE 0.70-PR1NT "SOLO SE 
CORA E N1IDC-E EMPURRA" ; 
1050 FOR 1 = 1 TO 2iVPOKE BASEIS) 
+159+1, A(2.t) :NEXT:LOCATE 0.5:P 
RI NT STRINC!S(4.254) l 
L060 FOH .1 = 0 TO 1 : FOR t-l TO 2: 
VPOKE fiASE(5)+221H + J*2,A(7.T) : 
NEXT I , .1 : LOCATE 2 , 7 : PB I NT CHRS ( 
2h4) ;CHR$(254) ; 

1070 FOR .1-0 TO 2:FOR [-1 TO 2: 
VPOKE BASE (5) +287+ I +J* 2 . A ( 1 . I i : 
NEXT I.J 

1072 FOR J»fl TO 2'FOR 1*1 TO 2: 
VPOKE BASE (5) + 1B5 + I+.I*2.A(3,I) : 
NEXT T.J 

1074 FOR .1-0 TO 2 : FOR T-l TO 2: 
VPOKE BA;;E('j)+217 + !+J-7,A(B,T) : 
NEXT I . .1 

1076 FOB J-0 TO 2: FOH 1-1 TO 2: 
VPOKE BASE (5)+313+I+J*2.A(6.I) ! 
NEXT I.J 

1080 FOB .1 = 0 TO 2: FOR 1=1 TO 2: 
VPOKE BASE(5)+319+I+J*2,A(5.T) ! 
NEXT I.J 

1090 FOR J^0 TO 2: FOR 1 = 1 TO 2: 
VPOKE BASE(5)+I51 J I+J*2,A{7,I) : 
NEXT I.J 

1)00 FOR 1=235 TO 500 STEP 96:F 
OR J-l TO 2: VPOKE BASE (5) +I+J-1. 
, A { (1-235) /96+1 , J) : NEXT J,T 
1110 FOR 1=239 TO 500 STEP 96:F 
OR .1=1 TO 2:VPOKE BASE (5) +I + J- 1 
, B ( í 1-239) /96+1 , J) :NEXT J.I 
1120 FOR 1=243 TO 500 STEP 96 : F 
OH .1=1 TO 2:WPOKS ÍÍASE(5)+1+.1-1 
, C ( (1-243) /96+1 . J) : NEXT J.I 
1130 LOCATE 22.13:PR)NT "TECLAS 
"; 'LOCATE 22,14: PRINT "NUDGE" i : 
LOCATE 21.12:PRINT "Q-W-E ":LQ 
CATE 21.15:PRINT "A-S-D " 
1140 LOCATE 0.13:PRINT "TOTAL" ; 
: LOCATE 0,14: PRINT " $" ; '• LOCATE 
0.15:PRINT "C" ; : LOCATE 2 , 1 4 : PRI 
NT "1";:L0CATE 2.15:PRINT "00": 
1150 LOCATE 1.23:MUKT "CACIFE 
INICIAL - 1 DOLLAB " ; 

Os blocos gráficos que se encontram , 
na listagem podem ser obtidos via teclas 
SHIFT. CODE e GRAPH. 

O programa é executado na tela de 
textos de 32 colunas. Ao mesmo tempo, 
os símbolos que representam as frutas 
são desenhados como se fossem carac- 
teres. Os padrões correspondentes de- 
vem ser iransferidos das linhas DATA 
20 a 90 para a tabela de padrões na 
VRAM — linha 120. Os caracteres são 
coloridos pela linha 150, que coloca os 
códigos apropriados na tabela de cores 
da VRAM — BASF.(ó). 

Três matrizes são utilizadas para re- 
presentar as rodas giratórias: A, B e C. 
Elas são dimensionadas na linha 180. A 
ordem dos símbolos nas rodas é obtida 
pelas linhas 190 a 210 nas linhas DATA 
220 a 240. 

A máquina de frutas, com as instru- 



ções ao jogador, é desenhada pelas li- 
nhas 860 a 1060. Os resultados premia- 
dos aparecem na tela com o auxilio das 
linhas 1070 a 1090. 

As rodas são desenhadas em sua po- 
sição inicial pelas linhas 1 1 10 a 1 120. E 
as linhas restantes dão mais algumas ins- 
truções. 

No próximo artigo, veremos como 
colocar as rodas em movimento. 

O programa listado a seguir cria os 
blocos gráficos e as telas com o eaça- 
niqueis e as instruções. 

10 HOME :E = 35000: H1MEM: E 
20 F = TNT (E / 256) : POKE 232 
,E - F * 256: POKE 233, F 
30 FOR I - E TO E + *1 + 16 * 

32 

40 READ A: POKE I . A 

50 NEXT 

60 SCALE- 1: ROT- 0 
70 DATA 20 .0 ,42 ,0 .74 .0 . 
106 ,0 ,138 .0 . 1 70 ,0 ,202 .0 
,234 ,0 ,10 .1 ,42 ,1 .74 .1 .1 
06 .1 .138 ,1 .170 ,) ,202 .1 . 
234 .1 .10 .2 ,42 .2 .74 .2 .10 

6 .2 .138 .2 

80 DATA 0 .72 .105 .77 .218 
.219 ,27 ,87 ,13 .13 .77 ,218 . 
251 .31 .87 .13 ,13 . 77 ,218 ,2 

51 .31 ,87 .9 .13 ,77 .218 .251 
,219 ,2 .0 .0 .0 

90 DATA 0 ,104 ,13 .77 .209 
.251 ,219 .51 ,13 .13 .13 ,14) 
,27 ,31 .3) .31 ,110 .13 ,13 .1 

41 ,27 ,31 .31 .3) ,110 .13 ,77 
.209 .219 ,27 ,31 .6 

100 DATA 0 ,40 .109 .73 .213 
,7^1 .751 .51 .45 ,77 ,105 .26 
.255 ,251 ,51 .45 .77 .105 .21 

B ,219 .219 ,42 ,45 .45 .45 ,21 

3 ,6.3 ,63 ,63 .55 .0 .0 

110 DATA 0 .104 .41 ,109 .20 

9 .251 ,251 ,87 .13 .45 .77 .21 

8 ,223 ,31 .119 .13 .77 .169 .2 
19 ,219 , 155 .45 .45 .45 ,173 . 
59 .63 ,63 .63 ,6 ,0 .0 

120 DATA 0 .72 .73 .73 ,218 
,223 .219 .74 .73 .73 .218 .223 

.219 .74 .9 .13 .141 .27 .223 
.251 .106 ,13 .77 .209 .2)9 .27 

,159 ,0 ,0 .0 .0 ,0 
110 DATA 0 .40 .77 ,73 ,209 
.219 .219 .115 .73 .73 .209 .21 

9 .219 ,B3 ,77 .73 .209 .219 ,2 
51 ,83 .13 .13 ,77 ,21B .219 ,2 
23 ,2 ,0 .0 .0 .0 .0 

140 DATA 0 ,72 .73 ,73 ,21B 
.251 ,219 .74 .73 ,77 .218 .251 

,223 .74 .105 ,77 ,218 .251 ,3 
1 ,87 .77 ,105 ,209 .219 .251 . 
19 ,0 ,0 ,0 ,0 .0 ,0 
150 DATA 0 .104 .73 .73 ,218 

,219 ,251 .110 .77 .73 .218 ,2 

7 ,31 .31 ,110 ,13 ,77 ,209 ,25 
1 ,31 .31 ,110 ,77 ,105 .218 .2 
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7 ,223 ,51 ,0 ,0 ,0 ,0 
160 DATA 0 ,72 ,73 ,73 .218 
,219 .219 ,74 ,9 ,13 ,141 ,27 . 
31 .31 ,159 ,13 ,13 ,13 ,141 ,2 

7 .31 .31 ,31 ,110 ,13 ,13 ,141 
,27 .31 .31 ,159 ,0 

170 DATA 0 ,72 .105 ,77 . 21B 

,251 .31 ,87 ,13 .13 ,77 , 21.B 
.219 ,31 ,87 ,13 ,77 ,137 .219 
,27 ,31 ,87 ,77 ,73 ,209 ,219 , 

219 ,19 .0 ,0 ,0 ,0 

180 DATA 0 ,72 ,73 .73 ,210 
,251 ,219 .74 .105 ,77 .218 ,25 
1 .31 ,B7 .73 ,73 ,209 ,27 ,31 
,31 ,87 ,9 ,13 ,77 ,218 ,219 ,2 
19 ,2 ,0 ,0 ,0 .0 
190 DATA 0 ,104 ,73 .73 ,218 

,219 ,251 ,110 .13 .77 ,209 ,2 
51 .31 .31 ,78 ,73 ,73 ,21B ,31 

,31 ,31 ,110 ,13 .77 ,209 .219 

,219 ,51 .0 ,0 ,0 ,0 
200 DATA 0 ,72 ,73 ,73 ,218 
,223 ,219 .74 .13 ,13 ,141 ,27 
,31 ,31 ,31 ,110 ,13 ,13 ,141 , 
27 .31 .31 ,31 ,78 ,13 ,13 .141 

,27 ,31 ,223 ,19 .0 
210 DATA 0 ,72 ,105 .77 ,218 

.219 ,219 ,110 ,105 ,73 . 21B . 
251 ,31 ,87 ,13 .13 ,77 ,218 .2 
51 .31 ,B7 ,13 .77 .137 ,219 ,2 
19 ,187 ,0 ,0 ,0 .0 ,0 

220 DATA 0 ,40 .45 ,45 ,45 , 
213 .63 ,63 .63 ,55 ,45 ,45 ,45 

.173 ,59 .63 ,63 ,63 ,78 ,73 , 
73 .218 ,219 ,219 ,74 ,73 ,73 , 

218 .219 ,219 .2 ,0, 0 

230 DATA 0 ,72 ,73 ,73 ,21 

8 .219 .219 ,106 ,73 .73 .216 . 

219 .251 .110 ,77 .73 ,218 ,31 
.31 ,159 ,9 ,13 ,13 ,141 ,27 ,3 
1 .223 .19 ,0 ,0 ,0 

260 DIM Bl(15) ,H2(15) ,B3U5) 
270 FOR I - 0 TO 9: READ Wtl): 
NEXT 

280 DATA 2,1.5,1. .8, .6, .4, .3 
, .2. .1.0 

300 GOSUB 310: END 
305 END 

310 HOME : HGR2 

320 DATA 54, 20 ,40 , 20 ,40 ,40 , 5 

4.40,54,60,40.60.0,0 

330 DATA 60,20,60,60,74,60.7 

4,20.0,0 

340 DATA BO, 60. BO, 20, 94. 20, 9 
4,40 . BO ,40 ,0 , 0 

350 DATA 114.20,100.20,100.1 
0,110,40.100,40.100.60,114.60,0 
.0 

360 DATA 120 . 60 , 1 20 , 20 . 134 , 2 
0.134,40,120.40.130,40,134,60.0 

,0 

370 DATA 154,20,140,20,140,4 
0,150 ,40,140,40.140,60,0,0 
380 DATA 160.60,360,20,174,20 
,174,40,160,40,170,40.174.60.0, 

0 

390 DATA 180.20,180,60,194,60 
,194,20,0.0 

400 DATA 210.20,210.60.0,0 
410 DATA 220.20.234,20,227,2 

| 0,227,60,200,200 

I 490 HCOL0R- 3 



500 READ X,Y 
510 HPLOT X,Y 

520 READ X,Y: IF X = 0 AND Y = 

0 THEN 500 
530 IF X - 200 AND Y - 200 THE 
N 590 

540 HPLOT TO X.Y 

550 GOTO 520 

590 HC0L0R- 3 

600 FOR I - 70 TO 150 

610 HPLOT 60.1 TO 210,1 

620 NEXT T 

630 HCOLOR- 0: FOR I - 80 TO 1 
40 

640 HPLOT 75,1 TO 105,1 
650 HPLOT 120,1 TO 150,1 
660 HPLOT 165,1 TO 195,1 
670 NEXT 
680 RETURN 

700 HOME ! PRINT TAB ( 15);"SU 
PERFHUIT": PRINT : PRINT 
710 PRINT "VOCÊ COMEÇA COM SI - 
CADA JOGADA CUSTA DEZ CENTAV 
OS. O JOGO DURA ATE SEU D 
INHEIRO ACABAR . ■ 

720 PRINT ! INVERSE : PRINT "C 
ONTROLES : * : NORMAL : PRINT 
730 PRINT "<ESPACO>"; TAB ( 10) 
;'GIRA AS RODAS/APOSTA" : PRINT 
"<1>"; TAB ( 10); "LIBERA AS RODA 
S" 

740 PRINT "<2>" TAB ( 10) "SEGUR 
A RODA ESQUERDA": PRINT "<3>" T 
AB[ 10) "SEGURA RODA DO MEIO": P 
RINT *<4>" TAB ( 10) "SEGURA RODA 

DIREITA" 
750 PRINT "<5>" TAB { 10)"EMPUR 
RA RODA ESQ. PARA CIMA": PRINT " 
<6>" TAB ( 10)"EMPURRA RODA CENT 
RAL PARA CIMA": PRINT "<7>" TAB 
( 10KEMPURRA RODA DIR.PAPA CIM 
A" 

760 PRINT "<8>" TAB ( 10)"EMPUfi 
RA RODA ESQ. PARA BAIXO": PRINT 
"<9>" TAB ( 10)"EMPURRA RODA CEN 
TRAL P/ BAIXO": PRINT "<0>" TAB 
( 10)"EMPURRA RODA DIR.PAPA BAT 
XO": PRINT "<ENTER>" TAB ( 10) "R 
ECOLHE PREMIO" ; 

765 PRINT : PRINT "<ESPACO> PA 
PA CONTINUAR " i 

770 GET AS: IF AS < > " " THE 
N 700 

775 RETURN 

780 FOR A - 0 TO 15: READ RUA 

) ,R2(A) ,R3(A) : NEXT 

790 DATA 0,1.2.3.5.6,6,2.0,5 

,3.4.4.6,5,6.4,3,1.2,0,3.0.5,2. 

1,4,6, 5. 1,0. 6. 6. 1.4. 3, 2. 0,1. 5, 3 

,2,4.6,6.6,4,5 

820 RETURN 

4000 HOME : PRINT TAB! 10);"V 
ALORES PREMIADOS" : PRINT : PRIN 
T 

4010 PRINT "BARRA BARRA BAPR 

A"; TAB ( 30) ;W(0) 

4020 PRINT : PRINT "BOLOTA BOL 

OTA BOLOTA": TAB ( 30);U(1) 

4030 PRINT : PRINT "AMEIXA AME 

IXA AMEIXA"; TAB ( 30);H(2) 

4040 PRINT : PRINT "MORANGO MO 

RANGO MORANGO"; TAB ( 31);W(3) 




CUIDADOS ESPECIAIS 

Verifique se as três partes do co- 
mando DATA ligadas aos objetos são 
lidas na matriz correta. Se tentarmos 
colocar uma cadeia de caracteres de 
um comando DATA em uma matriz nu- 
mérica, receberemos uma mensagem 
de erro, ou uma descrição curta onde 
esperávamos por uma longa. 

Tenha muito cuidado ao combinar a 
ordem das partes do comando DATA 
com a ordem das matrizes nos coman- 
dos READ, pois o mesmo problema po- 
de ocorrer. A ordem é: posição, descri- 
ção curta e descrição longa. 

Faça um "teste de mesa" na sua 
aventura, depois de ter colocado os ob- 
jetos, para verificar se eles aparecem 
nas posições corretas. 

Use seu mapa quando checar os ob- 
jetos. assegurando-se, assim, de que 
não está perdendo nenhum. 



4050 PRINT : PRINT "PERA PER 

A PERA" ; TAB ( 31) :W(4) 

4060 PRINT : PRINT "SINO SIN 

0 SINO" ; TAB ( 31) i«[5) 

4070 PRINT : PRINT "CEREJA CER 

EJA CEREJA": TAB { 31);W(6) 

4080 PRINT : PRINT "SINO SIN 

O" ; TAB 1 31) jW(7) 

4090 PRINT : PRINT "CEREJA CER 

EJA"; TAB ( 31) :W<7) 

4100 PRINT : PRINT "CEREJA"; T 

AB( 31) íW(B) 

41.10 GET AS: RETURN 

A primeira pane do programa, que 
vai da linha 10 à linha 230, cria uma ta- 
bela de figuras móveis no topo da me- 
mória do micro. Essa figuras são os sím- 
bolos das frulinhas, que podem então 
ser desenhadas por intermédio do co- 
mando DRAW. 

As linhas 320 a 670 desenham a má- 
quina caça-níqueis na tela de alta reso- 
lução (nenhuma fruta aparecerá por en- 
quanto). As linhas DATA de 320 a 410 
são usadas para escrever a expressão 
"SUPER-FRUIT". 

Uma tela com instruções destinadas 
ao jogador é criada pelas linhas que vão 
de 700 a 770. Outra tela, com os resul- 
tados que valem pontos, é escrita pelas 
linhas 4000 a 4100. 

Três matrizes são utilizadas para re- 
presentar as rodas: RI, R2 e R3. A or- 
dem dos símbolos nas rodas é determi- 
nada pela linha DATA 790. 

No próximo artigo, as rodas serão 
colocadas em movimento. 
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identifica ç ão das curvas 
uma elipse no cotid i ano 
nado parabólico 
círculos e polígonos 



No primeiro artigo sobre seções 
cónicas, mostramos como desenhar 
círculos, elipses, parábolas e 
hipérboles no micro. Agora, veremos 
como incorporá-los aos programas. 



Como vimos em alguns exemplos do 
artigo anterior (página 801), as curvas 
cónicas estão no nosso dia-a-dia, por to- 
da a parte, e muitas vezes nem chega- 
mos a percebê-las. Mas não é difícil 
identificá-las: basta recorrer às equa- 
ções. Se, ao calcularmos a posição de 
um objeto em movimento, verificarmos 
que sua coordenada X é dada por 
A*COS T e sua coordenada Y, por 
A*SIN T (onde A é uma distância fixa 
e T, um ângulo que varia), ficará abso- 
lutamente evidente que estamos lidan- 
do com a equação de um círculo. 

Por outro lado, algumas vezes é mais 
fácil analisar o modo como algo se mo- 
ve do que calcular suas equações. Se, 
por exemplo, observarmos que a distân- 
cia de um objeto a um ponto é sempre 
constante, saberemos que se trata de um 
circulo, sem precisarmos calcular sua 
equação. Esse tipo de análise também 
se aplica a outras curvas. 



ELIPSE, PARÁBOLA, HIPÉRBOLE 



Uma elipse não difere muito de um | <^tf 

círculo e, assim como este, é de fácil I ^j^^ 
identificação. Ela é desenhada quando I 



Ã medida que a escada escorrega, o balde ^ 
preso a ela traça parte de uma elipse. 
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um pomo se move de tal maneira que 
a sua disiância a um dos focos somada 
à sua distância ao outro foco permane- 
ce sempre constante. 

Uma parábola, por sua vez, é dese- 
nhada quando um ponto se move de tal 
modo que a sua distância a um ponto 
fixo é igual à distância perpendicular a 
uma linha fixa. O ponto fixo correspon- 
de ao foco da parábola. A linha fixa, 
chamada de diretriz, è uma reta perpen- 
dicular ao eixo de simetria da parábola 
e que não corta a mesma — ou seja, es- 
tá fora dela. Como já vimos, a distân- 
cia da diretriz a um ponto qualquer da 
curva é igual à distância desse mesmo 
ponto até o foco. 

A descrição da hipérbole também é 
simples: ela é obtida quando um ponto 
se move e a distância dele a um ponto 
fixo menos sua distância a outro ponto 
fixo permanece constante. Os pontos fi- 
xos, um em cada metade da hipérbole, 
são seus focos. 

Os programas apresentados a seguir 
demonstram os dois métodos de identi- 
ficação de curvas — isto é, o de equa- 
ções e o de observação do comporta- 
mento de um ponto em movimento. 
Uma vez percebida a presença de um 
certo tipo de curva num programa, fica 
bem mais fácil utilizá-lo. 



UMA ESCADA ESCORREGANDO 



O primeiro programa mostra parte de 
uma elipse obtida durante um evento co- 
mum: uma escada escorregando numa 
parede. Observamos que um balde pre- 
so ã escada traça parte de uma elipse à 
medida que esta escorrega. 

Suponhamos que a escada tem um 
comprimento de oitocentas unidades e 
que o balde está preso a quinhentas uni- 
dades do pé da escada. A posição do 
balde será X = -300*COS (ângulo) e 
Y=500*SIN (ângulo), o que sabemos 
corresponder à equação de uma elipse. 



140 PRINT CHHS [7) 

150 NEXT 

190 P EM BALDE 

200 IF í - 0 THEN VTAB (22): 

HTAB (22): PRINT "SPLASH" 

210 HPLOT 228 + X.154 - ¥ TO ! 



10 HOME :C = ATN (1) / 45 

15 HGR : HCÔL0R= : 

20 G0SUB 250 

30 GOSUB 50 

40 GOTO 40 

50 HEM ESCADA 

60 FOR A = BO TO 0 STEP - 10 

70 FOR T ' 0 TO 250: NEXT 

80 HPLOT 230 - 150 * COS (C • 
A). 150 TO 228,150 - 150 « SIN 



(C 



A) 



110 X - - 56 * COS (C i 
120 Y - 90 * SIN (C * A 
130 GOSUB 190 



A) 



26 ' 



X.150 



220 HPLOT TO 232 + X.150 - Y 
230 HPLOT TO 232 + X.154 - Y 
240 HPLOT TO 226 + X.154 - Y 

RETURN 
250 REM PAREDE 
260 OX =■ 230 

270 HPLOT OX,0 TO 0X.150 

280 HPLOT OX + 8,0 TO OX + 6,; 

50 

290 HPLOT OX + 16,0 TO OX + li 
.150 

300 FOR Y - 0 TO 150 STEP 10: 
HPLOT OX,Y TO 0X + 16. Y 
310 NEXT 
320 RETURN 



10 LET wall=240: LET ladder= 

60: LET bueket-190 

20 GOSUB vali 

30 GOSUB ladder 

35 FLASH 0 

40 GOTO 40 

60 FOR a=80 TO 0 STEP -10 
70 PAUSE 25: LET r=a/(lB0/PI) 
80 PLOT ox-150*COS (r},oy 
90 DRAW ox- (ox-150*COS (r) ) . 
oy+I50*SIN (r) 

110 LET x=-60*COS (r) 

120 LET y-90*SIN tr) 

130 GOSUB bucket 

140 SOUND .1, a/2-15 

150 NEXT a 

160 FLASH 1: PRINT AT 10,5;"SP 
LASH" 

170 RETURN 

190 PLOT ox+x,oy+y+5: DRAW 0.- 

2 

200 FOR n-oy+y TO oy*y+2: PLOT 
ox+x-2,n: DRAW 4,0 
210 NEXT n 
220 RETURN 

240 BORDER 0: I NK 7: PAPER 0: 

CLS 

250 LET ox-232: LET oy-8 
260 FOR y=l TO 20: PRINT 
PAPER 2 ; AT y . 29; " " 
2/0 NEXT v 

280 FOR y=oy-l TO 165 STEP 16: 
PLOT ox.y 

290 DRAW 16,0: PLOT ox,y+8: 
DRAW 16.0: PLOT ox+8,y+8: DRAW 
0.8 

300 NEXT y 

310 PLOT INK 4;ox+8.oy-l: 
DRAW INK 4i-232,0 
320 RETURN 



20 GOSUB 230:REM<parede> 
30 GOSUB 50:REH<escada> 
40 GOTO 40 

50 FOR AN-80 TO 0 STEP-10 

90 LINE(230-150«COS(C*AN) ,150)- 

(228,150-150*SIN(C*AN)) ,15 

110 X— 56*C03(C"AN) 

120 Y-90*SIN(C*AN) 

130 GOSUB 200:REM<balde> 

140 FORT-0 TO 500 : NEXT 

150 NEXT 

160 RETURN 

200 IF Y-0 THEN Y-4 :DRAWBM160 , 

156C1S16LDRDLBR2U2RDLBEBRD2RBRU 

2RDNLDBRRULURBRD2BRUNLUC4" 

210 LINE(228+X,154-Y)-(232+X,15 

0-Y) ,15, BF 

220 RETURN 

230 LINE(230,0)-(255.150) ,6,BF 
250 FOR Y-0 TO 150 STEP 10 
260 LINE 1230. Y) - (255. Y) .10 
270 NEXT 
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260 FOR Y-0 TO 150 STEP 20 

290 LINE(243.Y)-(243.Y+10) ,10 

300 NEXT 

310 LINE (0. 151 ) - (2bb. 191) . 3,BF 

320 RETURN 



10 PMODE 3,1:PCLS:SCREEN 1.0:C- 

ATNUJ/45 

20 GOSUB 230 

30 GOSUB 50 

40 GOTO 40 

50 FOR AN-80 TO 0 STEP -10 
70 COLOR 4,2 

90 LINE(230-150*COS(C*AN) . 150)- 

(228,150-150*SIN(C*AN)) .PRESET 

110 X— 56*C0S(C*AN) 

120 Y-90*SIN(C*AN) 

130 GOSUB 200 

140 FOR T-0 TO 500: NEXT 



150 NEXT 
160 RETURN 

200 IF Y-0 THEN ¥-4 : DRAWBM 160 , 

156C2S16LDRDLBR2U2RDLBEBRD2RBRU 

2RDNLDBRRULURBRD2BHUNLUC4- 

210 LINE(228+X,154-Y)-(232+X.15 

0-Y) .PSET.BF 

220 RETURN 

230 LINEÍ230, 0)-{255, 150) , PSET, 
BF 

240 COLOR 2 

250 FOR Y-0 TO 150 STEP 10 
260 LINE(230,Y)-<255,Y) , PSET 
270 NEXT 

280 FOR Y-0 TO 150 STEP 20 

290 LINE (243 . Y) - (243 . Y+10) .PSET 

300 NEXT 

310 COLOR 3:LINE(0.151)-(255,19 
1) .PSET.BF 
320 RETURN 

O programa compòe-se de (rês roti- 
nas principais — a que desenha a pare- 
de, a que desenha a escada e a que de- 




senha o balde. A parede é traçada pri- 
meiro, entre as linhas 230 (250 no Ap- 
ple) e 320. Depois, a rotina entre as li- 
nhas 50 e 160 desenha a escada em no- 
ve posições diferentes a intervalos de 10 
graus. Essa rotina chama a seguinle, que 
fica entre as linhas 1 90 e 220 (240 no Ap- 
ple) e tem a função de desenhar um bal- 
de para cada posição da escada. As 
coordenadas do balde são calculadas nas 
linhas 110 e 120, e, como vimos, elas 
formam a equação de uma elipse. As 
posições anteriores do balde e da esca- 
da não são apagadas, para que se per- 
ceba mais facilmente que o caminho per- 
corrido pelo balde realmente faz parte 
de uma elipse. 



Imagine o que acontece quando um 
nadador tenta atravessar um rio de 
águas rápidas. Mesmo que ele tenha co- 
mo alvo um determinado ponto na mar- 
gem oposta, a correnteza certamente o 
desviará um pouco do seu destino. Ca- 
so a velocidade da correnteza se equipa- 
re ã do nadador, a distância do desvio 
será igual à metade da largura do rio, 
e o efeito conjunto das duas velocida- 
des fará com que o nadador percorra 
um caminho parabólico. 

Para entendermos a razão por que is- 
so ocorre, devemos pensar em termos de 
velocidade. O nadador visa sempre um 
ponto na outra margem e nada com uma 
velocidade V, enquanto o rio corre pa- 
ralelamente à margem, com a mesma ve- 
locidade V. Combinando os dois valo- 
res, obtemos a velocidade real do nada- 
dor em relação à margem. 

Esse raciocínio baseía-se na regra do 
paralelogramo de forças, empregada em 
problemas de física. Ela é usada na 
construção de uma parábola, onde a dis- 
tância do nadador ao foco (ponto que 
ele visa na outra margem) é igual à dis- 



Um nadador que se move cor 
velocidade da correnteza do r 
uma trajetòria parabólica. 




IIIIIIIIHHHft 70 PROGRAMAÇÃO BASH 



IHIIIIIIIIIII 



tância dele até a diretriz (distância per- 
corrida pelo rio no mesmo intervalo de 
tempo). 



B1E 



(YC 



YT) 



330 BESTORE 
340 FOB N - 1 TO 16 
350 BEAD 5<X,YY 
360 GOSUB 420 

370 HPLOT TO XC + XT + .5.YC 
- YT + .5 
380 NEXT 
390 RETURN 

410 DATA 0,6,-6,0,0,6,6.0.0.6 
.0,14,6,12.0,14.-6.12,0,14.0.18 




CONDIÇÕES DE VISUALIZAÇÃO 

Várias providências podem ser to- 
madas para aperfeiçoar as condições 
de visualização do vídeo. Por exemplo, 
o esforço visual será diminuído com o 
uso de caracteres claros sobre fundo 
escuro. Assim, procure "sintonizar" 
pouco a pouco os controles de contras- 
te e intensidade, até melhorar a defini- 
ção dos caracteres. 

Experimente posicionar sua mesa de 
trabalho de tal maneira que a tela não 
reflita a luz proveniente de janelas ou 
de luminárias. Incline ligeiramente a te- 
la, dirigindo os reflexos para longe de 
seus olhos. Também é aconselhável 
cobrir a tela com um filtro anti-reflexivo 
|à venda em lojas de computadores}. 



.2.18,2,22,-2.22,-2,16,0,18 
420 XT - XX * COS (AN) - Y' 

SIN (AN) 
430 YT - XX * SIN (AN) + Y 

COS (AN) 
440 BETUBN 



10 HGB2 : HCOLOB- 3 

20 GOSUB 50 

30 GOSUB 200 

40 GOTO 40 

50 BEM DESENHA RIO 

70 FOB LY - 0 TO 38: HPLOT 0,L 

Y TO 279 , LY : NEXT 

80 FOR LY - 153 TO 191: HPLOT 

0.LY TO 279. LY: NEXT 

90 RETURN 

200 FOB I ■ - 1 TO - .05 STE 
P .1 

210 X - - 60 * T « T : Y - 120 * 
T 

220 AN - ATN ( (X + 60) / - Y) 
230 GOSUB 300 

240 FX - INT (130 + Y) : HPLOT 

FX.95 TO FX + B.95 

245 HPLOT FX + 4.91 TO FX + 8, 

95 

250 HPLOT TO FX + 4,99 
255 NEXT 
260 BETURN 

300 XC - 187 + X:YC - 33 - Y 
310 XX - 0:YY » 6: GOSUB 420 
320 HPLOT INT (XC + XT) , INT 



10 BOBDER 0: PAPEB 0: INK 7: 
CLS 

20 BEM no 

60 LET parabola-190 : LET Bvim 
■er-300: LET rotate-430 
70 LET aS-" 

80 FOR n=0 TO 3 

90 PRINT PAPEB 4iaS: NEXT n 
100 FOR n=4 TO 18 
110 PRINT PAPEB lsaS: NEXT n 
140 PRINT PAPER 2; INK 6;AT 3 
.15;"F"íAT 19, 15; "A" :AT 3,22i" 
O" 

150 GOSUB parábola 
160 STOP 

190 LET ox-187: LET oy-150 
200 FOR t--l TO -0.05 STEP 0.1 
210 LET x— 60*(t*t): LET y-120 
*t 

220 LET a-ATN ( (x+60) /-y) 
230 PLOT ox-60+y, oy-60 : DRAU 
INK 7;10,0: DBAW INK 7;-5.-5: 
DRAU INK 7;0,10: DRAU INK 7: 
5,-5 

240 GOSUB Bwimmer 
250 NEXT t 
260 BETURN 

300 LET ox-ox+x: LET oy-oy+Y 

310 LET x=0: LET Y-6 

320 GOSUB rotate 

330 PLOT ox+xt , oy+yt 

340 BESTORE 410 

350 FOB n-1 TO 17 

360 READ x,y 

370 GOSUB rotate 

380 DBAW xt.yt 

390 NEXT n 

400 LET ox-188: LET oy-150: 
BETURN 

410 DATA -3,0,0,3,3.0.0.-3.-2, 
0.0,-3,-4.0,0,4,0,-4,6,0,0,4,0 
,-4,-4,0.0,-4.-4,-4,4,4,4,-4 
430 LET xt=x*COS <a) -y"SIN (a) 
440 LET yt-x*SIN (a)+y*COS (a) 
450 RETURN 



fffi 



10 COLOR 15.9,9:SCREEN2 
20 GOSUB 50 
30 GOSUB 200 
40 GOTO 40 

50 LINE(0.38>-(255,153) ,5,BF 
60 DRAWBM123, 15BC1 5S16ND2RDNLD 

70 DBAW" BM123 , 25NBDNBD" 
80 DRAWBM180 , 25RD2LU2" 
90 BETURN 

200 FOR T=-l TO -.05 STEP .1 
21.0 X»-60*T*T;Y=120*T 
220 AN-ATN((X+60)/-Y) 



230 GOSUB 300 

240 DBAW"BM-+STRS(INT(130+Y))+ 

,95"*"C9R2NGH* 

250 NEXT 

260 BETURN 

300 XC-187+X:YC-33-Y 

310 XX "0 : YY-6 : GOSUB 420 

320 DBAW"BM" + STBSUNT(XC+XT)) + 

,"+STRS(INT(YC-YT)) 

330 BESTORE 

340 FOB N=l TO 16 

350 READ XX, YY 

360 GOSUB 420 

370 LINE-(XC+XT+.5.YC-YT+.5> ,1 
380 NEXT 
390 BETUBN 

410 DATA 0,6,-6,0,0,6.6,0,0.6, 
,14,6.12,0,14,-6,12,0,14,0,18, 
,16,2,22,-2.22,-2,18,0,18 

420 XT=XX*C09(AN)-YY«3IN(AN) 

430 YT-XX*SIN{AN)+YY*COS(AN) 

440 RETURN 



10 PMODE 3 , 1 : PCLS:SCBEEN 1,0 
20 GOSUB 50 
30 GOSUB 200 
40 GOTO 40 

50 COLOR 3,2:LINE(0.38)-(255.15 
3) , PSET , BF 

60 DBAW"BM123.158C4S16ND2RDNLD" 
70 DBAW" BM123 , 25NRDNRD" 
80 DRAW" BM1 BO , 25RD2LU2" 
90 BETURN 

200 FOR T--I TO .05 STEP .1 
210 X— 60*T*T : Y«120*T 
220 AN=ATN(<X+60)/-Y) 
230 GOSUB 300 

240 DRAW H BM"+STRS (INT (130+Y) )+" 

,95"+"C2R2NGH" 

250 NEXT 

260 BETURN 

300 XC=187+X:YC=33-Y 

310 XX-0:YY^6:GOSUB 42U 

320 DBAWBM"+STBS(INT[XC+XT)) + " 

, "+STBS(INT(YC-YT) ) 

330 BESTORE 

340 FOR N=l TO 16 

350 READ XX. YY 

360 GOSUB 420 

370 LINE - (XC+XT+. 5 , YC-YT+. 5) .P 
RESET 
380 NEXT 
390 RETURN 

410 DATA 0,6,-6.0,0.6.6,0.0,6,0 
,14,6.12,0,14,-6,12.0.14,0.18.2 
,18,2,22,-2, 22, -2, 1B, 0,16 
420 XT=XX*COS(AN)-YY*SIN(AN( 
430 YT-XX*SIN(AN)+YY*COS<AN) 
44 0 RETUBN 

A primeira seção do programa, nas 
linhas 50 a 160. desenha o rio e as mar- 
gens. A seção seguinte, nas linhas 170 
a 290, usa a equação da parábola (linha 
210) para calcular a posição do nadador. 
A rotina do nadador está entre as linhas 
300 e 400. Ela recorre à rotina de rota- 
ção (linhas 420 a 450) para garantir que 
o nadador seja desenhado com o àngu- 
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io correio, ou seja, para que esteja vi- 
sando sempre o mesmo ponto na outra 
margem (que, neste caso, corresponde 
ao foco da parábola). O formato do na- 
dador é definido pela linha DATA 410. 



círculos e polígonos 



Para o computador, um círculo na- 
da mais é do que um polígono de mui- 
tos lados. Quanto maior for o número 
de lados, mais lisa será a curva. Os usuá- 
rios do Apple já devem ter percebido 
que temos usado polígonos para obter 
círculos, compensando a lamentável fal- 
ta do comando CIRCLE. No programa 
a seguir, eles verão que as linhas 70, 75 
e 80 simulam um comando CIRCLE pa- 
ra o desenho de um círculo de raio 70 
e com centro em 127,95. Por uma ques- 
tão visual, fizemos o raio na direção Y 
um pouco menor (65 em vez de 70). Ca- 
so contrário, o círculo ficaria oval, apa- 
rentando ser uma elipse. 

LjCIS] 

10 PI - 4 * ATN (1) 

60 HOME : HGR : HCOLOR= 1 

69 HPLOT 197.85 

70 FOR TH = 0 TO 2 * PI STEP P 
1/16 

75 CX = 70 * COS (TH) + 127:CY 

- 65 * SIN (TH) + 95 
80 HPLOT TO CX.CY: NEXT 
90 VTAB (23): INPUT "FORNECER 
ANGULO ";A 

100 A = A ■ ATN (1) / 45 
110 GOSUB 260 

130 HOME : VTAB (23): INPUT "J 

OGA NOVAMENTE (S/N) " i AN3 

140 IF ANS - "S" THEN 10 

150 IF ANS < > "N" THEN 130 

160 HOME : TEXT : END 

260 TH = 2 * A 

270 N - 0 

280 HPLOT 185,95 

300 HPLOT TO 127 + 58 * COS 

[TH) ,95 - 5B * SIN (TH) 

310 TH = TH + 2 * A 

330 N - N + 1 

340 IF N < 15 THEN 300 

350 RETURN 




10 LET ox=100: LET oy=90 
20 LET polygon-260 
30 PAPER 0: INK 6 
40 BORDER 0 
50 CLS 

80 PRINT INK 7;AT 0,22;"Raio 

do" ' TAB 22;"circulo e" ' TAB 
22;"82 unid." 

90 PRINT INK 4iAT 21,0:"Intr 
oduza o ângulo" ; 



95 CIRCLE 100,90,82 
100 INPUT a 
105 PRINT AT 21.0;" 

110 GOSUB polygon 

120 PRINT AT 21.6:"Outra vez ? 

(S/N) " 

130 LET a$=INKEYS: IF aS-"a" 

THEN GOTO 20 

140 IF aS-"n" THEN STOP 

150 GOTO 130 

260 LET a-a/{180/PI) 

270 LET at-0 

280 LET t-2*a 

290 PLOT ox+82,oy 

300 FOR n=0 TO 15 

310 LET b-B2*COS (t)+ox: LET c 

=82*SIN (t)+oy 

320 LET b=(b-(PEEK 23677))- 

LET c-(c-(PEEK 23678)): DR AU b 

330 SOUND 0.01, In*5) -20 

340 LET t-t+2*a 

350 NEXT n 

360 RETURN 

IJKí 

10 COLORI, 15, 15 
20 GOSUB 90 
30 GOSUB 60 
40 GOSUB 120 
50 CLS: END 
60 SCREEN2 

70 CIRCLEU27.95) ,70, 13:CIRCLE( 
127,95) ,60,13:PAINT(127.30) ,13 
BO GOTO 260 

90 CLS:L0CATE9.10:INPUT"Forneça 

um angulo " ;A 
100 A=A*ATN(l)/45 
110 RETURN 
120 SCREEN0:CLS 

130 LOCATE5 , 10 : INPUT" Joga nova» 

ente (a/n) " ;ANS 

140 IF ANS="S" OR ANS="a" THEN 

RUN 

150 IF ANSO"N" AND ANSO"n" TH 

EN 120 

160 RETURN 

260 TH-2*A 

270 N-0 

260 DRAW"BMIB5,95" 

300 LINE- {127*58*COS(TH) .95-58* 

SIN(TH) ) , 1 

310 TH=TH+2"A 

320 PLA¥"T255L64V"+STR5(15-N)+" 

CAGF" 

330 N=N+1 

340 IF N<15 THEN 300 

350 IF INKEY$= " " THEN 350 

360 RETURN 

D 

10 PMODE 3,1 

60 PCLS:SCREEN 1,0 

70 CIRCLEU27.95) , 70 , 4 :CIRCLE ( 1 

27,95) ,60,4:PAINT{127,30) .4 

80 FOR G-l TO 2000:NEXT:COLOH 2 

90 CLS:PRINT:INPUT"QUAL O ANGUL 

O * i A 




podem ser obtidos pela sobreposição 
de curvas cónicas. 



100 A-A*ATN(l)/45 

110 SCREEN 1,0: GOSUB 260 

120 IF INKEYS-"" THEN 120 

130 PRINT : PRINT : INPUT"NOVAMENTE 

(S/N) "iANS 
140 IF ANS-"S" THEN 60 
150 IF ANSO"N" THEN 130 ELSE C 

LSiEND 
260 TH-2*A 
270 N-0 

280 DRAWBM185 , 95" 

300 LINE-(127*58*COS(TH) .95-58* 

SIN(TH)) ,PSET 

310 TH-TH+2*A 

320 PLAY-T20V"+STRS<31-N*2)+-C- 
330 N-N+l 

340 IF N<15 THEN 300 ELSE RETUR 
N 

O programa desenha um círculo e pe- 
de que forneçamos o ângulo que a pri- 
meira linha formará com o lado do cír- 
culo. O ângulo A ou a é convertido pa- 
ra Tela (TH ou I) na linha 260 da roti- 
na que desenha o polígono. O número 
de lados foi restrito a quinze (linha 340) 
para o diagrama não ficar parecendo 
apenas um emaranhado de linhas. 

Se fornecermos um ângulo pequeno, 
o polígono se assemelhará a um círcu- 
lo. Com ângulos maiores, a forma mais 
provável será a de uma estrela. 



ARTE POR COMPUTADOR 



O programa a seguir desenha hipér- 
boles com diferentes excentricidades e, 
sobre elas, várias elipses. Podemos com- 
binar outros tipos de curva para obter 
desenhos mais complexos — basta dar 
asas à imaginação. 

GE 03 

10 HOME : HGR2 : HCOLOR- 3 

20 C ■ ATN (1) / 45:PI - 4 * 

ATN (1) 

30 GOSUB 70 

40 GOSUB 255 
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50 C30TO 50 

70 FOB E - 1 TO 1.25 STEP .02 
100 A - 22:B = A * SQR (E * E 
- 1) 

110 HPLOT 128 + INT (A / COS 
( - 80 * C) ) .95 - INT (B * T 
AN { - 80 * O) 

130 FOfi TH - - 80 TO 80 STEP 
20 

H0 X - A / COS (TH * C) 
150 Y - B * TAN (TH * C) 
160 HPLOT TO ]28 + X.95 - Y 
170 NEXT 

180 HPLOT 127 + INT (A / COS 
(100 • C) ) ,95 - INT (B * TAN 
(100 * C) ) 

190 FOB TH = 100 TO 260 STEP 2 

0 

200 X - A / COS (TH * C) 
210 Y - B * TAN (TH * C) 
220 HPLOT TO 127 + X.95 - Y 
230 NEXT TH.E 
250 BETURN 

255 HCOLOK- 2: HPLOT 222.95 
260 FOR E ■ 1 TO .1 STEP - .0 
3 



PI STEP 



270 FOR AN - 0 TO 
PI / 16 

280 CX ■ 95 * COS (AN) + 127:C 
V = 90 " E " -SIN (ANI + 95 
290 HPLOT TO CX.CY: NEXT AN 
300 NEXT E: BETURN 



10 BOBDER 0: PAPER 0: INK 7: 
CLS 

20 LET hiperbola-80 
30 LET elipse-270 
40 GOSUB hiperbola 
50 GOSUB elipse 
60 GOTO 60 

80 LET ox=128: LET oy-B7 
90 FOR e-1 TO 2 STEP 0.05 
100 LET a = 22: LET b-a* (SQB !e" 

2-LJ > 

102 LET h=l 

104 LET f =ox+ (a/COS (-1.396)) 
106 LET g=oy+(b*TAN (-1.396)) 
108 IF g<0 THEN LET h-0 
110 PLOT INVERSE li OVEB l;f. 

120 IF g>0 THEN PLOT INK 6if 
. O 

130 FOR t=-80 TO 60 STEP 20 
135 LET r-t/UBO/Pt) 
140 LET x-a/COS (r): LET y-b* 
TAN (r) 

142 LET c-oy+y: LET d-ox+x 
150 IF h=0 THEN LET d = f+g* (f- 
d)/(c-g): PLOT d,h: LET c-0 
160 IF c>175 THEN LET d-d- ( {d 
-PEEK 23677)Mc-l?S)/(c-PEEK 
23678) ) : LET c-175 
170 DP AU INK 6:d-PEEK 23677, c 
-PEEK 2367B: NEXT t 
172 LET f-ox+(a/COS (1.75)) 
174 LET g-oY+(b"TAN (1.75)) 
176 PLOT INVERSE 1; OVEB l;f. 
■ h 

■l78 IF g<0 THEN LET h-0 



IRO IF g>0 THEN PLOT INK 6:f 

. g 

190 FOB t = 100 TO 260 STEP 20 
195 LET r = t/ (180/PI) 
200 LET x=a/{COS (r)): LET y-b 
*TAN (r) 

.202 LET c^oy+y: LET d-ox+x 
204 IF h = 0 THEN LET d = f + g* (f- 
d)/(c-g): PLCT d,h: LET c = 0 
206 LET h=l 

210 IF c>175 THEN LET d = 0- ( (d 

-PEEK 23677>*(c-175)/(c-PEEK 

23678) ) ! LET c=175 

220 DRAW INK 6;d-PEEK 23677, c 

- PEEK 23678 

230 NEXT t : NEXT e 

250 RETURN 

270 FOR e = 0.5 TO 0.98 STEP 
0.04 

280 LET a-100: LET b-a* (SQR (1 
-e-2)) 

290 PLOT ox+a.oy 

300 FOB t=0 TO 360 STEP 10 

305 LET r-t/ (180/PI) 

310 LET x-a*COS (r) 

320 LET y-b*SIN (r) 

330 DRAU x-(PEEK 2367 7) +ox , y- ( 

PEEK 23678)+oy 

340 NEXT t: NEXT e 

360 BETURN 




A equação para um circulo 
é usada para os polígonos. 



10 COLOR 1.15.15:SCREEN 2 
20 C-ATN<1) /45 
30 GOSUB 70 
40 GOSUB 260 
50 GOTO 50 

70 FOR E-1 TO 1.25 STEP .02 
100 A-22:B=A*SQfi(E*E-l) 
110 DRAWBM"+STRS(128 + INT(A/COS 
{-80*0 } ) +" . "+STR3 (95-INT (B*TAN 
<-B0*C) ) ) 

130 FOR TH--80 TO 80 STEP 20 

140 X=A/COS(TH*C) 

150 Y-B*TAN !TH*C) 

160 LINE-(128+X,95-Y) ,1 

170 NEXT 

160 DRAW"BM"+STRS(127+INT(A/COS 
(100*0))*-". "+STBS (95-INT (B*TAN 
(100*C) ) ) 

190 FOB TH-100 TO 260 STEP 20 

200 X-A/COS(TH*C) 

210 Y=B*TAN (TH*C) 

220 LINE-(127+X,95-Y) ,1 

2 30 NEXT TH.E 

250 RE TU RN 

260 FOR E-1 TO .1 STEP -.03 
270 CIBCLEU27 ,95) ,95,8, . ,E 
280 NEXT : RETURN 



10 PMODE 3,1: PCLS2 : SCREEN 1.0 
20 C-ATNíD/45 
30 GOSUB 70 
40 GOSUB 260 
50 GOTO 50 

70 FOR E-1 TO 1.25 STEP .02 

100 A-22:B-A*SQR(E*E-1) 

110 DBAW BW + STRS ( 1 2 6 + INT (A/COS 



(-80*0 ) ) +" . "+STRS (95-INT (B*TAN 
(-80*0 ) 1 

130 FOR TH--80 TO 80 STEP 20 

140 X=A/C0S(TH*O 

150 Y-B*TAN(TK*C) 

160 LINE-U28+X.95-Y) , PSET 

170 NEXT 

180 DRAW-BM" + STRS(127-HNT(A/COS 
(100*C) ) ) +" . "+STRS (95-INT [B*TAN 
(100*0 ) ) 

190 FOR TH-100 TO 260 STEP 20 

700 X-A/COS (TH*C) 

210 Y=B*TAN (TH*C> 

220 LINE-U27+X.95-Y) .PSET 

2 30 NEXT TH.E 

250 RETURN 

260 FOR E-1 TO .1 STEP .03 
270 CI8CLE(127.95) .95, 3.E 
280 NEXT : RETURN 



Tanto a elipse quanio a hipérbole po- 
dem ser desenhadas com exceni deidades 
diferentes — este é o papel que cabe à 
variável E ou e. 

Para as elipses, K varia de 0 alé 1, 
fazendo-as ir desde um círculo até uma 
reta. No programa, E varia de .5 a .98, 
o que garante que as elipses sejam sufi- 
cientemente abertas. 

Nas hipérboles. E pode variar de 1 até 
o infinito, mas, novamente, o progra- 
ma restringe o intervalo, fazendo com 
que E varie de 1 a 2. Quanto maior for 
E, mais próxima a hipérbole estará de 
uma reta. 

É muito fácil calcular a excentrici- 
dade de uma elipse ou de uma hipér- 
bole. Para uma elipse de equações 
X = A*COS T e Y = B*SIN T, a fórmu- 
la será E' = B 2 /A ! -1, como pode ser 
observado na linha 280 do programa pa- 
ra o Specírum. Os outros micros não 
precisam calcular a variável E, que é 
simplesmente incorporada ao comando 
CIRCLE (MSX e TRS-Color) ou à si- 
mulação do mesmo (Apple, linha 280). 

Para uma hipérbole cujas equações 
são do tipo X = A/COSTe Y = B"TAN 
T, temos E 2 = 1-BVA ? . Uma versão 
adaptada dessa fórmula é utilizada na 
linha 100 do programa. 
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05 SEGREDOS 
DOSPECTRUM(l) 



■ 


COMO ESCREVER NAS 


LINHAS RESERVADAS DA TELA 


■ 


DELIMITAÇÃO DAS AREAS 


INDEPENDENTES DA TELA 


■ 


UMA TELA LISTRADA 



Outra aplicação importanle consiste 
na criação de "janelas": áreas indepen- 
dentes de texto ou de gráficos, muito 
usadas nos "pacotes" mais modernos 
para micros profissionais. 



UMA TELA LISTRADA 



Pode-se obter um outro efeito inte- 
ressante de tela quando o computador 
está sem fazer nada — aguardando, por 
exemplo, que uma tecla seja pressiona- 
da (função INKEYS). Nesse tipo de si- 
tuação, sofistique seu programa com a 
rotina apresentada a seguir. Ela indica 

0 estado de espera, fazendo a moldura 
da tela exibir continuamente um listra- 
do cambiante de cores: 

1 GOTO 100 

2 BORDER 1 : BORDER 2 : BORDEH 4: 
BORDER 5: BORDER 6 : BORDEH 7: 
PAUSE lilf INKEYS-"" THEN GOTO 
10 

3 LET XS"INKEYS : RETURN 

BO REM 

90 REM PROGRAMA PRINCIPAL 

95 REM 

100 GOSUB 10 

110 PRINT XS:C0TO 100 



Existem muitos recursos "ocultos" na 
ROM do ZX Spectrum. Conhecendo-os, 
você poderá empregar fantásticos 
truques de programação em BASIC, 
obtendo o máximo de seu computador. 

O micro Sinclair ZX Spectrum ilus- 
tra muito bem o famoso ditado "tama-' 
nho não é documento". Os felizes usuá- 
rios dessa popular maquininha, que já 
tiveram a oportunidade de conhecer 
mais a fundo seus recursos técnicos, po- 
dem testemunhar o quanto eles são po- 
derosos — mais até do que os encontra- 
dos em muitos microcomputadores pro- 
fissionais, maiores e mais caros. 

Na série de artigos que iniciamos 
aqui, você verá de que modo pode ex- 
plorar alguns "recursos secretos" do 
Spectrum e de seus compatíveis nacio- 
nais (como o TK-90X e o TK-95 da Mi- 
crodigital) e internacionais. 

Por que "secretos"? Como você 
mesmo terá oportunidade de verificar, 
tais recursos não estão documentados 
no Manual de Operação e, portanto, são 
desconhecidos da grande maioria dos 
usuários. 



A TELA PROTEGIDA 



É provável que você ainda não tenha 
descoberto a possibilidade de escrever 
nas duas linhas da parte de baixo da te- 
la. Normalmente, não se usa o coman- 
do PRINT para escrever nessas linhas, 
pois elas são reservadas para a entrada 
de dados (INPUT), para a entrada e edi- 
ção de programas e para a impressão de 
mensagens de erro do interpretador BA- 
SIC. E muito fácil, porém, modificar 
um comando PRINT de tal maneira que 
se possa utilizar essa área independente 
da tela: 

10 PRINT 0 ; "Henoagem" 

O comando funciona evidentemente 
dentro de um programa. O número ze- 
ro, colocado entre o PRINT e a mensa- 
gem a ser escrita, provoca o efeito de- 
sejado. Para limpar a parte de baixo da 
tela sem afetar a área normal de escri- 
ta, use a instrução: 



20 INPUT "" 

Proçure não deixar um espaço em 
branco entre as aspas, pois o comando 
não funcionará. 

Experimentando um pouco mais, vo- 
cê fará novas descobertas sobre a parte 
inferior da tela. Verá, por exemplo, que 
ela não é limitada às duas linhas antes 
mencionadas. Dessa maneira, se mais 
palavras forem incorporadas ao progra- 
ma, a parte de baixo se expandirá, "em- 
purrando" para cima a parte superior 
da tela. 

Pode-se também usar o comando 
PRINT AT na parte inferior da tela, 
neste caso, porém, a numeração deve ser 
independente. 

Tente o seguinte: 

10 PRINT 0;"INPUT";AT 12,0: 
"APRESENTA DICAS" 

Se você quiser limpar a parte de bai- 
xo, após uma pequena pausa, acrescen- 
te estas linhas: 

2 0 PAUSE o 

30 INPUT -~:PAUSE 0 

E, para obter sucessivas repetições,' 
acrescente: 

40 GOTO 10 

Finalmente, se para você é difícil per- 
ceber onde começa cada área indepen- 
dente da tela, adicione ao programa a 
linha a seguir, e rode-o novamente. Co- 
mo você verá, o comando BORDER co- 
loca uma moldura de cor diferente na 
parte de cima da tela. 

5 BORDER 2 



APLICAÇÕES 



Mas para que servem esses truques? 
Tudo depende de sua capacidade de co- 
locar a imaginação para funcionar. 

A escrita na pane inferior da tela po- 
deria ser utilizada, entre outras coisas, 
para deixar fora da área principal as 
mensagens de prontidão para entrada de 
dados. Assim, ao realizar, por exemplo, 
uma animação gráfica, será possível co- 
locar mensagens num ponto em que não 
atrapalhem o movimento nem sejam 
destruídas por ele. 



A instrução da linha 2, PAUSE 1, 
sincroniza as mudanças nas cores da 
moldura de modo que ocorram simul- 
taneamente ao início da varredura da te- 
la. Assim, elas parecem estar estacioná- 
rias. Experimente tirar o PAUSE 1 pa- 
ra ver o que acontece. 

O número de comandos BORDER 
também desempenha uma função: co- 
mandos que estejam a mais ou a menos 
forçarão uma perda da sincronização. 

Introduza a rotina da linha 2 no co- 
meço do programa principal, que deve 
ser colocado a partir da linha 100. A li- 
nha 1 serve apenas para pular até o iní- 
cio do programa. O truque é necessário, 
pois o GOTO existente na linha 2 pro- 
vocará um grande retardo se a sub-roti- 
na estiver no final da listagem. Como o 
interpretador BASIC procura a linha de 
destino a partir do inicio do programa, 
sempre que encontra um GOTO, a de- 
mora será maior se houver um longo 
programa antes da linha que contém a 
instrução de desvio. 
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UMA AGENDA 
ELETtôNO 



Apresentamos aqui a parte final do 
nosso programa de agenda e calendário. 
Tendo listado as últimas rotinas, você 
poderá, finalmente, explorar todas as 
possibilidades desse versátil programa. 



Se você já tem as duas partes ante- 
riores deste programa gravadas em dis- 
co ou fita, carregue-as na memória do 
micro e digite as linhas que faltam. O 
programa estará completo e você pode- 
rá começar a usá-lo para manter um re- 
gistro de todos os seus compromissos fi- 
nanceiros, sociais ou de saúde. 

É aconselhável que releia as instru- 
ções para a utilização do programa da- 
das nos dois primeiros artigos da série. 
Instruções adicionais sobre gravação e 
leitura de dados da fita ou disco são for- 
necidas a seguir. 

É fácil lidar com o programa. O me- 
nu principal permite que você escolha 
exatamente o que deseja, em cada situa- 
ção. A todo instante, você encontrará 
uma mensagem indicando como proce- 
der. Todos os pontos de entrada de da- 
dos têm uma rotina de verificação. Por- 
tanto, não se preocupe muito em digi- 
tar dados incompatíveis — o programa 
simplesmente voltará a solicitar o dado. 



GRAVAÇÃO DOS DADOS 



Após entrar os dados de sua agenda, 
escolha a opção 8 para gravá-los. No 
Apple 11, o programa prevê o emprego 
de um drive; nos demais micros, de fita 
cassete. Há uma rotina especial para 
quem utiliza o TRS-Color com drives. 
Se você usa fita, deixe o gravador pre- 
parado para receber os dados quando 
solicitar a opção 8. 

Ao usar novamente o programa, res- 
ponda S à pergunta "Você tem listas de 
dados?". Os dados preexistentes serão 
carregados para a memória, podendo 
ser atualizados, apagados, listados. An- 
tes de leclar S, deixe o gravador pronto 
para ler a fita com os dados. 

O nome para esse arquivo è "DIÁ- 
RIO". Assim, adote outro nome para 
o programa (CALENDÁRIO, por 
exemplo). 



1760 LET M4*0: LET A4 = 0 

L770 1NPIJT "ANO : " i YR : 1F YH<175 

3 OB YB>29999 THEN GOTO 1770 

] 780 GOSUB. 640 

1790 GOSUB 2480 



1800 CLS 

1810 POKE 23692,255 

1B20 PHINT |P;"AN() " j YR 

1830 PRINT IP : LET KB~0 : GOSUB 

1920: PRINT #P 

1840 GOSUB 2460 

1850 FOR z=l TO 12 

1860 LET MO-7 

1870 PRINT *P;MS(MO*9-8 TO M0"9 
) 

1B80 LET T2-5: LET S2 = (): GOSUB 
2020 
1 890 

TBEH 
1900 
1910 
L920 



] THEN PRINT |P 

2200 IF DAOM5 THEN GOTO 2130 

2210 IF MO=ME THEN PRINT #P:: 

PR t NT »P;"Domingo de Páscoa ";M 

S<ME*9-8 TO ME*9} ; I>E 

22Z0 IF P"3 THEN PRINT AT 10,0 

;7.$: PRINT AT 10,13; "PRONTO" 



IF P-2 THEN IF INKEY3-"" 

GOTO 1890 
NEXT z 
RETURN 

LET X2-0: LET C2-0: LET D2 



1930 IF KB-0 THEN LET X2=7: PB 



1940 
1950 
1960 
1970 
1980 



7 000 
2010 
7020 
2030 



IF P=3 THEN LET KB-KB+1 
PRINT IP;Z5( TO X2) ; 

FOR d*-] TO 7 

1NK 4: IF il=J THEN INK 2 

PRINT |P;ZS( TO KB);sS(«J- 

1 TO (d-l)*3+3) ; 

NEXT d 

f NK 7 

RETURN 

PM NT 

I F P-3 THEN PRINT AT 10,4 
,!!H l;"iiAll>A PARA A JMPHESS 



5(1 IF S2 
' V2<" 



THEN LET AS-" 



LE 



LET AS=AS+" 



JfiUB 27Í): LET 



2060 IF S2 = 0 THEN LET X2-7 
T W2-3 

207U IF P=3 THEN 
: I.ET W2-W2 H 
708(1 LET DA-1 
7090 LET KB-MO: 
M5-KB 

2100 GOSUB 560: LET K2-7: LET X 
p-FN M(KH) 

7110 PBINT IP;Z5( TO XP*W2) ; 

2.1.20 I.ET DA = 0 

2130 PRINT IP;ZSt TO X2) ; 

2140 LET DA-DA+l : LET- DS-A3+ (ST 

RS {DA))+" ": IF LEN D$<W2 THEN 

LET DS=DS+ZS< TO W2-LEN DS) 
2150 IF AS="" THEN PRINT *P:DS 
; : GOTO 2170 

2160 LET KB=T2 I GOSUB 350: PBIN 
T | P ; INK KHiDS: 
21 70 LET XP=XP+1 

21B0 IF NOT {XP>6 OR DA-M5) THE 
N GOTO 2140 

2190 LET XP=0: PRINT »P: IF S2= 
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■ 


ROTINAS QUE COMPLETAM 




INFORMAÇÃO PARA A MEMÓRIA 




U rríUunMiviH 






■ 


GRAVAÇÃO DAS LISTAS DE 


■ 


A ROTINA DE IMPRESSÃO 




AGENDA EM FITA 


■ 


MUDANÇAS PARA 


■ 


COMO CARREGAR A 




SISTEMAS COM DISQUETE 



2230 HETUBN 
2240 GOSUB 2510 

2250 LET T2-0: LET MX=0 : LET N2 
=0: LET A$="": LET CL = 0: LET M9 
=MG: LET 

2260 GOSUB 24B0 : CLS 
22/0 GOSUB 2570: PB1NT IP 



2280 PRIHT IP;"DTA ENTRADA" 
: PP.1NT AT 0.18; "Qualquer tncla 
l>ara"'TAB 18 j "próxima entrada" 
2290 PR1NT IP 
2.100 GOSUB 2460 

2310 TF MO = ME THEN PBINT IPl I 
NK SiDEl" Domingo de Páscoa" 



2320 PBINT IP 

2330 FOR t = l TO 4 

2340 LET MX=Q(t) 

2350 IP MX = 0 THEN GOTO 2410 

2360 FOB N-J TO MX 

2370 LET KS = LSIt..N) 

2380 LET KB = t 




2390 LET K2=3: GOSUB 470: IF K2 
=1 THEN PRINT IP ; INK 2(t):K3{ 
2 TO 3) ; " " ;KS(10 TO ) 

2400 NEXT N 

241P IF TNKEYS-" " THEN GOTO 24 
10 

2420 NEXT 1 

2430 FOR ]=1 TO 100: NEXT 1 
2440 ÍF INKEYS="" THEN GOTO 24 
40 

2450 [.ET MO-M9: LET YB = Y9 : RETU 
RN 

2460 IF INKEYS=" " THEN GOTO 24 
60 

24 70 RETURN 

24B0 PBINT ! PBINT "DESEJA IMPB 
IMIR {S/N} ?": LET K3-"3n": GOS 
UB 1480 

2490 LET P-2: IF KB=1 THEN LET 
P-3 



2520 TF M0<1 OB MO>12 THEN GOT' 
O 2510 

2530 INPUT "ANO ?";YR 

2540 IF YEK1735 OB YH>29999 THE 

N GOTO 2530 

2550 GOSUB 640 

2560 BETUBN 

2570 PBINT |Pi PAPEB 1: INK 7;M 
S(M()*9-B TO MO«9);" " : YR 
2560 RETURN 




di 



APLICAÇÕES PROFISSIONAIS 
DO PROGRAMA DE AGENDA 

O programa de agenda e calendái 
além de funcionar bem para a man 
cão e acompanhamento de compromis 
sos e atividades de natureza pessoal 
pode ter diversas aplicações profi 
nais. tal como a marcação de co 
tas em uma clínica médica ou odonto 
lógica. Para isso, será necessário rr 
dificar o programa em alguns ponti 
ioís o nível e o tipo de informações que 
agenda profissional requer são 
■em diferentes dos de uma agenda 
pessoal. 

Tomemos como e: 
profissional de um dei 
formações como da] 
sulta, nome, 
ela pode incorpora 
do - 

adotado (obtui 

ição previ 

para a cons^B, a em que e 
será reali2ada. Rltro5^QfiS a DOdem ser 

incluídos, como o sali 
ceiro do paciente e a fonte 
(convénio, por exemplo). 

Os relatórios obtidos a partir de uma 
agenda também são muito diferentes 
para um profissional. No caso do den- 
tista, ele poderia precisar não só da 
agenda diária impressa, com a lista dos 
atendidos e di 

s que faltaram, 
se e"sT^|tica dos proce 
mês etc 




2240 ' IMPBIME MES -T2-S2 

2250 M5-0:XP-0:X2-0:W2-0:A2S="" 

:D2$-"" 

2260 IF S2-1 THEN A2S-" " :W2-4 
2270 IF S2-0 THEN X2-7:W2-3 
22B0 IF P-2 THEN A2S-A2S+" " :W2 
-W2+1 
2290 DA-1 

2300 KB-MO:G0SUB 230:M5-KB 
2310 GOSUB 560:K2-7:XP=FNM(KB) 
2320 PRINT |-P.STRINGS(XP*(W2) . 

32) i 

2330 DA=0 
2340 REM 

2350 PBINT |-P,STBINGS(X2," "); 
2361 

^ D2S-A2S+MIDS (STBS ( 
LEN {D2SXW2 THEN 

F-D2S- 

IF A2S-"" THEN PRINT |-P.D 
t 2400 

:GOSUB 310:MIDS(D23. 
|r.B} :PBINT|-P.D2S 



2650 M0=M9:YR-Y9: BETUBN 

2660 'ESPERA POR TECLA 

2670 P1-PEEKU36) : P2-PEEK ( 137) 

2680 PBINT §480. "QUALQUER TECLA 

PABA CONTINUAR"; 
2690 IF INKEYS-"" THEN 2690 
2700 PRINT «480.STRINGS(30,32) ; 
:P0KE 136,P1:P0KE 137.P2 
2710 RETURN 
2720 ' IMPRESSÃO 

2730 PRINT : PRINT "GOSTARIA DE IM 
PRIMIR (S/N) 7":KBS-"SN":GOSUB 
1590 :IF KB-1 THEN P-2 
2740 RETURN 
2750 REM 

2760 INPUT"MES:";MO 

2770 IF M0<1 OR MO>12 THEN 2760 

2780 INPUT" ANO:";YR 

2790 IF YR<1753 OR YR>29999 THE 

N 27B0 

2B00 GOSUB 650 
2610 RETURN 
2B20 REM 

2830 PRINT MIDS (MNS ,MO«9-8 ,9) ; " 
" : YR 

2840 IF P-2 THEN PRINT |-2,MIDS 
(MNS,MQ"9-8,9> ;" ";YR 
2850 RETURN 




I0T(XP>6 OR DA-M5) 
:IF S2' 




2420 XP-0:PBINT 
N PRINTI-P 

2430 IF DAOM5 THEN 2340 
2440 IF MO-ME THEN PRINT 
INTI-P, "DOMINGO DE PÁSCOA 
S(MNS,ME*9-8,9) ; DE 
2450 RETURN 
2460 'ROTINA DIÁRIO 
2470 T2-0:MX-0:N2-0:AS-"":CL-0: 
M9-M0:Y9-YR 

2480 GOSUB 2750:GOSUB 2720:CLS 
2490 GOSUB 2820 : PRINT |-P 
2500 PRINTI-P. "DJ4 _ENTRADA' 
2510 GOSUB 2660 
2520 IF MO-ME 
; "DOMINGO DE P, 
2530 FOR T2=0 
2541 
2551 
2560 



T2 



OA" : PRINT J 



SUB 470: 1 F 



N Cl 

(T2,D)) 
THEN 2620 

258( 

2590 AS-LISÍT2 

2600 KBS-AS:GOSUB 4^1F K2-1 
HEN PRINT |-P,MID$(STR3(ASC(MID 
3(A3.2.1)>) .2) ;TAB(3) ;CHRS(CL) ; 
RIGHTS (AS, LEN (AS) "4) 
2610 NEXT : PBINT #-P 
2620 IF P-0 AND INKEYS-" " THEN 
2620 

2630 NEXT 

2640 IF INKEYS-"" THEN 2640 



TM 



, 2760 IF 
2270 IF 
m 22BO IF 
■£^^W2 + 1 

229C DA 




S2-1 THEN A2S= 
2270 IF S2=0 THEN X2=7:W2»3 
22BO IF P-2 THEN A2S=A2$+~ 
2 + 1 

DA-=1 

KB=MO:GOSUB 230:M5=KB 
GOSUB 560:K2=7:XP=FNM(KB) 
PBINTIP. STRINGS(XP«W2.32) 

330 DA=0 
2340 REM 

2350 PRINTIP, STBINGS(X2, 
2360 REM 
2370 DA=DA+1 :D2S=A2S+MTDS(STB3l 
DA), 2)+" ":IF LEN{D2S)<W2 THEN 
D2$=D2S*" ' 

2380 IF A2S-"" THEN PRINTIP, D2S 
; :GOT0 2400 

2390 KB=T2:GOSUB 310 : MIDS (D2S , 1 
, 1)=CHBS (KB) : PRINTIP , D2S i 
2400 XP-XP+1 

2410 IF N0T(llf>6 OR DA=M5 ) 

2360 
2420 XP-0 

PBINTIP. 
2430 IF Di 
2440 
NTIP 
: "de 

2450 HE' 
2460 
2470 Í7' 
M9=M0 : Y9-YR 
2480 GOSUB 2750:1 
2490 GOSUB 2820 : PRINTIP . 
2500 PBINTIP ."Dia Comprom 




GOStPI 



THEN 



THEN 



; UE 



CL-0: 



:CLS 
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2510 GOSUB 2660 

2520 IF MO = ME THEN PRINTtP."dia 
" ; DE ; "Domingo de Páscoa" : PRINT* 

P, 

2530 FOR TZ^O TO 3 
2540 CL-32 

2550 IF P-2 THEN CL-32 

2560 MX'VAL(LIS(T2,0)) 

2570 IF MX-0 THEN 2620 

2580 FOR N2*l TO MX 

2590 AS=LIS(T2.N2) 

2600 KBS=AS:COSUB 4/0:IF K2=l T 

HEN PRINT|P,MID$<STHS(ASC(MIDS( 

AS. 2.1))) .2) ;TAB(3) ;CHRS(CL) ;RI 

GHT3(AS.LEN{AS)-1) 

2610 NEXT: PRTNT*P. 

2620 IF P-3 AND INKEY3-"" THEN 

2620 

2630 NEXT 

2640 IF INKEYS-"" THEN 2640 
2650 MO-M9 : YR-Y9 : RETURN 
2660 RETURN 

2720 ' opção íipresaão 

2730 PRINT : PRINT"0.uer imprimir? 

(S/N) " :KBS="3N" : GOSUB 1590:IF 
KB-1 THEN P-2 
2740 RETURN 
2750 ' rotina de data 
2760 INPUT ' Mee:";MO 
2770 IF MO<l OR MO>12 THEN 2760 
27B0 INPUT ■ Ano:":YR 
2790 IF YR<1753 OR YR>29999 THE 
N 27B0 i 
2600 GOSUB 650 1 
2810 RETURN 
2B20 1 título 

2830 PRINTMIDS (MNS . M0*9-8 , 9) ; " 
" ; YR 

2840 IF P-2 THEN LPRINT MIDS (MN 
9.MO"9-8,9) i" ";YR 
2850 RETURN 



COMPROMIS 



2240 BEM IMPRIME 
2250 M5 - 0:XP 
0:A2S - "":D2S 
2260 IF 32 - I 
W2 - 4 

2270 IF S2 = O^EN X 



2410 IF NOT (XP > 6 OR DA - M 
5) THEN 2360 

2420 XP = 0: PRINT : IF S2 - 1 
THEN PRINT 

2430 IF DA < > M5 THEN 2340 
2440 IF MO = ME THEN PRINT "D 
OMINGO DE PÁSCOA: " ; DE ; " DE " 
; MIDS (MNS. ME * 9 - 8', 9) 
2450 RETURN 

2460 REM ROTINA DIÁRIO 

2470 T2 - 0:N2 = 0:MX - 0:AS - 

"":CL - 0:M9 = MO:Y9 - YR 

2480 GOSUB 2750: GOSUB 2720: H 

OME 

2490 PRINT DS:"PR*";P: GOSUB 2 
820: PRINT 
2500 PRINT "DIA 
SO" 

2510 GOSUB 2660 

2520 IF MO = ME THEN PRINT DE 
;* - DOMINGO DE PÁSCOA" 
2530 FOR T2 - 0 TO 3 
2540 CL - 40 

2550 IF P - 1 THEN CL - 32 
2560 Aí - VAL (LIS(T2.0>) 
257^fIF MX-0 THEN 2630 
25W FOR N2 = 1 TO MX 
25^F AS - LIS(T2.N2) 
2àW KBS - AS: GOSUB 470: IF K2 
Jl THEN PRINT STHS ( ASC ( 
MbS {AS .2,1))) ; TAB ( 3); CHR5 
H2)i RIGHTS (AS. LEN (AS) - 4) 

*610 NEXT 
2620 IF P 
GET RS 

2630 NEXT : PRINT "<>*:P - 0: 
PRINT DSi"PR*":P: GET RS 
2640 MO ■ M9 : YR - Y9: RETURN 
2660 RETURN 

2720 REM OPCAO IMPRESSÃO 
2730 PRINT : PRINT : PRINT "Cl 
ER UMA COPIA IMPRESSA? (S/N) ": 
KBS ■ "SN": GOSUB 1590: IF KB ' 

1 THEN P - 1 
2740 RETURN 

REM ROTINA DE DADOS 
INPUT " MES: 

IF MO < 1 (tfi^b THEN 





A agenda é uma espécie de banco 
de dados? 

Sim, de certa forma, uma agenda é 
um banco de dados, Cada linha, reser- 
vada para a anotação de um compro- 
misso, corresponderia a um registro de 
banco de dados. As informações sobre 
datas, horários e as descrições seriam 
os campos básicos. 

Tanto é assim que poderíamos uti- 
lizar o programa de banco de dados pu- 
blicado nos artigos das páginas 68, 
688 e 706 para estruturar uma agen- 
da diária Com esse objetivo, definiría- 
mos os seguintes campos: 

1. DIA: dois caracteres, numérico 

2. MÊS: dois caracteres, numérico 

3. ANO:, dois caracteres, numérico 

4. HORÁRIO: quatro caracteres, nu- 

5. ATI VIDADE: trinta caracteres, alfa 
bético 

6. TIPO: um cara. 



O campo TIPO serviria para identi 
ficar a categoria de compromisso ou 
atividade (por exemplo, L para lazer, P 
para profissional, F para familiar e as- 
sim por diante). Já o campo STATUS 
teria a finalidade de informar se a ati- 
vidade marcada foi realizada ou não. 

Depois de entrar seus compromis- 
sos utilizando esse esquema, será pos- 
sível pesquisar o banco de dados por 
meio das funções de PESQUISAR E 
LISTAR do programa gerenciador de 
bancos de dados. 

Com esse procedimento, você terá 
transformado o programa de banco de 
dados não em uma simples agenda, 
mas num poderoso e flexível instru- 
de gestão pessoal. 



lenaiKequenas modificações nos co- ^kisu^J+NNS 
ai^ra^BUam com o arquivo. ^^ 90 ^^^HRfr 

o / • 



1750 OPEN"0",#l,"DIARIO/DAT" 
1780 PRINT *1.LIS(N,0) 
1810 FOR J-l TO 4 : PR1NTI1 .STRS ( 
ASC (MIDS (LIS (N . P) . J . 1) ) ) : NEXT J 
1820 PRINT #1 .MIDS (LIS (N. P) . 5) 
1850 CLOSE |1 

1890 0PEN"I". II , "DI AR IO/DAT" 
1910 LINE INPUT U.LIS(N.O) 
1950 FOR J-l TO 4:INPUT|1.NNS:L 
IS(N.P)-LIS(N,P)+CHRS(VAL(NNS)) 
: NEXT J 

960 LINE INPUT I 1 , NNS : LIS (N , P) 
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rO A RAP 
E OS GANSOS 0) 



Era uma vez uma raposa que jogava 
xadrez contra um grupo de 
gansos e... Bem, se você quer saber 
o fim dessa história, leia o 
artigo a seguir e entre no jogo. 



Um programa como o do jogo cha- 
mado Otelo pode ser escrito — como vi- 
mos — de maneira que o computador 
dispute contra um adversário humano 
sem que este fique numa situação de in- 
ferioridade. Mas, neste caso, com um 
pouco de prática, pode-se, quase sem- 
pre, ganhar do computador. 

Nas próximas três seçòes de Progra- 
mação de Jogos, veremos um programa 
mais sofisticado escrito para que o com- 
putador dispute o jogo chamado A Ra- 
posa e os Gansos. Esse programa ofe- 
rece vários níveis de dificuldade, permi- 
tindo que o jogo se torne tão fácil ou 
tão difícil quanto se queira. 

A Raposa e os Gansos serve para ilus- 
trar muitos dos problemas e dos princí- 
pios envolvidos na elaboração de um 
dos mais interessantes e difíceis jogos 
que existem: o xadrez. 

Para os programadores, contudo, es- 
se jogo apresenta um inconveniente: é 
impossível escrever em BASIC um pro- 
grama de xadrez que valha a pena, pois 



a máquina levaria longo tempo para exe- 
cutar cada jogada. Nos níveis superio- 
res de A Raposa e os Gansos, o progra- 
ma despende um bom tempo para ana- 
lisar cada movimento, chegando mesmo 
a perder cerca de meia hora nos níveis 
mais altos e nas máquinas maisjentas. 
O problema pioraria muito se tentásse- 
mos escrever um jogo de xadrez. 

Para manter nosso trabalho longe das 
dificuldades do código de máquina, pre- 
cisamos de um jogo mais simples. A Ra- 
posa e os Gansos preenche esse requisi- 
to, porque, além de ter várias caracte- 
rísticas do xadrez, é jogado no mesmo 
tipo de tabuleiro. 

O artigo está dividido em três partes. 
Nesta primeira, você lerá acesso aos 
princípios que fundamentam o progra- 
ma e dará início à estruturação do jo- 
go. Nas duas seguintes, construiremos 
os segmentos restantes. 

Vamos começar analisando o jogo 
propriamente dito e quais as exigências 
necessárias para disputá-lo. 




inimiiim 
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FACA DO COMPUTADOR UM 
JOGADO R INTELIGENTE 
RAPOSA, GANS OS E XADR EZ 



TEORIA DE PROGRAMAÇÃO 



EXPLICANDO O JOGO 



COMO RESOLVER PROBLEM AS 

DE PROGRAMA ÇÃO 

COMO AVALIAR POSI ÇÕES 

NO JOGO 

INICIE O PROGRAMA 




A Raposa e os Gansos é jogado nas 
casas brancas (verdes, nas ilustrações) de 
um tabuleiro de xadrez. Nele, temos 
uma raposa que inicia a disputa em um 
lado do tabuleiro e quatro gansos que 
partem do lado oposto. Um jogador 
controla a raposa e outro, os gansos. 
Para a raposa, o objetivo do jogo é pas- 
sar pelas posições das aves e atingir o la- 
do oposto; para os gansos, tudo se re- 
sume em encurralar a raposa. 

O jogo pode parecer desequilibrado, 
já que se trata de uma disputa de qua- 
tro contra um; entretanto, o programa 
limita as investidas dos gansos para a 
frente, enquanto dá à raposa inteira li- 
berdade de movimentos para a frente e 
para trás. Além disso, ele foi escrito de 
cal maneira que o computador pode 
jogá-lo tanto com a raposa, como com 
os gansos ou mesmo sozinho. 



COMO RESOLVER OS PROBLEMAS 



A Raposa e os Gansos apresenta ou- 
tro ponto de semelhança com o xadrez: 



aqui também o fator sorte não é decisi- 
vo. Na verdade, o resultado depende 
apenas da perícia dos adversários. Em- 
bora seja teoricamente possível para o 
computador aprender a jogar por ten- 
tativa e erro, como um ser humano, es- 
ta não é a melhor forma de resolver os 
problemas envolvidos no jogo — e, de 
qualquer modo, um programa assim 
concebido não caberia no seu micro. 

Programar um jogo como A Raposa 
e os Gansos ou como o xadrez é um 
exercício de inteligência artificial. Para 
constituir um desafio a um jogador hu- 
mano, o computador precisa jogar in- 
teligentemente. Porém, a máquina não 
tem condições de olhar para o tabulei- 
ro e captar as relações espaciais entre as 
peças, tal como nós o fazemos. Assim, 
as posições devem ser convertidas em 
valores numéricos que possam ser ana- 
lisados pelo computador. 

Para escrever um programa que per- 
mita ao computador jogar de modo in- 
teligente, deve-se primeiro estudar a na- 
tureza do jogo. Esta determinará o tipo 
de programa. É importante, também, 
ter como referência um método ideal, 
inteiramente documentado. Presiam-se 
bem a esse tratamento a resolução do 
cubo mágico, aberturas de xadrez etc. 
Em comparação com tais exemplos, 
nossa tarefa é mais simples. 

Quando o elemento sorte está presen- 
te, é possível usar uma estratégia de mo- 
vimento único — ou seja, o programa 
analisa as alternativas de jogo apenas 
um movimento à frente para, então, es- 
colher a melhor jogada. O ludo, por 
exemplo, seria um candidato a essa es- 
tratégia, exigindo rotinas de decisão re- 
lativamente simples. 

Em jogos em que a sorte conta pou- 
co ou nada, como em A Raposa e os 
Gansos, pode-se usar uma estratégia de 
movimentos consecutivos, onde se ana- 
lisa uma série de passos adiante para in- 
vestigar os resultados possíveis. Ao en- 
contrar o movimento mais vantajoso, o 
programa o executa. 



AVALIAÇÃO DA POSIÇÃO 



Para que o computador possa deci- 
dir qual é o melhor movimento entre vá- 



rios possíveis, atribui-se um valor numé- 
rico a cada quadrado do tabuleiro. No 
nosso jogo, é vantajoso para a raposa 
estar o mais à frente possível — lembre- 
se de que ela ganha o jogo ao atingir o 
lado oposto do tabuleiro. 

As colunas são numeradas alternada- 
mente da esquerda para a direita e da 
direita para a esquerda. Assim, como os 
maiores números se alternam à direita 
e à esquerda, a raposa tenderá a se mo- 
ver em linha reta. 

Mas há outro elemento que deve ser 
considerado na avaliação de posições. 
Os cinco quadrados brancos imediata- 
mente à frente da raposa têm um signi- 
ficado especial para o jogo. Se você 
olhar para a figura 1, verá cinco qua- 
drados marcados de A a E. Se houver 
apenas um ganso em um desses quadra- 
dos, a raposa ganhará; se os gansos fo- 
rem dois, mas não estiverem nas posi- 
ções A ou B, ou se eles forem três, po- 
sicionados em ACD, BDE, ACE ou 
BCE, a vitória também caberá à raposa. 

No início de cada turno, quando o 
computador joga tanto pela raposa 
quanto pelos gansos, o programa vai pa- 
ra uma sub-rotina que examina as posi- 
ções de todas as peças e transforma es- 
sa informação em um único número, 
que o computador utiliza para escolher 
a melhor jogada. Quando a decisão é to- 
mada, o programa converte o número 
novamente em posições. 



Os movimentos possíveis de uma po- 
sição do tabuleiro podem ser represen- 
tados por uma estrutura em "árvore", 
com ramificações a partir da posição da 
peça. As alternativas de movimento a 
partir da posição da peça da figura 2, 
por exemplo, estão ilustradas no dese- 
nho da figura 3. Se examinarmos um 
movimento adiante, a árvore ficará mais 
complicada, passando a incluir o segun- 
do nível de alternativas, também indi- 
cado na figura 3. 

Observe que nem sempre teremos 
quatro "ramos" na estrutura, visto que 
a peça pode estar bloqueada por outra 
ou posicionada em um dos quadrados 
que limitam o tabuleiro. 
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COMO ACELERAR 0 PROGRAMA 



Devido ao grande número de opera- 
ções que devem ser feiías, o BASIC po- 
de se revelar demasiado lento. Mas, com 
o uso de determinados procedimentos, 
é possível acelerar o programa. Inicial- 
mente, deve-se garantir que o programa 
não continue avaliando o próximo pas- 
so do adversário se o seu movimento já 
ganhou o jogo. Isso, no entanto, só eco- 
nomiza tempo no fim do jogo e não du- 
rante o seu desenrolar. 

Em segundo lugar, é preciso levarem 
conta que uma mesma configuração de 
posições pode ser encontrada frequen- 
temente, a partir de jogadas diferentes. 
Convém, assim, elaborar uma tabela de 
configurações comuns com os valores já 
calculados associados a elas. Essa tabe- 
la fará com que o computador pare de 
analisar posições que se repetem. Tenha, 
porém, o cuidado de não armazenar da- 
dos de uma posição cuja avaliação po- 
de ser mais rápida do que uma consulta 
à tabela. Teoricamente, o emprego da 
tabela só é vantajoso nas situações em 



que o computador avalia três lances 
completos — ou seja, três jogadas de 
ambos os jogadores — ou mais. No en- 
tanto, a prática tem demonstrado que 
a armazenagem só vale realmente a pe- 
na quando cinco ou mais lances estive- 
rem sendo analisados. 

Finalmente, há a possibilidade de se 
utilizar o algoritmo alfa-beta, descober- 
to no início dos anos 60 por pesquisa- 
dores da área de inteligência artificial. 
Recorre-se a ele sempre que, numa bus- 
ca em árvore, a análise envolve mais de 
um nível. 

Voltemos à figura 3, que mostra os 
movimentos possíveis de uma posição 
da raposa. O programa vai avaliar to- 
do o ramo A, depois o ramo B. O me- 
lhor movimento será armazenado pelo 
programa e comparado com os resulta- 
dos de cada ramo. Ao encontrar, em 
qualquer ponto, um resultado pior do 
que um anterior, todo o ramo será re- 
jeitado. 

Quando a árvore se torna mais com- 
plexa, o algoritmo alfa-beta é realmen- 
te útil, podendo descartar cerca de 
99,8% das possibilidades em um está- 
gio bem inicial, com um ganho de tem- 
po similar. Neste jogo, a árvore não 
atingirá tal nível de complexidade. 




Agora que você já tem uma noção da 
teoria envolvida num jogo como A Ra- 
posa e os Gansos, passe à digitação da 
primeira parte do programa. Ela se en- 
carrega de montar alguns desenhos, mas 
você não os verá por enquanto, se exe- 
cutar o programa. Não se esqueça de 
gravar as linhas digitadas. 



30 DE F FN A(F)-INT <LN (F)/L2 
+.001) 
100 GOTO 2002 
2002 GOSUB 5000 
2006 BOBDEB 4: PAPER 4: CLS 
2008 PRINT AT 8.7; FLASH 1 : "AGU 
ARDE A PREPARAÇÃO" 
5000 FOR J^USR "A" TO U3R "D" + 7 
: READ A: POKE J,A: NEXT J: RET 
URN 

5070 DATA 20 . 2B . 55 , 127 , 15 , 20 . 40 

,72,0,0,248,252.250.40,20.20,0. 

0.0,7.205.12 3,60.15,12,20,31.15 

2,248,216,48.224 

6000 LET SSU)-" 12 3 

4" 

6010 LET SS(2)-" 8 7 6 5 

6015 LET SS(3)-" 9 10 11 
12" 

6030 LET SS(4)-"16 15 14 13 

6040 LET SS(5)-" 17 18 19 2 

o- 

6050 LET SS(6)-"24 23 22 21 

6060 LET SS(7)-" 25 26 27 2 
8" 

6070 LET S5(8)-*32 31 30 29 
6100 RETURN 



Q 



5 CLSiPRINT Í230. "DEFININDO GRA 

FICOS" : GOSUB 4000 

10 SCBEEN 1.0:GOTO 10 

4000 PMODE 3:PCLS:D1M GS(5).FX( 

4) ,SQ(10) 

4010 DRAWBM3 , 0C2FGR3FR5E3RED3F 
DGLGNFLNG2LH2LH" : PAINT (1 2 . 5) .2: 
PSET(0,1,4) :PSET(14,5,4) :PSET(1 
6,4.4):GET (0 . 0) - (19 , 9) . GS ,G 
4020 DRAWBM18 , 20C4GL1 3HLG2R2F2 
ND4R10ND4U2":PAINT<10,22) . 4 : PSE 
T (2,21.1) : GET (0,20) - (19,28) ,FX, 
G 

4030 LINE (0,0)- (175.175) .PSET.B 
F:C0LOR 3 r LINE (8,8) -(167, 167) ,P 
SET.BF 

4040 FOR K-8 TO 128 STEP 40:FOR 
L-28 TO 148 STEP 40 : PUT (L , K) - ( 
L+19.K+19) ,SQ,PSET:PUT(L-20,K+2 
0)-(L-l,K+39) .SQ.PSETrNEXT L.K 
4050 PUT(68. 13)- (87,21) .FX.PSET 
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4060 FOR K-8 TO 128 STEP 40:PUT 

(K.153)- (K+19.162) , GS , PSET : NEXT 

4070 TH5-"R2ND6R2BR4D6BR4U3LBR6 

ND3BU2UBF3ND3R4D3BR5U6D3NR3F3BR 

4U3BU2UBF3BR2ND3R4D3BR7L3U3R3D6 

L3BE3BR4RBR5RBR5R" 

4080 MWS-"ND6F3RU3D6BR9L4U3R4D3 

BE3F3UE2BR3R3DL3D2R3BR6NU6E2F2N 

U6BR3U6D3R4D3BR7L3U3R3DL3BR7NUN 

B2D2BR8L3U3R3DL3BE4BR7R4D3L4D3" 

4090 WGS-"RD6E2F2U6BR4D6BR4U3NL 

2BF3U3BU2UBF3BRNR3D3R 3BR4NU6BR4 

U3NL3BE3BR8L4D6R4U3BR4D3R4U3L4B 

BBD3R4U3L3BR9BUL2D2B2D2L2BB9L3U 

3R3DL" 

4100 VS-"T402DEFBGACDEGGDCDE" 
4200 C«1:G-0:RETURN 
5000 FOR K-l TO 14 : PUT (200, 5) - ( 
210.15) ,SQ.PRESET:PLAY"TS0AC" :P 
UT( 200. 5) -(210,15) . SQ , PSET : PLAY 
"DA" -NEXT ■ RETURN 



5 CLS: COLOR 1,11,11:SCREEN0 
7 KEYOFF : GOSUB 4000 
10 GOTO 10 

4000 SCREEN2,2:FX=l:A$="":FORK= 
2TO5:GS{K-l,0)=K:NEXT:FOR K-1T0 
4:CS(K,1)=32-K:NEXT 
4010 FOR K=l TO 3 2 ! READ A:AS=AS 
+CHRS (A) : NEXT : FOR K = l TO 4:SPRI 
TES (GS(K.O) )=AS-NEXT:A3 = "" 
4020 FOR K-l TO 32 : READ A:A$-AS 
+CHR5 (A) :NEXT:SPRITES(FX)»AS: 
4030 LINE (10,10) -(185,185) ,6, B 
F : LINE (18.18)-(177,177) .ll.BF 
4050 FOB K-18 TO 138 STEP 40 : FO 
R L=38 TO 158 STEP 40 : LINE (L.K 
)-{L+19,K+19) , 3,BF:LINE (L-20.K 
+ 20) - (L-l . K+39) , 3 . BF : NEXT : NEXT 
4060 PUT SPRITE FX,(78,20},6 
4070 FOR K-0 TO 3 : PUT SPRITE GS 
(K+l ,0) , U8+KM0, 159) . 15:NF.XT 
4080 VS""T200O3DEFBGACDEGGDCDE" 
4100 DATA 0,0,12.60,12,6,6,7,7, 
3,3,1,0,0,1,2.0.0,0,0,0,8,8, 248 
,248,248,248,240.224,192,32.16 
4110 DATA 0.0,0,2,2,6,62,27,3,3 
,2,2,2.2.0,0,0,0,0,0,0,4,8.248, 
240.240. 16,16. 16, 16,0,0 
4200 RETURN 
5000 BEEP : RETURN 



63 , 55 .45 ,45. 45 ,45 , 62 ,63 . 63, 63 .4 

6,62,62,126.73.73,37,37,36,0 

4030 FOR A = 768 TO 768 + 88; 

READ E: POKE A , E : NEXT 

4040 POKE 233.3: POKE 232,0 

4050 RETURN 

5000 FOR K - 1 TO 3: PB TNT CH 
RS (7) ; ! NEXT : RETURN 



310 I.ET F = FN A (ABS (P))-30: 
LET B=P/B(F): IF B<0 THEN LET 
B-B+BX: LET F-33-F 
320 LET C=B/B(29): FOR A-8 TO 
1 STEP -li LET RS (A) -BS (TNT (C 
)+l,(2-FN W(A))): LET C- (C-INT 

(C) ) «16: NEXT A 
330 LET R3UNT (F/4+ . B) ) (FN C ( 
F)+l TO FN C(F)+4)-FS<FN U(F/4 
-.2)+l) 

340 FOR A-l TO 8: PRINT AT 2*A 
,8; PAPER 7;SS(A): PRINT AT 2* 
A+1,8: PAPER 7; RS (A): NEXT A: 
RETURN 



QBE] 



320 XI = 5/:X2 
- 159:08 = 1 :FX = 2 
330 HPLOT XI ,Y1 TO X2 
,Y2 TO XI .Y2 TO X] ,Y1 
340 FOB I = 0 TO 



219: VI ■ O: 



350 TN ' 
(I / 2)) 



20 



(T / 2 
tO 19 



360 FOR J 
370 FOR K = 0 TO 3 
380 HPLOT 20 * I + J + XI + L. 
(40 * K + IN) TO 20 * T + .1 + X 
1 + 1 , (40 * K + IN + 19) 
390 NEXT : NEXT : NEXT : HCOLO 
R- 3 

395 DRAU FX AT XI + 3 * 20 + 3 
,Y1 + 8 

400 FOR 1=0 TO 6 STEP 2: DRA 
U GS AT XI + I ■ 70 + B,Y1 + 7 
-20+5: NEXT ; RETURN 



As linhas que vão de 310 a 350 mos- 
tram o tabuleiro com as cinco peças em 
posição. A sub-rotina é chamada uma 
vez a cada jogada, tanto pela raposa 
quanto pelos gansos. 

As instruções para os demais micros 
fazem parte de uma outra sub-rotina de 
gráficos. 




4000 DATA 02, 00, Ofi, 00, 42. 00 
4010 DATA 45,62,63,63,46,45.4 
5,53,63.63,119,41,53,127,9.45,4 
5.45.62,63.63,55,45.45,53.63,63 

,14.4 5,62,55,55.119.73,40,60,0 
4020 DATA 45,45,44,44,44,54,5 
5.63,62.63,46,45,45,45,45.45,45 

,44,44.172.146,194,27,63,63,63, 
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Existem dois tipos de memória auxiliar 
para micros: a fita cassete, barata e 
amplamente disponível, e o disquete, 
poderoso, mas bem mais caro. Veja aqui 
como fazer a melhor escolha 



parte da memória central, chamada 
RAM (Random Access Memory), para 
armazenar programas e dados que são 
entrados pelo teclado ou carregados a 
partir de um periférico de armazena- 
mento de dados. Esses dispositivos ex- 
ternos são necessários porque a infor- 
mação armazenada na memória RAM 
desaparece quando o computador é des- 
ligado. 

Existem diversos tipos de dispositivo 
de memória auxiliar destinados a micro- 
computadores. Os principais são as fi- 
tas e os discos. Ambos possibilitam o ar- 
mazenamento permanente de informa- 
ção, pois seu funcionamento é baseado 
no princípio da gravação magnética. 
Há, entretanto, uma grande diferença 
entre eles no que diz respeito ao custo 
de aquisição e à capacidade e velocida- 
de de armazenamento. 

Os discos, que constituem os dispo- 
sitivos mais sofisticados e caros da me- 
mória auxiliar, dotam o computador 
pessoal de poderosos recursos, permitin- 
do a programação de aplicações mais 
complexas, como bancos de dados de 



L 



i pequenas empre 



ARMAZENAMENTO EM FITA 



O periférico de armazenamento de 
dados mais utilizado em computadores 
pessoais é o gravador comum de fita cas- 
sete, que alia conveniência operacional 
c baixo custo. Para a maioria dos usuá- 
rios domésticos, este é o único fator que 
conta. 

O gravadores de audiocassete existen- 
tes no mercado são. quase todos, bas- 
tante adequados para essa finalidade. A 
vantagem adicional é que existe uma 
enorme quantidade de software de pre- 
ço acessível disponível em fita cassete, 
para a maioria dos computadores pes- 
soais (sobretudo na área de jogos e en- 
tretenimento). 

A tecnologia dos gravadores-cassete 
é muito simples. Seu uso com compu- 
tadores requer apenas que um sinal au- 
dível seja gerado pela interface adequa- 
da para a gravação na fita. Assim, para 
que o sistema funcione a contento, bas- 
ta montar uma conexão entre o compu- 
tador e o gravador e ajustar corretamen- 
te os níveis de volume e tonalidade. Com 
alguns cuidados periódicos de manuten- 
ção, o usuário não terá problemas por 
longo tempo. 

Bem, isto é o que acontece na teoria! 
Na prática, contudo, não é tão fácil con- 
seguir a combinação ideal entre o peri- 
férico e o micro. 



QUALIDADE DE GRAVAÇÃO 



Uma boa maneira de contornar difi- 
culdades mais sérias consiste cm com- 
prar um gravador apropriado para mi- 
crocomputadores {data recorder). Eles 
diferem dos gravadores comuns por dis- 
porem de circuitos eletrònicos internos 
que processam sinais mais "limpos" de 
transmissão digital. 

Gravadores especiais, como. por 
exemplo, os destinados a computadores 
da linha MSX. dào menos problemas na 
gravação e leitura de dados digitais e, 
também, possibilitam uma conexão 
mais simples com o computador. Nem 
esses aparelhos, porém, estão totalmente 
livres de falhas, pois é o sistema de gra- 
vação em fita, em si, que apresenta cer- 
tas desvantagens técnicas. 

O principal ao se usar fita é aumen- 
tai ao máximo a qualidade de gravação: 
esta é uma área, portanto, sobre a qual 
o usuário pode exercer algum controle. 
Convém lembrar que, mesmo quando a 
gravação foi bem feita, o sinal deteriora- 
se ao ser lido por um gravador de baixa 
qualidade. O resultado é pior ainda 
quando se tenta gravar alguma coisa 
com um aparelho que esteja em más 
condições. 

A qualidade da fita também é muito 
importante. Basicamente, deve-se evitar 
a tentação de utilizar uma fita velha, so- 
bretudo se for de longa duração (C-90 
ou C-120). 

Há um conflilo aqui, pois, como a 
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capacidade da memória é limitada pelo 
método de gravação empregado, seria 
desejável ampliá-la, usando-se fitas de 
maior duração. Esias, porém, são bem 
mais finas do que as C-30 e, em conse- 
quência, podem sofrer alongamentos 
por efeito do vaivém contínuo e pela 
força relativamente grande exercida pelo 
rebobinamento e avanço rápidos. 

O alongamento determina perda de 
bytes na fita e variações na amplitude 
do sinal. Ambos os efeitos sào desastro- 
sos, no que diz respeito às característi- 
cas de leitura por computadores: um 
byte perdido invalida a leitura de todo 
um programa, por exemplo. Na melhor 
das hipóteses, isto pode levar a carrega- 
mentos irregulares. Na pior das hipóte- 
ses, dados são perdidos durante a 
gravação! 

Uma fita C-30 é a melhor opção prá- 
tica: ela suporta quinze minutos de gra- 
vação de cada lado, o que é mais do que 
suficiente para armazenar programas 
muito extensos (até 64 Kbytes) na maio- 
ria dos computadores. Alguns micros 
das linhas Sinclair e TRS-80, entretan- 
to, têm baixas velocidades de transmis- 
são (300 baud), podendo exceder a ca- 
pacidade da fita para dados e progra- 
mas. Nesse caso, recomenda-se usar fi- 
tas C-60 de boa qualidade, mas sempre 
com muito cuidado. 

Um programa de 32 Kbytes, por 
exemplo, gasta somente três a quatro 
minutos de fita nos micros das linhas 
TRS-Color e MSX, cerca de seis minu- 
tos nos micros da linha Spectrum. e qua- 



se quinze minutos no ZX-81. Faz mais 
sentido, portanto, recorrer a fitas de 
curta duração, gravando-se apenas um 
ou dois programas de cada lado, com 
uma duplicata, para fins de segurança. 
Esse procedimento não só favorece a 
conservação da fita como também tor- 
na muito mais fácil verificar onde está 
o inicio de uma gravação. 

Existem fitas cassete de alta qualida- 
de, feitas especialmente para gravação 
de dados digitais. Elas são normalmen- 
te disponíveis em três durações: CIO, 
C15 e C20. É sempre bom teslá-las an- 
tes de comprá-las em grande quantida- 
de, pois sào mais caras do que as fitas 
comuns. 



TAXA DE TRANSMISSÃO 



Os problemas com fitas cassete ficam 
bem mais sérios quando a taxa de trans- 
missão de dados entre gravador e com- 
putador é mais alta. A taxa de transmis- 
são, ou seja, a velocidade com que os 
bytes passam do computador para o 
gravador e vice-versa, é medida cm 



bauds. Um baud, a grosso modo, cor- 
responde ao número de bits transmiti- 
dos por segundo (na realidade, o núme- 
ro é calculado com base em um esque- 
ma um pouco mais complicado). 

Quanto mais alta for a taxa de trans- 
missão utilizada pelo computador, me- 
lhor deverá ser a qualidade do gravador 
e da fita cassete. Uma fita pode funcio- 
nar perfeitamente bem com um ZX-81 
ou TRS-80 Modelo I, mas falhará se 
usada com um TK-85 com função 
speed, ou com um MSX. O mesmo pro- 
blema ocorrerá até com computadores 
mais lentos, em determinadas situações 
— por exemplo, na gravação de jogos 
com rotinas próprias de carregamento 
rápido. 



Para evitar os transtornos causados 
por gravadores convencionais de fila 
cassete, alguns fabricantes desenvolve- 
ram um sistema diferente: o cassete de 
fila sem fim (alça de fita). Os mais co- 
nhecidos são o Microdrive e o Wafadri- 
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ve, para os micros da linha Sinclair 
Spectrum, mas existem diversas unida- 
des disponíveis para computadores de 
outras marcas, usando interfaces padro- 
nizadas, como o RS-232C. Dispositivos 
desse tipo, infelizmente, não são encon- 
trados no Brasil. 

O acionador de alça de fita (tape 
loop) é um gravador que usa um casse- 
te especial, com uma bobina sem fim 
(em alça). A fita desloca-se apenas em 
uma direção, mas muito rapidamente, 
de maneira que o ponto de início de um 
programa é atingido sem que seja neces- 
sário rebobinar a fita. Além de econo- 
mizar tempo, o processo também pro- 
tege a fita do desgaste provocado pelo 
avanço e rebobin amento rápidos dos 
gravadores convencionais. 

Um Microdrive, por exemplo, com 
sua velocidade e capacidade (cerca de 
100 Kbytes), permite que se eliminem to- 
dos os problemas das fitas convencio- 
nais. Seu desempenho, em alguns casos, 
aproxima-se do de acionadores de dis- 
quetes, muito maiores e mais caros. 

Há algumas desvantagens, entretan- 
to, nesse tipo de dispositivo: os cartu- 
chos de fita são bem mais caros, a ofer- 
ta de software no formato adequado é 
menor e, mesmo com maior velocidade 
e capacidade, ele não se presta para mui- 
tas aplicações nos campos educacional 
e profissional. 



Em qualquer sistema que utiliza fita, 
a transferencia de dados entre gravador 
e computador é realizada sob a forma 
de uma sequência contínua de bytes, ou, 
em outras palavras, como uma fila in- 
diana, do primeiro ao último byte. Pa- 
ra levar os dados ou programas de vol- 
ta à memória, é preciso achar o ponto 
de início, e carregar a partir daí. Esse 
tipo de processo é chamado de acesso 
serial. 

Para aplicações mais simples, como 
jogos ou outros programas pequenos, o 
método não apresenta desvantagens sé- 
rias, pois o programa precisa ser locali- 
zado e carregado apenas uma vez. En- 
tretanto, oferece inconvenientes para 
aplicações em que, com frequência, o 
computador precisa carregar dados ou 
segmentos de programa, em ordem di- 
ferente daquela em que estão gravados 
na fita. É o que ocorre com as aplica- 
ções de bancos de dados. Um dispositi- 
vo de alça de fita pode, quando o volu- 
me de dados é pequeno, "simular" um 
disquete, através da marcação de "blo- 
cos" fixos de dados na fita e da locali- 



zação rápida dos mesmos por um soft- 
ware especial. Porém, havendo um 
grande volume de dados, a única solu- 
ção é o acionador de disquetes. 



ACIONADORES DE DISCOS 



Os acionadores de discos são os dis- 
positivos mais rápidos de memória au- 
xiliar para microcomputadores. O tem- 
po médio necessário para a localização 
de blocos de dados no disquete é medi- 
do, muitas vezes, em milésimos de se- 
gundo. A rapidez da gravação e a lei- 
tura de programas torna o dispositivo 
atraente principalmente para quem não 
consegue suportar a lentidão do CSA- 
VE e CLOAD dos gravadores. 

Os discos magnéticos são, além dis- 
so, muito mais confiáveis e seguros do 
que as fitas, desde que se tomem algu- 
mas precauções elementares. A perda de 
bytes por falhas no sistema de leitura ou 
gravação é rara e, quando ocorre, nem 
sempre o arquivo inteiro ou o disco fi- 
cam inutilizados. 

Entretanto, o uso de discos impõe 
uma nova série de tarefas e procedimen- 
tos básicos, que exigem um grau de me- 
ticulosidade e precisão desnecessário 
com as fitas. Se você não tomar cuida- 
do e utilizar inadequadamente os co- 
mandos de manipulação de arquivos em 
discos, disponíveis nos sistemas opera- 
cionais, as consequências poderão ser 
desastrosas. Existe, por exemplo, um 
comando que apaga um disco inteiro, 
em um piscar de olhos. 

A fantástica capacidade de armaze- 
namento dos discos magnéticos é uma 
forte razão para que se redobrem as pre- 
cauções. Existem modelos com 10 a 20 
megabytes de capacidade total, ou seja, 
aptos a armazenar até vinte milhões de 
caracteres (o que equivale, mais ou me- 
nos, à quantidade de texto de uma en- 
ciclopédia de trinta volumes!). Mais co- 
mumente/entretanto, a capacidade dos 
disquetes disponíveis para computado- 
res pessoais é bem mais modesta: algo 
entre 150 a 360 Kbytes. Mas, mesmo as- 
sim, corresponde a uma grande quanti- 
dade de dados valiosos. 

Infelizmente, os disquetes são vulne- 
ráveis a dobras, a arranhões e a agres- 
sões físicas do ambiente, tais como umi- 
dade e sujeira. Além disso, são sensíveis 
a campos magnéticos causados por alto- 
falantes, aparelhos de TV, motores de 
geladeira etc. 

Para armazenamento de longa dura- 
ção, a fita constitui um candidato bem 
melhor do que o disco. Assim, grandes 
empresas costumam manter seus arqui- 
vos vitais em bobinas de fitas, confian- 




do aos discos apenas as operações diá- 
rias, mais rápidas. 

Por todas as razões expostas, 
recomenda-se aos usuários de discos que 
façam, regularmente, cópias de seguran- 
ça (back-up) dos arquivos de dados e de 
programas. A frequência dessa opera- 
ção depende muito da quantidade de in- 
formações geradas ou alteradas. 



COMO FUNCIOMA UM ACIONADOR 



O funcionamento de um acionaaor 
de discos não é muito diferente do fun- 
cionamento de um gravador de fitas. O 




sistema de leitura e gravação trabalha 
sobre um disco, chato, recoberto de ma- 
terial ferromagnético, como a fita, só 
que obedecendo a padrões de qualida- 
de muito mais rigorosos. 

Como o gravador, o acionador de 
discos possui uma cabeça de ieitura e 
gravação, que é mantida em contato 
com a superfície magnética. A diferen- 
ça é que a cabeça também pode ser mo- 
vimentada, pulando de trilha para tri- 
lha da mesma maneira que o braço de 
um fonógrafo. Assim, com o disco ro- 
lando em alta velocidade, atinge-se ra- 
pidamente qualquer um de seus pontos. 

Antes de sua utilização, o disco è for- 



matado, ou seja, sua área total é dividi- 
da em trilhas concêntricas e estas, por 
sua vez, em segmentos iguais, chamados 
de setores. Os setores se subdividem em 
blocos, cada qual capaz de armazenar 
entre 128 a 256 bytes de informação. Es- 
ses blocos podem ser imaginados como 
se fossem as "gavetas" de um escaninho. 

Um programa chamado sistema ope- 
racional de discos (DOS) possibilita a 
gravação ou leitura de informações nos 
blocos (cada um tem um endereço dis- 
tinto, como na RAM). O DOS é um re- 
quisito essencial para a operação de um 
acionador de discos. 

A cabeça de leitura e gravação pode. 



> disco é formatado antes de ser usado, i 
eja, é dividido em trilhas e setores. 
^ada setor tem a capacidade de 256 byte 



ser direcionada pelo DOS, de modo a se 
posicionar sobre quaJquer setor na su- 
perfície do disco, com uma velocidade 
bastante grande. Por isso, o disco mag- 
nético é um dispositivo de acesso arbi- 
trário, muitas vezes mais rápido do que 
o acesso serial ou sequencial da fita. 
Ocorre que ele também é um dispositi- 
vo de acesso serial, só que limitado a um 
setor por vez. Isso torna o sistema mui- 
to mais veloz, flexível e poderoso do que 
o baseado em fita. 



Os discos magnéticos para computa- 
dores dividem-se, basicamente, em dois 
tipos: os discos rígidos e os discos fle- 
xíveis. 

O disco rígido, de preço bem mais ele- 
vado do que o flexível, é confecciona- 
do em metal, e, em geral, não é inter- 
cambiável, ou seja, permanece sempre 
dentro do acionador. A cabeça não en- 
costa em sua superfície, mas paira a al- 
guns milésimos de milímetro da mesma. 

Graças a essa característica, o desgas- 
te desse disco é nulo, e a densidade da 
gravação, muito maior. Atualmente, os 
discos rígidos para micro — também 
chamados discos Winchester — têm ca- 
pacidades entre 5 a 40 Mbytes, depen- 
dendo do modelo. 

O disco flexível, genericamente deno- 
minado disquete (ou floppy), é feito de 
plástico e protegido dentro de um enve- 
lope semi-rígido, lubrificado interna- 
mente. Pode ser adquirido em três ta- 
manhos: 8 polegadas (19 cm), 5,25 po- 1 
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legadas (12,5 cm) ou 3,5 polegadas (8,5 
cm) de diâmetro. O mais utilizado em 
computadores pessoais ainda é o de 5,25 
polegadas, chamado dc minidisquete, 
embora os microdisquetes (3,5 polega- 
das) estejam se tornando cada vez mais 
populares. Estes são embalados em car- 
tuchos rígidos, o que lhes confere van- 
tagens marcantes quanto ao manuseio 
e segurança. Sua capacidade é também 
bem maior, devido à superioridade na 
densidade de gravação. 

A velocidade de rotação de um dis- 
co, seu tamanho, íipo de superfície e a 
presença ou não de uma segunda cabe- 
ça do outro lado do disco condicionam 
a capacidade e velocidade de acesso dos 
diversos modelos existentes. O usuário 
deve, portanto, levar em conta todos es- 
ses fatores, se pretende escolher o acio- 
nador de discos mais adequado às suas 
necessidades. 

Os discos magnéticos classificam-se, 
ainda, em duas outras categorias: a ca- 
tegoria dos que só podem ser gravados 
em um lado (discos de face simples) e 
a dos que permitem a gravação nos dois 
lados, simultaneamente (discos de face 
dupla). 

A densidade de gravação também di- 
ferencia os discos. Os mais baratos e de 
menor qualidade têm densidade simples: 
sua capacidade total é bastante restrita. 
Os de maior capacidade e velocidade de 
transmissão têm densidade dupla. Final- 
mente, existem os discos de densidade 
quádrupla, com o dobro do número de 
trilhas dos outros discos. Estes utilizam 
uma técnica de pulsos de gravação di- 
ferente da técnica dos demais e oferecem 
o grau máximo de capacidade e veloci- 
dade. Naturalmente, o preço do disque- 
te aumenta de acordo com sua capa- 
cidade. 

Para maior segurança, devem ser 
usados os disquetes com a especificação 
correia para cada densidade. Mas mui- 
tos usuários que trabalham com aciona- 
dores de face simples (linha Apple, por 
exemplo) costumam utilizar também o 
outro lado disponível no disquete, fa- 
zendo um pequeno orifício quadrado na 
margem não perfurada do envelope. Tal 
procedimento deve ser evitado no caso 
de discos especificados para densidade 
simples. Além disso, convém levar em 
conta que detritos oriundos da perfura- 
ção podem danificar o disco e, até mes- 
mo, a cabeça do acionador. 



SISTEMAS OPERACIONAIS 



O controle dos acionadores de discos 
exige um software especial. Este é for- 
necido junto com o acionador, forman- 



do com ele uma unidade inseparável na 
utilização por um computador. Essen- 
cialmente um sistema operacional, o 
software gerência todos os processos de 
localização de informação e de transfe- 
rência entre computador e disco. 

Em geral, o sistema operacional de 
disco (DOS) não reside na memória 
ROM permanente do computador, pre- 
cisando ser carregado na RAM a partir 
do próprio disco, antes de ser ativado. 
Assim, uma parte da RAM é utilizada, 
ficando menos disponível para os pro- 
gramas e dados do usuário. 

Alguns computadores pessoais po- 
dem usar mais de um sistema operacio- 
nal com o mesmo acionador de disque- 
tes. Certos sistemas operacionais, por 
outro lado, têm mais comandos ou, ain- 
da, são mais poderosos e flexíveis do 
que outros. Mas é preciso cautela na es- 
colha, pois a formatação imposta ao dis- 
co muitas vezes varia entre sistemas ope- 
racionais. Em consequência, o usuário 
não conseguirá utilizar programas fei- 
tos para um DOS, se tiver carregado 
um DOS diferente no computador. Na 
maioria das vezes, porém, não há sequer 
a possibilidade de escolha entre vários 
tipos de DOS, pois só existe um para 
aquela marca de computador. 



INTERFACES E CONEXÕES 



Se você tem a intenção de adquirir 
um ou mais acionadores de discos, con- 
sidere cuidadosamente se a unidade em 
vista é realmente compatível com sua 
máquina. Além de um DOS adequado, 
é necessário também escolher um disco 
com interface que se adapte a seu siste- 
ma. Consulte os fabricantes — do com- 
putador e da unidade de discos — e pro- 
cure aconselhar-se junto a colegas e co- 
nhecidos que já tenham tido sucesso na 
compra de uma unidade de disco para 
um computador igual ao seu. 



SOFTWARE PARA DISCO 



Comprar um acionador de discos po- 
de ser muito bom para incrementar seu 
sistema, mas, para uma boa escolha, 
convém ter claro o que você pretende fa- 
zer com ele. Quer esteja pensando em 
desenvolver seus próprios programas — 
em Assembler, BASIC, PASCAL ou 
outra linguagem de programação — , 
quer pretenda apenas utilizar "pacotes" 
prontos de software, verifique primei- 
ro se as ferramentas de programação ou 
os próprios programas estão disponíveis 
em quantidade e qualidade para o siste- 
ma que você tem em mente. 



Sistemas baseados em microdisque- 
tes, por exemplo, são recentes no mer- 
cado, mesmo em termos internacionais, 
e ainda existe muito pouco software pa- 
ra esse formato. Também é pequena a 
oferta de software próprio para sistemas 
de disquetes para a linha MSX. À me- 
dida que um sistema vai se difundindo, 
porém, essa situação tende a mudar, 
Mas micros implantados há mais tem- 
po no mercado — como o Apple e o 
TRS-80 — terão sempre maior varieda- 
de de software que os demais. 

Existe ainda a alternativa de se trans- 
ferir software de um formato para ou- 
tro. Certos programas comercialmente 
disponíveis, por exemplo, tornam pos- 
sível copiar software de fita para disco; 
paralelamente, alguns sistemas opera- 
cionais reconhecem discos de diferentes 
densidades, e assim por diante. Em um 
próximo artigo trataremos em detalhes 
desse assunto. 



COMO ESCOLHER? 



O custo é, certamente, um fator bas- 
tante significativo no momenio de de- 
cidir entre um sistema baseado em fita 
e outro baseado em disco. Muitas das 
vantagens dos discos não são importan- 
tes para usuários domésticos interessa- 
dos apenas em aplicações como jogos. 
Para a maioria dos computadores pes- 
soais não existem, em disquete, muitas 
opções de programas recreativos ou de 
videogames, e o pouco que se encontra 
custa mais caro do que a mesma /ersão 
para fita. Em contrapartida, há a pos- 
sibilidade de que a versão para disquete 
seja mais sofisticada. 

As unidades de disco são muito mais 
caras do que as de fita, custando mais 
do que o próprio computador. Âs vezes, 
o preço não inclui o cabo de ligação, que 
também é caro. 

É preciso considerar, ainda, o custo 
do suporte de informação. O preço de 
um disquete é muitíssimo mais elevado 
do que o de uma fita cassete de boa qua- 
lidade. Normalmente um disquete de 
densidade quádrupla custa quatro ou 
cinco vezes mais do que um de densida- 
de simples. No entanto, deve-se levar em 
conta que, ao contrário da fita, o dis- 
quete permite aproveitamento total de 
sua capacidade. 

Já os discos rígidos são tremenda- 
mente caros e úteis apenas em aplicações 
mais profissionais. É claro que seria 
muito bom ter todo o seu software dis- 
ponível instantaneamente no mesmo dis- 
co, e carregá-lo em um piscar de olhos. 
Mas será que isso vale o preço de um 
Winchester? 
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COMPLETE SEU JOGO 


CAÇANiQUEIS 


■ 


A ROTINA PRINCIPAL 


■ 


GIRE AS RODINHAS 



OS RESULTADOS PREMIADOS 




Depois de completar o jogo com esta 
segunda parte, puxe a manivela 
e tente obter três frutas iguais no 
caça-níqueís. Esse resultado 
pagará vinte vezes a sua aposta. 

Segunda e última parte do nosso jo- 
go caça-níqueis, este artigo nos coloca 
em condições de executar todo o progra- 
ma, cujo primeiro segmento você já de- 
ve ter gravado. 



210 LET HOLD-0 

220 LET TOTAL-TOTAL-10: LET NU 
DGE-0: PRINT AT 13,26; INK 2;" 

230 IF HFLAG=0 THEN - LET HOLD= 
O 

240 FOR 1=1 TO 3: FOR J=l TO 
12: SOUND .001,60 
250 IF HOLD-0 THEN PRINT AT 7 
,10iA3(J);AT 7 , 15 ; B3 ( J) i AT 7, 
20:CS(J);AT 10 , 10 ; AS ( J + l ) ; AT 
10 , 15 ; BS ( J+l) i AT 10 . 20 i C3 ( J+l ) 
i AT 1 3 , 10 ; AS ( J + 2 1 : AT 13,15;BS( 
J+2);AT 13,20;CS{J+2) : NEXT J: 
NEXT I 

270 IF HOLD-1 THEN PRINT AT 7 
,15iB3tJ);AT 7 , 20 ; C3 ( J) : AT 10. 

15 i BS (J+l) ; AT 10,20;C3(J+1) ; 
AT 13 , 15 ; B3 C J+2) ; AT 13,20fC3(J 
+2) : NEXT J: NEXT I 
280 IF HOLD-6 THEN PRINT AT 7 
,15iB3(J)lAT 10, 15 ; BS (J+l) ; AT 
13,15iB3(J+2) ; NEXT J: NEXT I 
290 IF HOI.D-2 THEN PRINT AT 7 
,10iAS(J)iAT 7 . 20 ; CS ( J) i AT 10, 
10 ; A3 < J+l ) í AT 10 . 20 ; CS (J + l) : AT 
13 , 10 ; AS (J+2) í AT 13 , 20 ; CS (J+2) 
: NEXT J: NEXT I 
300 IF HOLD-5 THEN PRINT AT 7 
,10iAS(J);AT 10 , 10 ; AS t J+l) ; AT 
13.10iAS(J+2) : NEXT J: NEXT I 
310 IF HOLD-3 THEN PRINT AT 7 
,10;AS(J);AT 7 , 15 iBS ( J) ; AT 10, 
10 ; AS (J+l ) ; AT 10 , 15 : BS í J+l ) ; AT 

13 , 10 ; A3 (J+2) i AT 13,15 : BS(J+2 
) : NEXT J: NEXT I 
320 IF HOLDOl AND H0LDO4 AND 
H0LDO6 THEN LET M-INT {RND* 
12): IF M-0 THEN LET M-l 
330 IF H0LDO2 AND H0LDO5 AND 
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700 IF M$( TO 4)-C$(l) AND MS ( 
TO 4) -MS (5 TO 8) AND MS ( TO 4) 
-M3(9 TO ) THEN LET TOTAL "TOT 
AL+50 

710 IF MS( TO 4)-C$(3> AND MS í 
TO 4)-M$(5 TO 8) AND MS < TO 4) 
-MS (9 TO ) THEN LET TOTAL-TOT 
AL+50 

720 IF M3( TO 4) -AS (3) THEN 
LET TOTAL-TOTAL+10: IF MS (5 TO 
8) -ASO) THEN LET TOTAL-TOTA 
L+10 



H0LDO4 THEN LET K-TNT {RND* 
12): IF K-0 THEN LET K-l 
340 IF H0LDO3 AND H0LDO5 AND 
H0LDO6 THEN LET L-INT (RND* 
12) : IF L-0 THEN LET L-l 
350 LET HOLD-0 

360 PRINT AT 7 , 10 ; A3 (M) i AT 7, 
15;B5(K);AT 7 . 20 ; CS ÍL) ; AT 10. 
10;A3<M+1) ; AT 10,13;B3(K*1) ; AT 
10 , 20 ; CS í L+l ) ;AT 1 3 , 10 ; AS {M+2) 
i AT 1 3 ■ 15 ; B$ (K+2) ;AT 13,20;CS( 
L+2) 

A linha 210 coloca zero na variável 
que segura uma ou mais rodas, que po- 
dem ser escolhidas através do leclado. 
A rotina verifica qual é o conteúdo des- 
sa variável e faz com que se movimen- 
tem as rodas que estão livres. 

Depois de girar as rodas, a rotina re- 
coloca zero em HOLD na linha 350 — 
os botões que seguram as rodas são apa- 
gados — e, em seguida, a linha 360 
incumbe-se de desenhá-las em sua posi- 
ção final, paradas. 



VERIFIQUE 0 RESULTADO 



370 COSUB 510 

510 LET TS-AS(M)+B3(K)+CS(L) 
520 LET LS-A$(M+1)+BS(K+1)+C3< 
L+l) 

530 LET L3-AS(M+2)+BS(K+2)+C3( 
L+2) 

540 GOSUB 660 
550 BETUBN 
680 LET TEMP-TOTAL 
690 IF M3( TO 4) -MS (5 TO 8) 
AND MS< TO 4) -MS (9 TO ) THEN 
LET T0TAL-T0TAL+50: IF MS ( TO 
4)-C3(4) THEN LET TOTAL -TOTAL 
I +5000 ! GOTO 640 




730 IF TOTAL>TEMP THEN FOR I- 
1 TO 6: SOUND .05,50: NEXT I 
740 LET DD-INT (TOTAL/100) : 
LET CC-TOTAL- (DD»100) : PRINT 
IN* 2; PAPER 6jAT 17, 0;"$ 

" ; AT 18 , 0 : "C "i PAPER 7; 

BRIGHT liAT 17.1;" " ; DD i AT 18, 



1 ; 



jCC 



COMO DAR UM EMPURRÃOZINHO 



3B0 IF M<7 OR K-L OR L>2 THEN 
LET NUDGE-1: PRINT BRIGHT li 
PAPER 7i INK 2;AT 13,26;-NUDGE 

390 LET HFLAG-INT (RND+.5): IF 
HFLAG-1 THEN FOR 1-1 TO 19 
STEP 5: PRINT AT 16,1; INK 6; 
BRIGHT li "HOLD*;: NEXT I 
400 IF INKEYSO" " THEN GOTO 
400 

410 LET IS-INKEYS: IF IS-"" 
THEN GOTO 410 

420 IF IS-" " THEN FOR 1-9 TO 
19 3TEP 5: PRINT INK 2;AT 16, 
I;" ": NEXT I: GOTO 210 
430 IF I3-"E" AND NUDGE-1 THEN 

GOSUB 600: LET NUDGE-0: PRINT 
AT 13,26; INK 2;" ": SOUND 

.1,30: GOSUB 510: LET RN-INT ( 
RNDM0) : IF INT (RN/2)=RN/2 
AND HFLAGOl THEN LET NUDGE-1 
: PRINT AT 13,26; INK 7; 
BRIGHT 1; "NUDGE": GOTO 400 
440 IF IS="Q" AND NUDGE-1 THEN 

GOSUB 560: LET NUDGE-0 l PRINT 
AT 13.26r INK 2;" ": SOUND 

.1,30: GOSUB 510: LET RN-INT ( 
RNDM0) : IF INT (RN/2)-RN/2 
AND RN O THEN LET NUDGE-1: 
PRINT AT 13,26; INK 7; BRIGHT 
1 ; "NUDGE" : GOTO 400 
450 IF IS-"W AND NUDGE-1 THEN 

GOSUB 5B0: LET NUDGE-0: PRINT 
AT 13,26; INK 2t" *! SOUND 

.1,30: GOSUB 510 



A linha 370 salta para a sub-rotina da 
linha 510, que coloca as três linhas mos- 
tradas pelas rodas nas variáveis alfanu- 
méricas T$, MS e LS. A linha do meio, 
M$, é a que vale para fins de contagem 
de pontos. 

A sub-rotina que faz isso começa na 
linha 680. Ela verifica se ocorreu, em al- 
gum lugar, uma linha premiada, e so- 
ma o valor do prémio ao patrimônio 
acumulado pelo jogador. 




460 IF IS- "D* AND NUDGE-1 THEN 
GOSUB 620: LET NUDGE-0: PRINT 
AT 13,26.; INK 2:" SOUND 

.1,30: GOSUB 510: LET RN-INT ( 
RND"10) : IF INT (RN/2JORN/2 
THEN LET NUDGE-1: PRINT AT 13 

,26; INK 7; BRIGHT 1 ; "NUDGE" : 
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610 PBINT AT 7 
20;C3(L+1) i AT 1 
BE TU RN 

620 LET L-L-l: 
LET L-L+12 
630 PBINT AT 7 
20:CS<L+1) i AT 1 
RETURN 

640 LET M-M-l: 
LET M-M+12 
650 PRINT AT 7 
10:A3<M+1) i AT 1 
RETURN 

660 LET K-K-l : 
LET K-K+12 
670 PRINT AT 7. 
15;BS(K+1> tAT 1 
RETURN 



20;CS<L) íAT 10. 
3,20:CS{L+2) ! 



20iC3(L) i AT 10, 
.3,20;CS<L+2) : 



10iAS(M} i AT 10, 
3.10|A9 (M+2) : 



lbiBS(K) i AT 10, 
3.15:flS(K+2) ! 



GOTO 400 

470 IF I3-"S" AND NUDCE-1 THEN 
GOSUB 660: LET NUDGE-O: PRINT 
AT 13.26; INK 2|" ": SOUND 

.1,30: GOSUB 510: LET RN-INT ( 
RNDMO) : IF INT (HN/2J-RN/2 
THEN LET NUDGE=1 : PRINT AT 13 

,26i INK 7; BRIGHT 1;"NUDGE": 
GOTO 400 

460 IF IS-"A" AND NUDGE-1 THEN 

GOSUB 640: LET NUDGE-0: PRINT 
AT 13,26! INK 2i" "i SOUND 

1,30' GOSUB 510: LET RN-INT ( 
RND*10) : IF INT (RN/2)ORN/2 
AND RN>6 THEN LET NUDOE-1 : 
PRINT AT 13,26: INK 7; BRIGHT 
li"NUDGE": GOTO 400 
490 IF HFLAG-1 AND IS-"1" OR I 
3-"2" OR I3-"3" OR I3-"4" OR I 
3-"5" OR IS-"6" THEN LET HOLD 
-VAL IS: FOR 1-1 TO 19 STEP 5: 

PBINT AT 16.1: INK 2 ; " ": 

NEXT I: GOTO 220 
500 GOTO 400 

560 LET M-M+l: IF M>12 THEN 
LET M=M-12 

570 PRINT AT 7 . 10 : AS (M) ; AT 10, 
10 : A$ (M+l ) ; AT 13,10;AS(M+2) : 
RETURN 

5B0 LET K-K+l: IF KM2 THEN 
LET K-K-12 

590 PRINT AT 7 , 15 ; BS <K) : AT 10. 
15 ; BS (K+l ) : AT 1 3 . 15 : BS (K+2) : 
RETURN 

600 LET L-L*l: IF L>12 THEN 
LET L-L-12 




CE PERDEU TODO SEU DINHEIRO": 
SOUND 1,-20 

BOO PRINT '" QUER RECOMEÇA 

R (S/N) ?" 

810 IF INKEY3-" THEN GOTO 
810 

820 LET IS-INKEYS: IF IS-"S" 
OR IS--B" THEN RUN 
830 STOP 

840 CLS : PRINT AT 10,0:" 

PARABÉNS ! VO 
CE ACABA DE GANHAR O PREMIO. " : 

PRINT '" VOCE ESTA S500.00 MA 
IS RICO !": FOR J-l TO 3: FOR 
1-1 TO 10: SOUND .01.5*1: NEXT 

I: NEXT J 
850 GOTO 800 

A rotina da linha 760 oferece ao 
usuário a oportunidade de disputar mais 
um jogo. Ela é chamada quando o jo- 
gador fica sem dinheiro. 

A rotina que cuida do prémio máxi- 
mo — três sinos — dá as boas novas ao 
jogador e soma $500 ao seu score. Nes- 
se caso, a partida termina, pois a banca 
foi quebrada. O jogador pode. então, 
jogar outra vez. 



350 M-100:H — 1:1 — 1 : J--1 : P-RND { 
16) -1 :0-RND(16)-l:R-RNDU6)-l 
360 SCREEN l:GOSUB 1000:GOSUB 2 
000 -GOSUB 2500 :IF M>0 THEN 360 
370 CLS:PRINT Í101:"YOU RAN OUT 

OF MONEY" 
380 PRINT «417," <SPACE> PARA R 
ECOMECAR" 

390 IF INKEYSO" " THEN 390 ELS 
E RUN 



A rotina que empurra as rodas é mui- 
to semelhante àquela que as segura. As 
rodas são movimentadas para cima ou 
para baixo conforme a escolha do joga- 
dor. As teclas que empurram as rodas 
são mostradas na tela. A cada empur- 
rão, um número aleatório é usado para 
determinar se o jogador poderá recor- 
rer novamente a essa função. 
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A linha 350 estabelece o valor do pri- 
meiro cacife em dólar. Ela também acer- 
ta os valores iniciais das variáveis que 
indicam se alguma roda está presa, as- 
sim como das variáveis que controlam 
a posição das rodas. A linha 360, laco 
principal do programa, chama ordena- 
damente as sub-rotinas que giram as ro- 
das, desenham as frutas na tela e per- 
mitem ao jogador apostar, segurar e em- 
purrar as rodas. 

Se o jogador ficar sem dinheiro, a li- 
nha 370 terminará o jogo e oferecerá ao 
usuário a oportunidade de disputar ou- 
tra partida. 



500 ON CH+1 GOTO 540,530,560.55 
0,570,510,520 

510 PUT{XX.YY)-(XX+31. YY+15) ,B. 
PSET : RETURN 

520 PUTtXX, YY)-(XX+31. YY+15) ,C, 
PSET : RETURN 

530 PUT(XX,YY)-(XX+31 .YY+15) ,A. 
PSET : RETURN 

540 PUT (XX , YY) - (XX* 31 , YY+15) , BR 
, PSET : RETURN 

550 PUT(XX.YY) - (XX+31 .YY+15) ,S, 
PSET: RETURN 

560 PUT(XX.YY)-(XX+31 .YY+15) , PL 
, PSET : RETURN 

570 PUT(XX. YY)-(XX+31, YY+15) ,P. 
PSET: RETURN 

1000 M=M-10;FOR L-l TO RND ( 3 ) +R 
ND{3) 

1010 IF H GOSUB 1520 
1020 IF I GOSUB 1530 
1030 IF J GOSUB 1540 
1040 NEXT : IF H THEN SOUND 100,1 
1050 FOR L-l TO RND{3)+RND(3) 
1060 IF I GOSUB 1530 
1070 IF J GOSUB 1540 
1080 NEXT : IF I THEN SOUND 120,1 
1090 FOR L-l TO RND (3) +RND (3) 
1100 IF J GOSUB 1540 
1110 NEXT : IF J THEN SOVKD 140,1 
1120 B--1 : 1— 1 :J--1 : RETURN 
1500 CLS:IF D-0 THEN RETURN ELS 
E PRINT «166.USING"CREDITO= SSI 
• iM/100 : FOR A-10 TO D STEP 

10 :M-M+10 : PRINT 6166 , USING"CRE 
DITO= $s#i*.|»";M/loo 
1510 SOUND 200,1: FOR B-0 TO 400 
: NEXT B , A: RETURN 

1520 P=(P-1) AND 15:XX=48:YY=28 
:F0R G-P-l TO P+1:CH-R1(15 AND 
G):GOSUB 500 : YY-YY+32 :NEXT : RETU 
RN 

1530 Q-IQ.-1) AND 15:XX-112:YY-2 
8:F0R G-Q-l TO 0+1 : CH-R2 (15 AND 
G) : GOSUB 500 : Y Y=YY+ 3 2 : NEXT : RET 
08M 

1540 R-(R-l) AND 15 : XX-1 76 : YY-2 
S:FOR G-R-l TO R+l : CH-H3 {15 AND 
G) : GOSUB 5O0:YY-YY+32:NEXT:RET 
URN 

1550 C-9:IF (RI (P) "R2 (Q) ) AND {R 
2{Q)-R3(R)) THEN C-Rl (P) .RETURN 
1560 IF R1(P)-R2(Q) AND (RKP)- 



6 OR Rl(P)-S) THEN C-1+RUP):RE 
TURN 

1570 IF Rl{P)-6 THEN C-8 
15B0 RETURN 

As linhas 500 a 570 usam PUT para 
desenhar as frutas na tela. As linhas 
1000 a 1 120 giram as rodas, chamando 
as sub-rotinas das linhas 1520 a 1540. As 
linhas 1150 a 1180 acusam um resulta- 
do premiado e a linha 1 500 soma o pré- 
mio às posses do jogador. 



APOSTAR, SEGURAR, EMPURRAR 



2000 GOSUB 1550 

2010 IF C-9 OR C-0 THEN D-W (C) : 
GOSUB 1500: RETURN 
2020 CLS9-C:PRINT «265 , 'apontar 
" ; :PRINT«27B,USING "SSI.M 

O/100; 

2030 PLAY "L4T20B": PRINT «212, U 
SING-SSI-M "sW(C-l)/100! : PRINT 

«340. STRINGS (7 . 271-C"16) ; 
2040 PLAY"T20C" : PRINT «212.STRI 
NGS(7, 271-C16) ; : PRINT «340. USI 
NG"SS#.#* -;W(C+1)/100; 
2050 R$-INKEYS:IF RS<>" " AND R 
3<>CHR3(13) THEN 2030 
2060 IF RS-CHRS (13) THEN CLS:D- 
W(C) :GOSUB 1500:RETURN 
2070 IF RND{2)=1 THEN CLS:D=W(C 
+1) : GOSUB 1500:RETURN 
2080 C=C-1:IF C-0 THEN D-200:GO 
SUB 1500:RETURN 
2090 GOTO 2020 

2500 IF RND(4)-1 GOSUB 3060:GOT 
O 2550 

2510 IF RND(5)<3 THEN 2560 
2520 FOR K = l TO 2000 : NEXT : SCREE 
N 1 .0 

2530 AS-INKEYS:IF AS<>" " AND A 
$<>"C" THEN 2530 
2540 IF AS-"" " THEN RETURN 
2550 CLS:PRINT «166 , USING"CREDI 
TO= SSMI . I»" ;M/100 :G0TO 2520 
2560 SCREEN 1 , 0 : H— 1 : 1 — 1 : J— 1 
2570 IF H THEN PUT (38,122)- (91 , 
143) .H.NOT 

2580 IF I THEN PUT {102 . 122) -{ 15 
5,143) . H , NOT 

2590 IF J THEN PUT (166 , 122) - (21 
9,143) , H.NOT 

2600 RS"INKEYS:IF RS" " " THEN F 
OR K-0 TO 2:PUT(38+64*K.122)-{9 
1+64*K,143) , H , PSET : NEXT : RETURN 
3000 IF RS<"1" OR R$>"4" THEN 2 
570 

3010 ON VAL(RS) GOTO 3020,3030, 
3040, 3050 

3020 H--I:I--1:J — l:GOTO 2570 
3030 H=0:PUT(38,122)-(91 ,143) ,H 
,PSET:GOTO 2570 

3040 I-0:PUT(102.122)-<155,143) 

,H.PSET:GOTO 2570 

3050 J-0:PUT(166,122)-(219,143) 

,H,PS£T:GOTO 2570 

3060 SCREEN 1,0: COLOR 4,2:PUT{1 

59,156)- (224.170) , H. NOT : PLAY"L4 

OT10- 

3070 K=l 

3080 LINE(10+K*16,15B)-(21+K*16 



,169) , PRESET, BF 
3090 IF INKEYS-" " THEN 3120 
3100 K-K+1:PLAY STRS<K*2):IF K< 
6 THEN 3080 

3110 FOR K-l TO 5:LINE{10+K*16, 
158)-{21+K*16,169) , PSET , BF :NEXT 
:GOTO 3070 

3120 N-K:PUT{159,156)-(224.170) 
. H , NOT 

3130 R$-INKEY$:IF(RS<*5* OR RS> 
"9") AND RS<>*0" THEN 3130 
3140 IF R$-*0" THEN RS-"10" 
3150 ON VAL (RS) -4 GOTO 3160,317 
0.3180,3190,3200.3210 
3160 P-P+2:GOSUB 1520:GOTO 3220 
3170 Q-Q+2:GOSUB 1530:GOTO 3220 
3180 R-R+2:GOSUB 1540:GOTO 3220 
3190 GOSUB 1520:GOTO 3220 
3200 GOSUB 1530:GOTO 3220 
3210 GOSUB 1540 

3220 SOUND 4 0.1. 'GOSUB 1550:IF C 
<9 GOSUB 2010:N-0:GOTO 3250 
3230 IF N-l THEN N-0:GOTO 3250 
3240 LINE(10+N*16.158)-(21+N"16 
, 169) . PSET. BF :N-N-1 :GOTO 3130 
3250 FOR K-l TO 5:LINE(10+K*16. 
158)-{21+K-16.169) , PSET , BF : NEXT 
: RETURN 

As linhas 2010 a 2050 permitem que 
o jogador faça a sua aposta. Ele pode 
então melhorar o prémio que recebeu 
anteriormente (ou, na pior das hipóte- 
ses, perder parte dele). 

A rotina que segura as rodas 
encontra-se entre as linhas 2530 e 3050, 
sendo chamada da linha 2510. Os indi- 
cadores que definem a liberdade das ro- 
das são modificados de acordo com as 
teclas apertadas pelo jogador. 

As linhas 3060 a 3250 permitem que 
o jogador empurre uma das rodas, 
movendo-a uma posição para cima ou 
para baixo. O número de movimentos 
oferecidos é selecionado ao acaso na li- 
nha 2500. A rotina detecta as teclas se- 
lecionadas, movendo as rodas de acor- 
do com cada uma delas. 



1160 FOR 1=1 TO 2000:NEXT 
1200 R=RND ( -TI ME) : M = 100 : H=- 1. : 1 = 
-1: J=-1:P-INT(RND(1)*15) :Q=INT( 
RND ( 1 ) "15 ) :R=INT(RND(1)"15) 
1210 LOCATE 0,22:PRINT STR I NGS ( 
30,32) ; :GOSUB 1.400: GOSUB 2000:G 
OSUB 2500 :IF M>0 AND M<5000 THE 
N 1210 

1215 IF M>-5000 THEN CLS : LOCATE 
0,11:PRINT "RAPA TUDO E ESTOtIR 
A A BANCA" : GOTO 1230 
1220 LOCATE 0,22:PRINT "SEU DIN 
HEIRO ACABOU " ; 

1230 LOCATE 0.23:PRINT "APERTE 
>ESPACO P/ REPETIR" ; 
1240 IF INKEYSO" " THEN 1240 E 
LSE RUN 
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A linha 1200 estabelece o valor de um 
dólar para o primeiro cacife e acerta os 
valores iniciais das variáveis que indicam 
se alguma das rodas está presa, assim 
como das variáveis que controlam a po- 
sição das rodas. A linha 1210 é o laço 
principal do programa. Ela chama or- 
denadamente as sub-rotinas que giram 
as rodas, desenham as frutas na tela e 
permitem ao jogador apostar, segurar e 
empurrar as rodas. O gerador de nume- 
ras randômicos também é acertado nes- 
sa linha. 

Se o jogador ficar sem dinheiro, a li- 
nha 1220 concluirá o jogo e dará ao 
usuário a oportunidade de jogar nova- 
mente. Quando existirem três sinos na 
linha correspondente ao meio das rodas, 
haverá o estorno da banca e o jogo tam- 
bém terá chegado ao fim, agora com a 
vitória do jogador. 



FRUTAS NA TELA 



1300 VPOKE BASE(S)+YY,Cl:UPOKE 
BASE ( 5 ) +Y Y+ 1 , C2 : RETURN 
1400 M-M-10:GOSUB 4000:FOR L-l 
TO INTCRND(1)*3+1)«INT(RND<1)«3 
+ 1) 

1405 IF H THEN GOSUB 1520 
1410 IF I THEN GOSUB 1530 
1415 IF J THEN GOSUB 1540 
1420 NEXT 

1425 FOR L-l TO INT (RND (1 ) *3 + l ) 

"INT(RND(1)«3+1> 

1430 IF I THEN GOSUB 1530 

1435 IF J THEN GOSUB 1540 

1440 NEXT 

1450 FOR L-l TO INT {RND (1 ) "3+1 ) 

•INT{RND{1)*3+1) 

1455 IF J THEN GOSUB 1540 

1460 NEXT 

1470 FOR L-8 TO 10:SOUND L,0:NE 
XT:H— 1:1— 1:J— 1 
1480 RETURN 

1500 IF D-0 THEN RETURN ELSE M- 
M+D 

1510 RETURN 

1520 P-(P-11AND15:YY-235:F0R G» 
P-1 TO P+l :C1-A<15ANDG. 1) :C2-A( 
15ANDG.2) :G0SUB 1300 : YY-YY+96 : N 
EXT : RETURN 

1530 Q-(Q-l>AND15:YY-239:FOR G- 
Q-l TO O+l :C1-B(15ANDG, l) : C2-B ( 
15ANDG, 2 } : GOSUB 1 300 : YY-YY+96 : N 
EXT : RETURN 

1540 R-(R-l)AND15:YY-243:FOR G- 
fl-1 TO R+1:C1-C(15ANDG,1) :C2-C( 
15ANDG.2) :GOSUB 1300: YY-YY+96 : N 
EXT: RETURN 

1550 D-0 

1551 IF AÍP.D-136 THEN D-10 

1552 IF A<P,1)-B«3.1> AND A(P,1 
1-136 THEN D-20 : RETURN 

1553 IF NOT(A(P.l)-B{0..1> AND B 
(0,1)-C{R.1>) THEN RETURN 

1554 A-A(P.l) 

1556 IF A-120 THEN D-50 

1557 IF A-184 THEN D-50 



1558 IF A-216 THEN D-50 

1559 IF A-152 THEN D-100 

1560 IF A-168 THEN D-100 

1561 IF A-200 THEN M-M+5000:GOT 
O 1215 

15 70 RETURN 

A tinha 1300 usa o comando VPO- 
KE para desenhar as frutas na tela. As 
linhas que vão de 1400 a 1480 giram as 
rodas chamando as sub-rotinas das li- 
nhas 1520 a 1540. 

As linhas 1550 a 1570, por sua vez, 
verificam se houve um resultado premia- 
do e a linha 1500, finalmente, soma o 
prémio às posses do jogador. 



EMPURRAR E SEGURAR AS RODAS 



2000 GOSUB 1550:OOSUB 1500:G03U 
B 2550:RETURN 

2500 IF INT(RND(1)*4+1)-1 THEN 
GOSUB 3060:GOSUB 2550:GOTO 2530 
2510 IF INT(RND(1)*5+1K3 THEN 
2560 

2530 AS-INKEYS:IF AS<>" " THEN 
2530 

2540 RETURN 

2550 MS-STRS(M) : LOCATE 2,15:PRI 
NT RIGHTS (M$ , 2) ; : LOCATE 2.14:PR 
INT " ";:IF MW00THEN LOCATE 
2 , 14 : PR INT LEFTS ÍMS ,2) ; : RETURN 
2555 RETURN 

2560 H--1 :I--1 : J"-l : LOCATE 4,22 

:PRINT "PODE SEGURAR AS RODAS " 

2600 RS-INKEY3:IF {R8<"1" OR RS 

>"6") AND RSO" " THEN 2560 

3000 IF RS-" " THEN RETURN 

3010 ON VAL(R$) GOTO 3020,3025. 

3030.3035.3040,3045 

3020 H-0 :G0TO 3050 

3025 I-0:GOTO 3050 

3030 J-0:GOTO 3050 

3035 H-0:I-0:GOT() 3050 

3040 J-0:I-0:GOTO 3050 

3045 J-0:H-0 

3050 RETURN 

3060 LOCATE 3,22;PRINT "PODE EM 

PU RR AR AS RODAS " 

3070 N-INT(RNDU)«5+1) 

3080 RS-INKEY$:IF R3-"" THEN 30 

80 

3100 IF RS-"(T THEN 3160 
3.110 IF RS-"W" THEN 3170 
3120 IF RS-"E" THEN 3180 
3130 IF R3-"A" THEN 3190 
3140 IF RS-"S" THEN 3200 
3150 TF RS-"D" THEN .1210 
3155 GOTO 3080 

3160 P-P+2:G0SUB 1520:G0TO 3220 
3170 (J-Q+2:O0SUB 1530: GOTO 3220 
3180 R-R+2:GOSUB 1540:GOTO 3220 
3190 GOSUB 1520:GOTO 3220 
3200 GOSUB 1530:GOTO 3220 
3210 GOSUB 1540 

3220 GOSUB 1550 :IF D>0 THEN GOS 

UB 2000:N-0:GOTO 3250 

3230 IF N-l THEN N-0:GOTO 3250 

3240 N-N-l:GOTO 3080 

3250 LOCATE 0.22:PRINT STRINCS ( 

30.32) : : RETURN 



A rotina que segura as rodas está en- 
tre as linhas 2560 e 3050, sendo chama- 
da a partir da linha 2510. Os indicado- 
res que revelam se as rodas estão livres 
são modificados conforme as teclas 
apertadas pelo jogador. 

As linhas que vão de 3060 a 3250 per- 
mitem que o jogador empurre uma das 
rodas, movendo-a uma posição para ci- 
ma ou para baixo. O número de empur- 
rões oferecidos é selecionado ao acaso 
na linha 3070. A rotina detecta as teclas 
selecionadas, movendo as rodas de acor- 
do com cada uma delas. 



EFEITOS SONOROS 



A rotina situada na linha 4000 acer- 
ta os valores dos registros do chip so- 
noro do MSX para simular o ruído de 
rodas em movimento. 

4000 R ESTORE 4030 : FOR L-4 TO 13 

4010 READ A-SOUND L.A 

4020 NEXT 

4030 DATA 0,9.15 

4040 DATA 4 2.0.12.16,100,5.12 

4050 RETURN 

300 GOSUB 700: GOSUB 4000: GOS 
UB 310: GOSUB 7B0 : GOTO 1000 
1000 M - 1:H - 1:1 ■ 1:J " 1:P 
- INT ( RND U) * 16) :Q - INT 

( RND (1) * 16) :R - INT ( RND 

(1) • 16) 
1010 POKE - 16299,0: POKE - 
16304,0: GOSUB 1300: GOSUB 2000 
: GOSUB 2500: IF M > 0 THEN 101 
0 

1020 TEXT : HOME ! VTAB 20: PB 
INT "SEU DINHEIRO ACABOU" 
1030 PRINT "APERTE A BARRA DE 
ESPAÇO" : PRINT "PARA JOGAR NOVA 
MENTE" 

1040 GET AS: IF AS " " THEN 
RUN 

1050 GOTO 1040 

1200 HCOLOR- 0: DHAW 15 AT XX. 
YY: DRAW 15 AT XX + B.YY: DRAW 
15 AT XX. YY + 4: DRAW 15 AT XX 
+ B.YY + 4 

1205 ON CH + 1 GOTO 1240.1230, 
1260,1250,1270,1210.1220 
1210 HCOLOR- 3: DRAW 7 AT XX . Y 
Y ! DRAW 8 AT XX + 7.YY: RETURN 
1220 HCOLOR" 3: DRAW 5 AT XX. Y 
Y: DRAW 6 AT XX + 7 , YY : RETURN 
1230 HCOLOR- 7: DRAW 13 AT XX, 
YY: DRAW 14 AT XX + 7 , YY : RETUR 
N 

1240 HCOLOR- 3: DRAW 3 AT XX. Y 
Y s DRAW 4 AT XX + 8.YY: RETURN 
1250 HCOLOR- 3: DRAW 1 AT XX + 
l.YY: DRAW 2 AT XX + 8 , YY : RET 
URN 

1260 HCOLOR- 7: DRAW 11 AT XX, 
YY: DRAW 12 AT XX + 7.YY: RETUS 
N 
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1270 HCOLOH- 3: DBAW 9 AT XX + 
l.YY: DRAW 10 AT XX + 8.YY: RE 
TURN 

1300 M - M - .1: FOB L - 1 TO 
INT (3 * RND (1) + 1) + INT ( 
3 * PHD (1) + 1) 

1310 IF H THEN GOSUB 1520:X - 

PEEK ( - 16336) 
1320 IF I THEN GOSUB 1530 :X - 

PEEK { - 16336) 
1330 IF J THEN GOSUB 1540;X - 

PEEK í - 16336) 
1340 NEXT : IF H THEN CALL - 
19B 

1350 FOR L - 1 TO INT (3 * R 
NO (1) + 1) + INT (3 * RND (1 
) + D 

1360 IF I THEN GOSUB 1530:X - 

PEEK ( - 16336) 
1370 IF J THEN GOSUB 1540:X - 

PEEK ( - 16336) 
1380 NEXT ! IF I THEN CALL - 
196 

1390 FOR L - 1 TO INT (3 * R 
ND (1) + 1) + INT (3 * RND (1 
) + D 

1400 IF J THEN GOSUB 1540:X - 

PEEK ( - 16336) 
1410 NEXT : IF J THEN CALL - 
198 

1420 H ■ 1:1 ■ 1 ! J " 1' RETURN 
1500 IF D - 0 THEN RETURN 
1505 HOME : TEXT : UTAB 20:M - 
M + D: PRINT "CREDITO : 3" ;M 
1510 FOR B ■ 0 TO 400: NEXT ! 
RETURN 

1520 P - P - 1:XX - 80 : YY - 90: 
IF P - - 1 THEN P - 15 

1522 FOR G-P-1TOP+1: I 
F G - - 1 THEN CH - RI (15): GO 
TO 1525 

1523 IF G = 16 THEN CH = RI (0) 
: GOTO 1525 

1524 CH - RI <G) 

1525 GOSUB 1200:YY - YY + 20: 
NEXT : RETURN 

1530 Q ' Q - 1:XX = 126:YY = 90 
: IF Q - - l THEN tf - 15 

1532 FOR G-O-lTOQ+l: I 
F G - - 1 THEN CH - R2U5) : GO 
TO 1535 

1533 IF G - 16 THEN CH = R2 (0, 
: GOTO 1535 

1534 CH - R2 (G) 

1535 GOSUB 1200:YY - YY + 20: 
NEXT : RETURN 

1540 R - R - 1:XX - 174:YY - 90 
: IF R - - 1 THEN R - 15 

1542 FOR G-R-1TOR+1: I 
F G - - 1 THEN CH » R3 115): GO 
TO 1545 

1543 IF G - 16 THEN CH = R3(0) 
: GOTO 1545 

1544 CH - R3ÍG) 

1545 GOSUB 1200:YY - YY + 20: 
NEXT : RETURN 

1550 C - 9: IF <R1(P) = R2(Q)) 
AND (R2(Q) - R3(R)) THEN C - RI 
(P) : RETURN 

1560 IF RI <P) - R2(Q) AND (RI ( 
P) - 6 OR Rl(P) - 5) THEN C - 1 
+ RI (P) : RETURN 



1570 IF RI (P) - 6 THEN C - 8 

15BO RETURN 

2000 GOSUB 1550 

2010 IF C - 9 OR C - 0 THEN D 

- W(C): GOSUB 1500: RETURN 

2020 HOME : TEXT : VTAB 20: PR 

INT 'PREMIO - S"iW(C) 

2030 PRINT "QUER APOSTAR ? 

2050 PRINT *<ESPACO>": TAB ( 20 

); "APOSTA": PRINT "<HETURN>"; T 

AB( 20) ; "RECOLHE O PREMIO" 

2055 GET AS: IF AS < > " " AN 

D AS < > CHRS (13) THEN 2020 

2060 IF AS - CHRS Íl3) THEN 

HOME :D - W (C) : GOSUB 1500: RET 

URN 

2070 IF INT (2 * RND (J) + 1 
) - 2 THEN HOME :D - W(C + 1): 

GOSUB 1500: RETURN 
2080 C-C-l: IFC-0 THEN D 

- 2: GOSUB 1500: RETURN 
2090 GOTO 2020 

2500 IF INT (4 « RND (1) + 1 
) - l THEN GOSUB 3060: GOTO 25 
50 

2510 IF INT (5 * RND (1) + 1 
) < 3 THEN 2560 

2530 GET AS: IF AS < > "C" TH 
EN RETURN 

2550 HOME : TEXT : UTAB 20: PR 

INT "CREDITO - S" ;M: GOTO 2530 

2560 H - 1:1 - 1:J - 1 

2565 HOME : TEXT 

2570 IF NOT H THEN UTAB 20: 

HTAB .10: PRINT "HOLD" ; 

2580 IF NOT I THEN UTAB 20: 

HTAB 20: PRINT "HOLD"; 

2590 IF NOT J THEN UTAB 20: 

HTAB 30: PRINT "HOLD"; 

2595 UTAB 22: HTAB 1: PRINT "U 

OCE PODE PRENDER AS RODAS"; 

2597 FOR K ■ 1 TO 4000: NEXT : 

POKE - 16299,0: POKE - 16304 
.0: FOR K - 1 TO 4000: NEXT : P 
OKE - 16300,0: POKE - 16303,0 
2600 GET AS: IF AS - " " THEN 

UTAB 20: PRINT " ": RETURN 
3000 IF AS < "1" OR A$ > "4" T 
HEN 2570 

3010 ON VAL (AS) GOTO 3020,30 
30.3040,3050 

3020 H - 1:1 - l:J- 1 : GOTO 25 65 

3030 H - 0: GOTO 2565 

3040 I - 0 : GOTO 2565 

3050 J - 0: GOTO 2565 

3060 HOME : TEXT : UTAB 22: PR 

INT "PODE EMPURRAR AS RODAS*;: 

GET AS 

3070 N - INT (5 * RND (1) + 1 

) 

3080 POKE - 16299,0: POKE - 
16304,0: GET AS: IF (AS < "5" O 
R AS > "9") AND AS < > "0" THE 
N 3060 

3140 IF AS - "0" THEN AS ■= "10 

3150 ON UAL (ASÍ - 4 GOTO 316 
0.3170,3180,3190,3200,3210 
3160 P - P + 2: GOSUB 1520:X - 

PEEK ( - 16336) : GOTO 3220 
3170 Q - Q + 2: GOSUB 1530:X - 

PEEK ( - 16336) : GOTO 3220 



3180 R - R + 2: GOSUB 1540:X - 

PEEK ( - 16336) : GOTO 3220 
3190 GOSUB 1520:X - PEEK ( - 
16336) : GOTO 3220 
3200 GOSUB 1530:X - PEEK ( - 
16336) : GOTO 3220 
3210 GOSUB 1540 

3220 GOSUB 1550: IF C < 9 THEN 

GOSUB 2010:N - 0: GOTO 3250 
3230 IF N = 1 THEN N = 0: GOTO 
3060 

3240 N - N - 1 : GOTO 3080 
3250 RETURN 

A linha 1000 estabelece que o valor 
do cacife inicial é um dólar. Ela também 
acerta os valores iniciais das variáveis 
que indicam se alguma roda está presa, 
assim como das variáveis que controlam 
a posição das rodas. A linha 1010, laço 
principal do programa, chama ordena- 
damente as sub-rotinas que giram as ro- 
das, desenham as frutas na tela e per- 
mitem ao jogador apostar, segurar e em- 
purrar as rodas. 

Se o jogador ficar sem dinheiro, a li- 
nha 1020 terminará o jogo, permitindo- 
lhe jogar novamente. 

As linhas 1200 a 1270 usam DRAW 
para desenhar as fruías na tela. As li- 
nhas 1300 a 1420 giram as rodas, cha- 
mando as sub-rotinas das linhas 1520 a 
1540. As linhas 1550 a 1580 acusam um 
resultado premiado e a 1500 soma o pré- 
mio às posses do jogador. 

As linhas 2010 a 2050 permitem que 
o jogador aposte. Este pode então me- 
lhorar o prémio que recebeu (ou perder 
parte dele). A rotina que segura as ro- 
das se encontra entre as linhas 2530 e 
3050, sendo chamada a partir da linha 
2510. Os indicadores que revelam se as 
rodas podem girar livremente são mo- 
dificados conforme as teclas apertadas 
pelo jogador. 

As linhas 3060 a 3250 possibilitam ao 
jogador empurrar uma das rodas, 
movendo-a uma posição para cima ou 
para baixo. O número de empurrões 
oferecidos é selecionado ao acaso na li- 
nha 2500. A rotina detecta as teclas se- 
lecionadas, movendo as rodas de acor- 
do com cada uma destas. 

Para funcionar no TK-2000, o progra- 
ma precisa de algumas modificações. 

Elimine todos os POKE - 16299,0 e 
POKE -16304,0. Substitua os coman- 
dos HOMEíTEXT — sempre que apare- 
cerem assim juntos — por GOSUB 5000. 

Acrescente ainda as linhas: 

5000 FOR K * 160 TO 191 

5010 HC0L0R= 0 

5020 HPLOT 0.K TO 279. K 

5030 NEXT : RETURN 



MENSAGENS 
SECRETAS 



6 de junho de 1944: os acordes iniciais 

da Quinta Sinfonia de Beethoven 

dão o sinal para a invasão da Normandia 

pelos aliados, num dos casos 

mais famosos de mensagem em código. 



Embora sem saber, a maioria das 
pessoas usa códigos para comunicar-se 
em seu dia-a-dia. Assim, quando alguém 
pede um sapato número 39 ou fala de 
um microprocessador Z80, está empre- 
gando um código. Do mesmo modo, um 
cientista nuclear usa equações muito 
complicadas, que, na verdade, não pas- 
sam de códigos, para simplificar a repre- 
sentação de fenómenos complexos. Nós 
poderíamos obter os mesmos resultados 
simplesmente descrevendo tais fenóme- 
nos por meio de palavras. No entanto, 
isso nos tomaria muito mais tempo. 

Nos exemplos citados, a preocupação 
maior consiste em facilitar a comunica- 
ção e não em esconder a informação 
transmitida. Os códigos podem também 
ser usados para economizar gastos ou 
espaços de armazenamento. Imagine- 
mos, por exemplo, uma companhia que 
realiza muitos contratos envolvendo 
cláusulas e parágrafos iguais. Se todos 
esses detalhes fossem guardados em fi- 
tas ou discos, economizaríamos certa- 
mente muito espaço, codificando as par- 
tes que se repetem várias vezes. 

A ciência que estuda as mensagens se- 
cretas chama-se criptografia. Seu nome 
é formado a partir de duas palavras gre- 
gas — Kryptos (secreto) e graphos (es- 
crita) — , e refere-se tanto à escrita co- 
dificada quanto à cifrada. Os termos có- 
digo e cifra têm, na realidade, signifi- 
cado ligeiramente diferente no que diz 
respeito ao modo como a mensagem é 
transmitida. Quando a informação é co- 
municada letra por letra, dizemos que 
ela está cifrada. Quando uma ou mais 
palavras são transformadas em outro 
grupo de expressões ou de números, por 
intermédio de alguma espécie de dicio- 
nário, dizemos que ela está codificada. 
Na prática, o termo codificar é usado 
em ambos os casos. 



CÓDIGOS SECRETOS 



A codificação e decodificação de 
mensagens secretas já foram de uso res- 
trito dos militares, ou pelo menos dos 
Serviços de Inteligência. Hoje, porém, 
o uso de linhas públicas de telefone e de 
satélites para transmissão de informa- 
ções confidenciais fez aumentar enorme- 



mente a necessidade dos códigos. 

Uma das primeiras aplicações impor- 
tantes dos computadores aconteceu du- 
rante a Segunda Guerra Mundial, quan- 
do equipamentos IBM foram utilizados 
pelos Aliados para decifrar mensagens 
em código do inimigo. Desde então, es- 
piões e contra-espiôes das grandes po- 
tências têm acompanhado atentamente 
os avanços tecnológicos nesse campo. 

Atualmente, as possibilidades aber- 
tas pela computação são tantas que jo- 
vens pouco escrupulosos — denomina- 
dos hackers — ligam seus micros a re- 
des telefónicas e penetram facilmente 
em sistemas bancários e instalações mi- 
litares, quebrando códigos e alterando 
informações. 

Neste e no próximo artigo mostrare- 
mos como empregar o computador pa- 
ra criar mensagens em código secreto, 
recorrendo a diversos métodos que, co- 
mo cada tipo de espionagem, têm dife- 
rentes níveis de sofisticação. 

Mesmo não sendo um agente inter- 
nacional, você pode lançar mão desses 
métodos quando quiser enviar mensa- 
gens confidenciais a amigos que também 
tenham micros. E aqui vai um desafio. 
Neste artigo está escondida uma infor- 
mação codificada. Tente encontrá-la. 



CÓDIGOS DE POSIÇÃO 



Os símbolos mostrados nas telas de 
vídeo da página 889 parecem não ter sig- 
nificado algum, mas na realidade são 
exemplos de códigos de posição. Como 
o nome sugere, esse é um código basea- 
do na posição de um símbolo em rela- 
ção a um ponto dado. 

Esse tipo de código foi usado pela 
primeira vez há mais de 2000 anos por 
Lisandro, um almirante espartano que, 
durante uma das batalhas da Guerra do 
Peloponeso (travada entre as cidades 
gregas Esparta e Atenas), percebeu que, 
no cinto de um de seus escravos, a dis- 
tância dos furos até a fivela continha na 
realidade uma mensagem secreta. Des- 
de então, os códigos tornaram-se um 
dos recursos mais poderosos da chama- 
da "arte de guerra". 

Você pode usar um tipo de código de 
posição simplesmente escrevendo o al- 



fabeto no alto de uma folha e colocan- 
do abaixo dele as distâncias recebidas, 
conforme mostram as figuras 1 e 2. Co- 
mo você tem a letra-chave na primeira 
linha, é fácil decifrar a mensagem. Pa- 
ra dificultar sua decodificação, basta fa- 
zer uma rotação nas letras-chave (veja 
a figura 3). Você pode, por exemplo, co- 
meçar com N e, quando chegar no Z, 
começar de novo com A. Isto é chama- 
do rotação cíclica. 

O primeiro programa usa esse méto- 
do para produzir uma versão codifica- 
da de seu texto — entretanto, não de- 
vem ser deixados espaços em branco en- 
tre as palavras. Se você quiser realmen- 
te enviar sua mensagem para alguém, 
vai precisar de uma impressora. 
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140 PRINT TAB (V) "•* 
150 NEXT 1 

QUE] 

5 HOME 

10 PRINT TAB ( 9) "CÓDIGO DE DI 
STANCIA" : PRINT 

20 PRINT TAB ( ] 4 ) "CUIDADO" : P 
RINT 

30 PRINT TAB ( 4)"NAO DEIXE ES 

PACO ENTRE AS PALAVRAS" 

40 PRINT : PRINT 

50 PRINT "(JUAL A SUA MENSAGEM 

" : INPUT AS 
60 FOR T - 1 TO 600: NEXT I: H 
OME 

70 FOR T = l TO LEN (AS) 

BO BS - MIDS (AS.I.l) 

90 V ■ ASC (BS! - 45 

100 IF V < - .12 THEN PRINT 

TAB ( V) "«" : GOTO 130 

110 V - V - 26 

120 PRINT TAB ( V) "*" 

130 NEXT I 

Inicialmente, o programa descobre o 
valor ASCII de cada leira de seu texio, 
através do comando MIDS no laço que 
vai da linha 90 à linha 150 (130 no Ap- 
ple e no TK-2000). Uma vez que a men- 
sagem já foi convertida em uma série de 
números, é fácil fazer a codificação por 
meio de uma transformação linear. No 
caso do MSX, por exemplo, a letra que 
está na variável V será transformada na 
distância que é o seu valor em ASCII 
menos 26 (linha 130). O comando TAB 
imprimirá o asterisco na distância dese- 
jada, a partir do lado direito da tela (li- 
nha 1 20), e o processo de codificação es- 
tará pronto. 



COMO USAR 0 CÓDIGO 



Apesar de parecer demasiado simples 
para ser eficiente, o código de posição 
conta com vários fatores a seu favor. 
Em primeiro lugar, antes de decifrar um 
código, você deve verificar se ele real- 
mente existe. Isso porque, sendo cons- 
tituída de vários pontos (ou asteriscos) 
dispostos aparentemente de forma alea- 
tória sobre qualquer superfície, uma 
mensagem assim codificada facilmente 
passaria despercebida. Durante a Segun- 
da Guerra, aliás, esse truque foi usado 
por agentes de vários países. Assim, 
após uma inspeçào mais cuidadosa na 
inocente fotografia de um quintal, 
descobriu-se que as estacas de um varal 
dispunham-se de maneira a formar uma 
mensagem secreta. 

Um modo de fazer com que o códi- 
go de posição fique mais difícil de ser 
quebrado é reestruturar o programa, 
tornando as letras-chave realmente alea- 
tórias. Sem essa alteração, um perito 




Cifra de Saint Cyr 



que saiba estar manipulando um códi- 
go de posição terá de tentar no máximo 
26 combinações antes de resolver o pro- 
blema. Se a ordem das letras for alea- 
tória, o número de combinações cresce- 
rá extraordinariamente. 



CIFRA DE SAINT CYR 



Na Antiguidade, os maiores criptó- 
grafos depois dos gregos foram os ro- 
manos. Júlio César, por exemplo, inven- 
tou um código no qual cada letra era 
substituída pela terceira letra que se lhe 
seguia no alfabelo. Nesse caso, o A 
torna-se D, o B torna-se E, e assim por 
diante. No fim do alfabeto, o X torna- 
se A, o Y, B e o Z é substituído pelo C. 
Usando esse método, a mensagem MI- 
NAR CAMPO LADO LESTE cifrada 
seria: PLQDU FDPSR ODGR 
OHVWH. 

Como você verá mais tarde, o códi- 
go criado por Júlio César é um caso es- 
pecial da chamada cifra de Saint Cyr e 
você poderá verificar aquela mensagem 
rodando o próximo programa e usando 
3333333 como número-chave. 

Com o fim do Império Romano, a 
criptografia passou por longo período 
de estagnação e, apesar do crescente uso 
de mensagens cifradas nos séculos XVI 
e XVII, só no século XIX a Academia 
Militar Francesa de Saint Cyr produziu 
inovações sobre o código de César. A ci- 
fra de Saini Cyr é constituída de uma 
sequência de letras em ordem alfabéti- 
ca, abaixo da qual colocamos um alfa- 
beto, a partir de um ponto desejado. 
Nesse caso, cada letra do alfabeto de 
baixo lerá sua correspondente na linha 
de cima. Àssim, como mostra a ilustra- 
ção desta página, a palavra INPUT (na 
linha de baixo) seria cifrada como 
AFHML. Uma das vantagens da cifra 
de Saint Cyr é que podemos escolher um 
ponto de partida diferente para cifrar 
cada leira, bastando que o receptor co- 
nheça esses pontos. Isto o torna ainda 
mais difícil de ser decifrado. 



No programa Cifra de Saini Cyr 
incorporou-se a esse código um número- 
chave, a fim de conferir-lhe maior segu- 
rança. Mesmo que consiga ter acesso à 
listagem do programa, nenhum "es- 
pião" decifrará a mensagem, a menos 
que ele conheça o número secreto. 




20 BORDER 0: PAPER 0 t INK 7: 
CLS 

25 POKE 23658, B 

.10 PRINT TAB B; "CIFRA DE ST . C 

YR": PRINT 

40 PRINT INK 2; PAPER 7; 
FLASH 1;AT 6,10:" CUIDADO * 
50 PRINT : PRINT "Nao deixe e 
aparna entre pai avraa" 
60 PRINT : PRINT 

70 PHINT •'" 1 -> codificar" 
80 PRINT " -1 -> decodificar" 

90 INPUT S 

100 INPUT "Qual a mensagem ?"' 
aS 

J10 PAUSE 50: CLS 

1/0 INPUT "Qual o numero-chave 

? (7 digitoa)"-nS 

130 PAUSE 50: CLS 

140 FOR k-1 TO LEN aS 

150 LET l=k-TNT (k/7)«7+l 

160 LET t-CODE (aS(k))+(9*VAL 

<n3(l) ) > 

170 IF t>90 OR t<65 THEN LET 

t=t- (a»261 

180 PRINT CHRS (t) : 

190 NEXT k 

■ ■ 

20 CLS 

30 PRINT «7. "CIFRA DE ST. CYR" 
40 PRINT 8140 , "CUIDADO* : PRINT 
50 PRINT "NAO DEIXE ESPAÇOS ENTR 
E PALAVRAS" 
60 PRINT : PRINT 

70 PRINT" < 1> PARA CODIFICAR" 
BO PRINT" <-l> PARA DECODIFICAR 

90 INPUT S 

100 INPUT"QUAL A MENSAGEM" ;A3 

110 FOR K-1 TO 1500:NEXT:CLS 

120 INPUT"QUAL O NUMERO CHAVE { 

7 DÍGITOS) ";NS 

130 FOR K-1 TO 1500:NEXT:CLS 

140 FOR K-1 TO LENIAS) 

150 L-K-INT(K/7)*7+l 

160 T-ASC(MIDS(AS.K, 1) >+(S*VAL( 

MIDS (NS.L.l) ) ) 

170 IF T>90 OR T<65 THEN T-T- (S 
■26) 

180 PRINT CHRS 1T) ; 
190 NEXT 

m 

20 CLS 

.10 PR TNT TAB(10)"CIFRA SAINT CY 
R" : PRINT 

40 PRINT TAB(14)"CUIDADO":PRINT 

50 PRINT TAB (2) "NAO DEIXE ESPAÇ 

O ENTRE AS PALAVRAS" 
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AR" 

80 PRINT" DIGITE -] PARA DECODIF 
ICAR' 

90 INPUT S 

100 INPUT"QUAL SUA MENSAGEM" ; AS 

110 FOH K-l TO 1500:NEXT K:CLS 

120 TNPUT"introduza o mlmern ch 

ave (7 dtgí r.oa) " ;NS 

130 FOR K=l TO 1500: NEXT K:CLS 

140 FOR K-l TO LEN(A5) 

150 L=K-TNT<K/7) «7+1 

160 T=ASC(MIDS (AS ,K, 1) ) + {S*VAL ( 

MIDS(NS.L,1))) 

170 IF T>90 OR T<65 THEN T-T- (S 
*26) 



mm 



20 HOME 

30 PRINT TAB ( 11)"CIFRA 3GT . 
CYR" : PRINT 

40 PRINT TAB ( 14) "CUIDADO" : P 
RINT 

50 PRINT "NAO DEIXE ESPAÇOS EN 

THE AS PALAVRAS" 

60 PRINT : PRINT 

70 PRINT "INTRODUZA 1 PARA C 

ODI FICAR" 

BO PRINT H INTRODUZA -1 PARA DE 

CODIFICAR" 

90 INPUT S 

100 INPUT "QUAL SUA MENSAGEM?" 
iAS 

110 FOR K ■ 1 TO 1500: NEXT K: 
HOME 

120 INPUT "INTRODUZA O NUMERO 
CHAVE (7 DÍGITOS) " j N3 
130 FOR K - ] TO 1500: NEXT K : 
HOME 

140 FOR K - 1 TO LEN {A3) 
150 L - K - INT (K / 7) * 7 + 
1 

160 T - ASC { MIDS (AS.K.l)] + 
(S » UAL { M1D3 (NS.L, J ) } ) 

170 IF T > 90 OR T < 65 THEN T 
- T - (S * 26) 

1 BO PRINT CHRS (T) i 

190 NEXT 

Catla letra lida do texto do progra- 
ma é, antes, convertida em seu valor AS- 
CII. A função VAL acrescenta a esse va- 
lor uma quantidade indicada por um dos 
dígitos de seu número-chave (linha 160). 
Depois de conferirmos se o resultado es- 
tá na faixa aceitável (linha 170) a fun- 
ção CHRS apresentará a leira equivalen- 
te à original. 

Consideremos a mensagem TRO- 
PASCAPTURAMPONTEPEGASUS. 
Rodando o programa com o número- 
chave 533 1401 , o texto codificado seria: 
WUPTATH DSU YRBRS ROXEQJJDTYS. 
Com um indicador variável S, que po- 
de assumir os valores - I ou 1 , é possí- 
vel usar o mesmo programa para a de- 
codificaçào. 




O número-chave de sete dígitos po- 
de ser escolhido aleatoriamente. Porém, 
como é necessário que ele esteja sempre 
disponível, é aconselhável utilizar algo 
que nos seja familiar, como um núme- 
ro de telefone. Como há dez milhões de 
combinações possíveis para o número- 
chave, a cifra de Saint Cyr dificilmente 
pode ser quebrada. Contudo, é possível 
torná-la ainda mais segura se codificar- 
mos a mensagem duas vezes, isto é, co- 
locando a mensagem já cifrada outra 
vez no computador. 

Usando os números-chave 8694153 e 
8130337, a seqúcncia de codificação e 
decodífícação seria: 

Tesio Número-chave 
PREPARARDESEMBARQUE 
VAlQFUIXMITJPJGAUVj 
WDITFBQYP1WMWRHDUYM _ 
VAlQFUIXMITJPJGAUVj 
PREPARARDESEMBARQUE 



8694153 
8130337 

I 

8130337 
8694153 



A segurança, porém, não é tudo. Por 
mais indecifrável que seja um código, 
ele de nada vale se não pode ser trans- 
mitido rapidamente. 

O imperador francês Napoleão Bo- 
naparte percebeu o problema e tentou 
superá-lo construindo por toda a Fran- 
ça torres que se comunicavam por meio 
de sinais de luz. Isso tornou possível o 
envio de mensagens a grandes distâncias 
em pouco tempo. Dessa forma, o Exér- 
cito francês podia manter-se informado 
sobre o movimento das tropas inimigas. 

Entretanto, a invenção do telégrafo 
e da cifra conhecida como código Mor- 
se, na década de 1 830, foram os fatores 
que mais contribuíram para dinamizar 
as comunicações secretas. O inventor 
desse código, o none-americano Samuel 
Morse, criou um sistema de comunica- 
ção no qual pontos e traços substituíam 
as letras. 

O programa Código Morse codifica- 
rá seus textos e decodificará uma série 
de pontos e traços. Por exemplo, o fa- 
moso sinal de socorro SOS seria repre I 
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Qual a utilidade dos códigos? 

Indispensáveis ao mundo dos es- 
piões, os códigos são também muito 
empregados nas telecomunicações e 
em atividades bancárias que exigem si- 
gilo. Grandes empresas comerciais que 
fazem uso de computadores para con- 
trolar seus estoques recorrem igual- 
mente a esse tipo de linguagem. As- 
sim, cada item estocado é classificado 
com um código. Quando se trata de ar- 
tigos importados, costuma-se utilizar o 
"código de barras", que consiste em 
quadrinhos com faixas verticais pretas 
e brancas. Essas "barras" são lidas por 
meio de um instrumento óptico. Quan- 
do um dos artigos é retirado, o compu- 
tador registra a operação e informa a 
respeito do preço da mercadoria. 

Existem também terminais de com- 
pras nas próprias lojas, onde o cliente 
apenas digita um código e o total a pa- 
gar. Instantaneamente, o computador 
transfere essa quantia da sua conta pa- 
ra a da loja. Como se pode ver, as no- 
tas e moedas tendem a desaparecer, e 
as caixas registradoras deverão ser 
substituídas por terminais de compu- 
tador. Mas, para tanto, é necessário 
que sejam criados códigos muito efi- 
cientes, de modo a evitar roubos e 
fraudes. 



" I LET fS-" 
15 POKE 23658,8 
20 FOR x=) TO 26: BEAD aS(x): 
NEXT X 

30 INPUT "Codificar (1) ou De 

codificar (2)";r 

40 IF r-2 THEN GOTO 140 

60 INPUT "MENSAGEM A SER CODI 

FICADA :"'mS 

70 FOR x=l TO LEN mS 

80 IF nt$(x) = " " THEN PB TNT " 
" i : GOTO 310 

90 LET pS=mS(x) 
100 PRINT " ";aS((C0DE pS)" 
64) ; 

110 NEXT x 

120 PRINT QUALQUER TECLA 

PARA CONTINUAR" : : PAUSE 9999 
130 RUN 

140 INPUT "MENSAGEM A SER DECO 

DI FICADA :"*m5: LET mS=mS+" " 

160 FOR x-l TO LEN mS 

170 LET kS=mS(x) 

180 IF kS-" " THEN GOTO 220 

190 LET aS=B3+x3 

200 NEXT x: GOTO 120 

210 IF LEN sS>5 OR LEN sS<l 

THEN PRINT "ERRO" : GOTO 120 

220 IF LEN hS<>5 THEN LET aS = 

aS+fS ( TO 5-LEN aS) 

225 FOR h-1 TO 26: TF aS(h)=sS 

THEN PRINT CHRS (h+64) ; 

230 NEXT h 

240 LET aS="": GOTO 200 

250 DATA -0-","-000"."-0-0-,"- 

00" , "0" , "00-0" , " — 0" , "0000" , "0 

0","0 ","-0-" , "0-00" — 

0" , " " , "0 — 0" , " — 0-" , "0-0" 

000","-","00-","000- 



20 FOR X-l TO 26 : READ A3(X):NEX 
T X 

30 PRINT «96. ; : INPUT*CODIFICAR 

OU DECODIFICAR (1,2) * ;B 

40 IF R-2 THEN 140 

50 PRINT* MENSAGEM A SEB CODIF 

IÇADA : " 

60 INPUT MS 

70 FOR X-l TO LEN (MS) 

80 IF MIDS(MS.X.1)=" " THEN PRI 

NT" " ; :GOTO 110 

90 P$=MIDS(MS,X,1) 

100 PRINT " ":AS(ASC(PS)-64) i 

110 NEXT 

120 PRINT : PBINT : PBINT " QUALQU 

ER TECLA PABA CONTINUAR" 

130 IF INKEX3-"" THEN 130 ELSE 

RUN 

140 PRINT" MENSAGEM A SER DECOD 
IFICADA" 

150 INPUT MS :MS-MS+" ":PRINT:PR 
INT 

160 FOB X-l TO LEN (MS) 

170 KS-MIDS(MS,X.l) 

160 IF KS-" " THEN 210 

190 SS-SS+KS 

200 NEXT: PRINT: GOTO 120 

210 IF LEN (S3)>4 OR LENIS3X1 

THEN PRINT " " ; :GOTO 200 

220 FOR H-1 TO 26:IF AS(H)-SS T 

HEN PBINT CHRS (H+64) : 

230 NEXT 

240 SS=" " :GOTO 200 

250 DATA 0- , -000, -0-0 , -00 , 0. 00- 

0. --0 ,0000, 00, 0 ■ -0- , 0-00, — , 

-0 , , 0--0 , —0- , 0-0 , 000 , - , 00- . 

ooo-, o- - , -oo- ,-o-- . --oo 



00-' 



-00" 



mm 

10 CLS:DIM AS(26) 



10 CLS:DIM A3(26) 

20 FOR X-l TO 26 I BEAD AS(X):NE 
30 PBINT TAB (3) : : INPUT" CODI FICA 



sentado por A../—/.../ e um texto maior 
como FUJA Ã MEIA-NOITE seria 

/..-./..-/.—/.-/.-/-/./../.-/-./—/../-/./ 



UM EXERCÍCIO DE CODIFICAÇÃO 



Tente fazer as duas codificações men- 
cionadas com o próximo programa. Pa- 
ra os micros da linha Sinclair, você de- 
ve adicionar cinco asteriscos no final da 
mensagem para indicar que ela já está 
completa. 
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R OU DEC0DIFICAR<1,2)";R 

40 IF R-2 THEH 140 

50 PRINT TAB (7 ) "MENSAGEM A SER 

CODIFICADA" 

60 INPUT MS 

70 FOR X=l TO LEN (M3) 

80 IF MIDS(MS,X.1)=" " THEN PRJ 

NT" " : :GOTO 110 

90 PS=MIDSÍMS.X.l) 

100 PRINT" ";AS(ASC(PS)"64) : 

11.0 NEXT X 

120 PRINT : PRINT : PRINT TAB (2) "AP 
ERTE QUALQUER TECLA PARA CONTIN 
UAR" 

130 IF INKEY$=" " THEN 330 ELSE 
RUN 

140 PRINT TAB (6) "MENSAGEM A SER 

DECODIFICADA" 
150 INPUT M$:MS=MS+" ":PRINT:PF 
INT 

160 FOR X=l TO LEN (M$) 
170 K$=MTDS í MS . X . 1) 
180 IF KS=" " THEN GOTO 210 
190 SS=SS+KS 

200 NEXT X:PRINT'G0TO 120 

210 IF LEN(SS)>4 OR LENtSSXl T 

HEN PBINT : PRINT " DEIXE ESPA 

ÇO ENTRE OS CÓDIGOS": GOTO 200 

220 FOR H-l TO 26:IF AS(H)'SS T 

HEN PRINT CHHS(H+641; 

230 NEXT 

240 SS-"" :OOTO 200 

250 DATA 0- , -000 , -0-0 . -00.0 . 00- 

0, — 0 ,0000 .00,0 .-0-. 0-00 

-0, .0—0,— 0-, 0-0. 000. -,oo-. 

000- .0-- , -00-, -o— .--oo 




10 HOME ! DIM AS(26) 

20 FOR X - 1 TO 26: READ AS(X) 

: NEXT X 

30 PRINT TAB ( 6) i : INPUT "COD 
IFICAR OU DECODIFICAR(l,2)?";R 



40 IF R - 2 THEN 140 

50 PRINT TAB ( 9) "MENSAGEM A S 

ER CODIFICADA" 

60 INPUT MS 

70 FOB X - 1 TO LEN (MS) 

80 IF MIDS (MS.X.l.) » ■ * " THE 

N PBINT p " ; : GOTO 110 

90 PS - MIDS (MS.X.l) 

100 PRINT " ";A$( ASC 1 PS) - 6 

4) ; 

110 NEXT 

120 PRINT : PRINT : PRINT TAB 
( 3) "APERTE QUALQUER TECLA PARA 
CONTINUAR" 
130 GET TS: IF TS « " THEN G 
OTO 130 
135 GOTO 30 

1-50 PRINT TAB ( 8) "MENSAGEM A 
SER DECODIFICADA" 
150 INPUT MS:MS » MS + " " : PR 
TNT : PRINT 

160 FOR X = 1 TO LEN (MS) 

170 KS = MIDS (MS.X.l) 

18(1 TF KS = " " THEN GOTO 210 

190 SS - SS + KS 

200 NEXT X: PRINT : GOTO 120 



210 IF LEN (SS) > 4 OH LEN ! 
SS) < 1 THEN PRINT " ";: GOTO 
200 

220 FOR H - 1 TO 26: IF A$(H) 

- SS THEN PRINT CHHS (H + 64) 

230 NEXT 

240 SS = " " : GOTO 200 
250 DATA 0-, -000, -0-0, -00, 0,0 
0-0, --0.O000, 00,0 — ,-o-,o-oo.- 
-,-o. — , 0--0,— 0-. 0-0. 000. -.00 

- . 000- , o— , -oo- . -o-- . —oo 

A primeira parle do programa atri- 
bui a cada variável A$(X) um sina! Mor- 
se equivalente a uma leira do alfabelo, 
na sua devida ordem (linha 20). Por 
exemplo. A$(l> conlerá /.-/, que é o có- 
digo da letra A. Seria interessante usar 
o sinal dc menos para um traço, e o as- 
terisco ou o zero para um pomo, em vez 
do ponto final. 

A parte de codificação é muito seme- 
lhante à dos dois primeiros programas 
Cada letra de seu texto é lida e coi 
tída em um número entre I e 26 e a se- 
quência adequada de pontos e traços é 
entào impressa (linha 1 00). 

A decodifi cação da mensagem se pro- 
cessa do seguinte modo. O computador 
lé cada caractere e soma-o aos anterio- 
res, até encontrar um espaço (linhas 160 
a 200). Então ele compara essa cadeia 
de caracteres com as que estão na variá- 
vel A$, identificando a letra equivalen- 
te e imprimindo-a por meio do coman- 
do CHRS (linha 220). 

Na segunda parte deste artigo, você 
aprenderá a decodificar transposições e 
cifras e utilizar códigos multiplicativos 
e códigos comerciais. 



um 
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ARMAZENAGEM 
DE NÚMEROS 



Como você já sabe, o interpretador 
BASIC pode trabalhar com números 
fracionários- Aprenda agora 
a armazená-los na memória 
e obtenha resultados mais precisos. 



Quando o resultado de uma operação 
numérica é muito grande ou, então, 
muito pequeno, o computador mostra, 
frequentemente, na tela, um número 
com aparência meio estranha, tal como 
2.34E12 ou 1.222E-9. 

Essa maneira de representar números 
é conhecida como notação científica, ou 
notação de engenharia, e é usada auto- 
maticamente toda vez que o interpreta- 
dor BASIC não consegue mostrar um 
valor numérico que caia dentro do limite 
de sete a oito algarismos, dependendo 
da marca do computador. Existem tam- 
bém meios, em BASIC, de mostrar ou 
imprimir os valores numéricos que se 
quiser, em notação científica. 

Na notação científica (chamada ain- 
da de forma exponencial), um número 
é composto por duas partes: a mantissa, 
que contém os algarismos significativos 
do número, geralmente com apenas um 
dígito à esquerda da virgula; e o expoen- 
te, que consiste em uma potência de 10 
pela qual a mantissa deverá ser multi- 
plicada para obter o valor numérico a 
ser representado. Assim, por exemplo, 
os números aqui abordados significam, 
respectivamente: 

2.34E12 = 2.34 x 10 12 = 
= 2.340.000.000.000 

1.223E-9 = 1.223 X IO" 9 = 
- 0.OOO0OOO01223 

Na realidade, esta é exatamente a ma- 
neira com que o interpretador BASIC 
armazena todos os valores reais: man- 
tissa e expoente são conservados em gru- 
pos separados de bytes. Só quando o nú- 
mero vai ser mostrado por um PRINT 
ou equivalente é que se processa a con- 
versão para o formato mais conhecido. 
O limite para que isso ocorra varia com 
a marca do computador. Nos micros da 
linha Apple, TRS-Color e TRS-80, por 
exemplo, é de sete algarismos. No Spec- 
trum e no MSX, é de oito algarismos. 
Alguns computadores, como os das li- 
nhas TRS e MSX, podem expressar nú- 
meros com precisão dupla, isto é, não 
precisam recorrer à forma exponencial 
se o número tiver até quinze dígitos de 
precisão. 

Você também poderá usar a forma 



exponencial como um modo abreviado 
de entrar números longos no computa- 
dor (dentro de um programa, ou mes- 
mo usando um comando INPUT). 

O programa a seguir o ajudará a en- 
tender como funciona essa forma, e co- 
mo o valor da mantissa é calculado. 



10 CL3 : POKE 23658, B 

20 INPUT " INTRODUZA O NUMERO" 

, LINE AS 

25 IF AS-"" THEN GOTO 20 

30 LET N3-"0": LET E-0 : LET H 
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■ EXPOENTES ■ NÚMEROS NEGATIVOS 

■ COMO SÃO ARMAZENADOS ■ PEEK NA MEMÓ RIA 

OS NÚMEROS ■ COMO ECONOMIZAR MEMÓRIA 

■ PONTO FLUTUANTE ■ EFEITOS ESTRANHOS 

■ A FUNÇÃO 1NSTR ■ FORMATAÇÃO COM PRINT USING 



-VAL AS 

40 IF N-0 THEN PRINT "VALOR 
HllITO PEQUENO !": PAUSE 50: 
GOTO 10 

50 LET F-0: FOB M-l TO LEN AS 
: IF A3(M>-"E" THEN LET F-M 
55 NEXT Mi IF F-0 THEN OOTO 
200 




60 LET NS-STR9 N: LET F-0: 
FOR M-l TO LEN N3 : IF N3(M)-" 
E" THEN LET F-M 

65 NEXT M: IF F-0 THEN GOTO 
180 

66 LET NS=NS{ TO F-l) 

70 IF ABS N<1 THEN OOTO 130 
80 IF ABS N<10 THEN COTO 110 
90 LET N-N/10: LET F-0: FOR M 
-1 TO LEN NS: IF NS[M)-"." 
THEN LET F=M 

92 NEXT M : IF F-I.EN N3 THEN 
LET N3"N3( TO LEN NS-1) : GOTO 
100 

95 IF FOO THEN LET NS-NS ( 
TO F-1.)+N3(F+l)+"."+NS(F+2 TO 
) r GOTO 80 
100 LET NS-NS">-"0": GOTO 80 
110 IF NS (LEN N3)-"." THEN 
LET NS-N3( TO LEN NS-1) 
120 GOTO 180 

130 IF ABS N>-1 THEN GOTO 170 
140 LET N-N-10: LET F-0: FOR M 
-1 TO LEN NS: IF NSÍM)-"." 
THEN LET F-M 

145 NEXT M ! IF F-l THEN LET N 
S=".0"+N3(2 TO >: GOTO 130 
150 IF FOO THEN LET NS-NS ( 
TO F-2)+" . "+N3ÍF-1 )+N3(F+l TO 
) : GOTO 130 

160 LET NS="."+NS: GOTO 130 
170 IF VAL A3<0 THEN LET N3-" 
--+N3 

180 PRINT : PRINT AS;" IGUAL": 

PRINT N3 
190 «OTO 20 

200 IF ABS N<1 THEN GOTO 220 
210 IF ABS N>-10 THEN LET E-E 
+1 : LET N-N/l 0: GOTO 210 
215 GOTO 230 

220 IF ABS N<-1 THEN LET E-E- 
1: LET N=N*10: GOTO 2Z0 
230 PRINT ASi" IGUAL": PRINT N 
;: IF EOO THEN PRINT "E"iE 
240 PRINT : GOTO 20 



10 CLS 

20 PRINT : INPUT" INTRODUZA O NUME 
RO "iAS 
30 NS-"0" :E-0:N-VAL(AS) 
40 IF N-0 THEN PRINT "VALOR 
MUITO PEQUENO ! " : PRINT : GOTO 20 
50 I-INSTR{AS,"E"> :IF F-0 
THEN 200 

60 NS-STRS(N) : F-INSTR (NS . "E 
")-I F F-0 THEN 180 ELSE N 
S-MIDS (N3. 2.F-2) 
70 IF ABSINX1 THEN 130 
BO IF ABS (N) <10 THEN 110 
90 N-N/10:F-INSTR(N3."-") :IF F- 



LEN(NS) THEN N3-LEFTS (N3 . LEN (N3 

)-l) ELSE IF FOO THEN N3-LEFT3 

(N3 . F-l ) +MIDS <N3 . F+l . 1 ) +" . "+MID 

SlNS.F+2) :GOTO 80 

100 N3-NS+"0" :GOTO 80 

110 IF RIGHT3 (NS. 1) -" . " THEN NS 

-LEFT3(NS.LEN(N3)-1) 

120 GOTO 180 

130 IF ABS(N)>-1 THEN 170 
140 N-N*l 0 : F-INSTR {NS . " . * ) : IF F 
-1 THEN NS-".0"+MIDS<NS.2) :GOTO 
130 

150 IF FOO THEN NS-LEFTS {N3 . F~ 

2) +" . "+MID3 (NS . F-l , 1 ) +MIDS (N3 . F 

+1) :GOTO 130 

160 NS-"."-*NS:GOTO 130 

170 IF VALtASXO THEN NS-"-"+NS 

180 PRINT : PRINT AS:" IGUAL":PRI 

NT NS 

190 GOTO 20 

200 IF ABSINX1 THEN 220 

210 IF ABS(N)>-10 THEN E-E+1:N- 

N/10:GOTO 210 ELSE 230 

220 IF ABS(N)<-1 THEN E-E-1:N-N 

«10:GOTO 220 

230 PRINT AS:" IGUAL ":PRINT N: 
CHRS{8)í:IF EOO THEN PRINT "E" 



24 0 GOTO 20 



20 PRINT : INPUT "ENTRE NUMERO 
:• :AS 

30 LET NS - "0*:E - 0:N - VAL 
(AS) 

40 IF N - 0 THEN PRINT "VALOR 
MUITO PEQUENO": PRINT : GOTO 2 

0 

50 FOR F - 1 TO LEN (AS) ; IF 

MIDS (A3.F.I) - "£" THEN 54 
52 NEXT F : F - 0: GOTO 200 
54 IF F - 0 THEN 200 
60 LET NS - STRS (N) 
62 FOR F - 1 TO LEN (NS) : IF 

MIDS (NS.F.l) - "E" THEN 66 
64 NEXT F:F - 0 
66 IF F - 0 THEN 180 
68 LET N3 » MIDS (NS.I.F - 2) 
70 IF ABS (N) < 1 THEN 130 
80 IF ABS (N) < 10 THEN 110 
90 LET N - N / 10 
92 FOR F • 1 TO LEN (NS) : IF 

MIDS (NS.F.l) - "." THEN 96 
94 NEXT F:F - 0 
96 IF F = LEN (NS) THEN NS ■ 

LEFTS (NS. LEN (NS) - 1): GOTO 

100 

98 IF F < > 0 THEN NS = LEFT 
S (NS.F - 1) + MIDS (NS.F + 1, 
1) + "." + MIDS (NS.F + 2): Gol 



IIIIIIIIIIIHH 



■■■■■lllllllll 



so como certo, o computador utiliza esse 
bit para indicar o sinal da mantissa: se 
o número for negativo, o bit valerá 1; 
se ele for positivo, o valor do bit será, 
então, 0. 



ONDE ESTÁ AQUELE NUMERO? 



A partir dos exemplos acima, já é 
possível entender como o computador 
armazena os números na memória. O 
número decimal 58 (11 1010 em binário) 
é armazenado em cinco bytes sucessivos, 
da maneira como se segue: 

134 104 000 000 000 (em decimal) 

e o número 10 (decimal) é armazenado 



132 032 000 000 000 

Experimente vários exemplos, traba- 
lhando com os valores decimais conti- 
dos nos bytes. Teste as suas respostas 
usando o programa a seguir. Digite 
RUN 100 para entrar outro número. 

Embora armazenem números na for- 
ma geral exposta até agora, os micros 
compatíveis com o Sinclair Spectrum 
contam ainda com outro recurso. Se um 
número inteiro, compreendido entre 
-65535 e 65535 for usado, o Spectrum 
o armazena de modo diferente, reduzin- 
do-o a seu equivalente binário e guar- 
dando-o em apenas dois bytes (e não em 
forma exponencial, usando seis bytes), 
Embora possa parecer que isso seja fei- 
to para economizar memória, tal fato 
não acontece, pois três bytes são deixa- 
dos sem uso. 

Por essa razão, quando você usar o 
primeiro dos dois programas abaixo, 
não entre um valor numérico entre 
-65535 e 65535: o programa ainda fun- 
cionará, mas os resultados não corres- 
ponderão à explicação adotada. 



10 BOHDER J: PAPER 7: INK 9: 
20 INPUT "Introduza um numet 



ro)" 



40 PRINT '"Expoente: " ; PEE* ( 
PEEK 23627+256*"EEK 23628+1} 
50 PRINT "Mantiasa:"; : FOR n 
= 2 TO 5 

60 PRINT TAB 10; PEEK (PEEK 
23627+?56*PEEK 23628+n) 
70 NEXT n 
80 STOP 



íN 

30 D-VAftPTR(N) 

40 PRINT : PRINT" EXPOENTE ' 

EK(D) 

50 PRINT" MANTISSA - " I 
60 FOR G-l TO 4 
70 PRINT , PEEK (D+G) 
80 NEXT 

90 PRINT:GOTO 20 



10 HOME 

20 INPUT " ENTRE UM NUMERO:" ;X 
30 LET V = PEEK (105) + PEEK 

(106) * 256 
40 PRINT "EXPOENTE:": PEEK [V 
+ 2) 

50 PRINT "MANTISSA: " i 

60 FOR N - 3 TO 6 

70 PRINT PEEK {V + N) ; " "i 

80 NEXT N 



100 REM SEGUNDO PROGRAMA 

110 BORDER Li PAPER 7: INK 9: 

CLS : LET r-0 

120 INPUT AT l,0;"lntroduia ex 
poente" ,exp 

130 IF exp<0 OR exp>255 THEN 
GOTO 120 

140 PRINT "Expoente: " ; exp : 
POKE PEEK 23627+256*PEEK 23628 
+l,exp 

150 PRINT '"Mantissa:"!: FOR n 
-2 TO 5 

160 INPUT AT 1 , 0 ; "Introduza ma 
ntisaa" ,nan 

170 IF man<0 OR man>255 THEN 
GOTO 160 

180 PRINT TAB 10;man: POKE 
PEEK 23627+256«PEEK 23628+n, 
MI) 



100 REM SEGUNDO PROGRAMA 
110 CLS 

120 N-l :D-VARPTR(N) 

130 INPUT" INTRODUZA EXPOENTE " 

)I 

140 POKE D. {255 AND E) 

150 PRINT" INTRODUZA MANTISSA ■ 

160 FOR K-l TO 4 
170 INPUT E 

180 POKE D+K , (255 AND E) 
190 PRINT , ; 
200 NEXT 

210 PRINT : PRINT" NUMERO E ";N:P 
RINT 

220 GOTO 130 



HEI 



El DM 



110 HOME :R - 1:V - PEEK (105 

) + PEEK (106) * 256 

120 INPUT "ENTRE EXPOENTE :"; EX 

130 IF EX < 0 OR EX > 255 THEN 



INTRODUZA UM NUMERO 1 



140 POKE V + 2.EX 

150 FOR N - 3 TO 6 

160 INPUT "ENTRE MANTISSA: " ; M 

170 IF M < 0 OR M > 255 THEN 1 

60 

180 POKE V + N.M 
190 NEXT N 

200 PRINT "RESULTADO-" ;R 

O primeiro desses programas permi- 
te que um número seja digitado pelo 
teclado; em seguida, ele imprime os con- 
teúdos decimais dos cinco bytes onde o 
número está guardado. 

Seu funcionamento tem a seguinte di- 
nâmica: inicialmente, é necessário esta- 
belecer uma variável numérica, que ar- 
mazenará o número de entrada. Como 
ela é a primeira variável a ser definida 
quando o programa é executado, seu 
nome aparecerá logo no começo de uma 
área especial da memória (definida e fi- 
xada pelo interpretador BASIC de ca- 
da computador), chamada lista de va- 
riáveis. Essa lista tem informações so- 
bre o nome da variável e o endereço da 
memória RAM onde seu conteúdo será 
armazenado. Tal endereço é dividido em 
dois bytes sucessivos. No Apple, por 
exemplo, o endereço do conteúdo da 
primeira variável de um programa en- 
contra-se nos apontadores 105 e 106 (em 
decimal). No Spectrum, os endereços 
correspondentes são 23627 e 23628. 
Tanto no Apple quanto no Spectrum. 
o endereço decimal de dezesseis bits é 
calculado pela expressão na linha 40 (30 
no Apple). 

Nos computadores das linhas 
TRS-80, TRS-Color e MSX, o usuário 
não precisa conhecer a locação exata do 
apontador da lista de variáveis, pois 
existe uma função predefinida do BA- 
SIC chamada VARPTR (abreviatura de 
VARiable PoínTeR — ou apontador de 
variáveis), que indica o endereço deci- 
mal completo do ponto da memória on- 
de está armazenado o conteúdo da va- 
riável nomeada no argumento da fun- 
ção, Veja a linha 30 do programa para 
esses computadores. A variável D con- 
terá o endereço inicial dos cinco bytes 
que contém o valor armazenado na va- 
riável N. O primeiro byte contém o ex- 
poente e nos quatro bytes sucessivos es- 
tá a mantissa. 

O segundo programa faz o contrário: 
pede que cinco bytes sejam digitados, e 
imprime o número que ele representa 
(algumas das respostas poderão apare- 
cer na forma exponencial). 

Seu funcionamento é semelhante ao 
do primeiro programa, ou seja, coman- 
dos PEEK (nas versões para o Apple e 
Spectrum) ou VARPTR (nas versões pa- 
ra o TRS e o MSX) são usados para lo- 
calizar o endereço inicial da primeira va- 
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riável. Ela é igualada a O ou a 1 logo na 
primeira linha do programa, para asse- 
gurar que ficará em primeiro lugar na 
lista de variáveis (esse "truque" só é ne- 
cessário para o Apple e o Spectrum). A 
seguir, o programa pede ao usuário que 
entre os valores do expoente e das par- 
tes da mantissa. Em vez de empreender 
cálculos infindáveis para chegar ao re- 
sultado convertido, o programa coloca 
esses valores nos cinco bytes de arma- 
zenamento da variável inicial, por meio 
de comandos POKE, e imprime o resul- 
tado, por meio de um PRINT normal. 



O computador sempre armazena nú- 
meros em grupos de cinco bytes. Ora, 
isso representa um grande desperdício 
de memória, pois nem sempre são ne- 
cessários tantos bytes na mantissa. Além 
disso, os bytes em excesso poderiam ser 
aproveitados em outros lugares. 

De fato, você pode economizar quan- 
tidades significativas de memória se evi- 
tar o uso de números em BASIC, em- 
bora isso nem sempre seja possível. 
Existe, entretanto, um jeito de reduzir 
a quantidade de memória que cada nú- 
mero requer. Assim, é possível, em mui- 
tos casos, evitar o emprego de números 
em um programa, colocando dentro de 
variáveis os números repetidamente uti- 
lizados em várias partes do programa. 
Por exemplo, uma constante que apa- 
rece com frequência , como o número 
pi (3.1415...), pode ser colocado na va- 
riável P. Esse "truque" funciona sem- 
pre, mas não vale a pena recorrer a ele 
quando o valor numérico é usado ape- 
nas uma ou duas vezes no programa. 

A vantagem de se empregar uma va- 
riável nesses casos é que o seu nome ocu- 
pa apenas um ou dois bytes de espaço 
no programa, em vez de cinco, se seu 
nome for curto. (A vantagem deixará, 
naturalmente, de existir se a variável se 
chamar MEDIA, ou coisa parecida). 

Alguns números — como 0, 1, 2, 10 
etc. — aparecem tantas vezes na maio- 
ria dos programas, que talvez convenha 
colocá-los em variáveis, se você tem pro- 
blema de espaço. Esse método é espe- 
cialmente útil nos micros Sinclair, que 
usam seis bytes em vez de cinco. 



Cálculos realizados por computador 
revelam, às vezes, erros aparentemente 
inexplicáveis; assim, um resultado que 
deveria dar "redondo" — 10. 000000, 
por exemplo — . pode aparecer na tela 



sob uma forma levemente modificada 
— como 10.000001. Conhecidos como 
erros de precisão, esses equívocos são 
facilmente explicados pela maneira co- 
mo o computador armazena números. 

Tente os exemplos seguintes em sua 
máquina. A causa por trás de cada um 
dos erros será explicada mais adiante: 



Primeiro, tente a linha abaixo: 
PRINT 10.0000000001 

Ao imprimir o resultado, o compu- 
tador omite o 1 final e converte o nú- 
mero que você digitou em 10, simples- 
mente. Isso pode se tornar um proble- 
ma, quando você quiser trabalhar com 
maior precisão numérica. Entretanlo, é 
possível reverter esse fato em seu favor, 
quando se deseja entrar números entre 
-65535 e 65535 no programa (o que nor- 
malmente não deve ser feito, pois o 
Spectrum os representa de forma dife- 
rente, como já foi dito). 

Basta, para isso, entrar o número inteiro 
em forma fracionária e colocar um alga- 
rismo pouco significativo no final. Assim, 
entrando o número 10.0000000001, como 
no exemplo citado, você "enganará" o mi- 
crocomputador e ele mostrará como 10 é 
armazenado no formato de cinco bytes, 
em vez de no formato especial para núme- 
ros inteiros. 

Agora tente entrar esta linha: 
PRINT INT -65536 

Com ela, será evidenciado um erro 
no interpretador BASIC do Spectrum, 
uma vez que ele não consegue diferen- 
ciar entre esse valor e -1. 



Você pode testemunhar os estranhos 
efeitos causados nos micros compatíveis 
com o TRS-Color, entrando os núme- 
ros abaixo no primeiro programa: 
12345678901 E-4 
e também: 
454545454 E-46 

A discrepância do primeiro número 
é bastante óbvia. No segundo, o último 
digito é mudado pelo computador. 

Essas imprecisões não são, contudo, 
como muitas pessoas imaginam, erros 
na ROM dos computadores (exceção 
feita ao segundo exemplo para o Spec- 
trum). A razão pela qual o algarismo 1 
aparece ou desaparece, quando coloca- 



do no final do número, decorre do fato 
de que os computadores digitais, pela 
sua própria natureza, trabalham com li- 
mites no grau de precisão. Portanto, 
quando os valores excederem um deter- 
minado número de decimais, i interpre- 
tador será obrigado a arredondar o re- 
sultado. 

Quando isso acontece, dependendo 
dos números que estão sendo usados e, 
também, do número de etapas de cálcu- 
lo que o computador terá que vencer, os 
resultados finais podem ser completa- 
mente distintos do que se espera. 

Os computadores são mais do que 
precisos a maior parte das vezes, e esses 
"erros", na realidade, não têm grande 
influência. Mas, para aplicações mais 
sérias, e que exigem grande precisão, co- 
mo programas de contabilidade, de es- 
tatística etc, as incorreções cumulativas 
podem se tornar um grande inconve- 
niente; isso é levado em consideração 
pelos melhores pacotes de software. 

Por exemplo, usando conjuntos e 
matrizes, podem-se armazenar números 
com mais decimais do que o máximo de 
sete a nove permitido pelos computado- 
res descritos no artigo. A vantagem des- 
sa abordagem é que o programador po- 
de desenvolver uma rotina para impri- 
mir os números em forma normal, em 
vez da exponencial, como o computa- 
dor faria com valores extremos. Essa é 
uma maneira, também, de evitar men- 
sagens de erro, como "overflow" , "nú- 
mero muito grande" etc. 



FORMATAÇÃO DE NÚMEROS 



Já explicamos que alguns microcom- 
putadores, como o TRS-80, o TRS-Color 
e o MSX, têm comandos que permitem 
mudar o formato de impressão de núme- 
ros com o PRINT ou o LPRINT. 

Embora uma tela possa ser formata- 
da muito bem com o auxílio dos coman- 
dos PRINT® (nos TRS) ou LOCATE 
(no MSX), é conveniente recorrer à de- 
claração USING para formatação, que 
é sempre usada em conjunto com os co- 
mandos PRINT ou LPRINT. Os ele 
mentos essenciais dessa declaração já fo- 
ram explicados em artigo anterior; as- 
sim, faremos aqui apenas uma nova ex 
posição, por intermédio de um progra- 
ma simples de demonstração financeira 
para uma companhia fictícia. 



QQ 



10 CLS 

20 PRINT" A DIRETORIA TEM O PR 
AZER DE ANUNCIAR O BALANÇO P| 



PROGRAMAÇÃO BASIC 



HE LIMINAR 



DE 19B6 DA 



30 PRIKT : PRINT" FABRICA ACME 
DE ARRUELAS 

40 PRINT: PRINT :PRINT"0 MAIOR FO 

RNECEDOR DO MUNDO DE": PRINT 

50 CS(0)-"MD.345 - AZUIS" : CS ( 1) 

-'MD. 897 - VERDES _ :CS(2)-"MD.91 

2 - AMARELAS":CS(3)-"MD.989 - V 

E HME LHAS* 

60 FOR K-0 TO 3 

65 XS-"ARRUELAS "+MIDS (CS (K) , 10 

) 

70 PRINT TAB(16-LEN(XS)/2) :XS 
80 NEXT 

90 FOR K-l TO 7000:NEXT:CLS 
110 PRINT §12 . "JANEIRO" : PRINT € 



44. " " 

120 PRINT:PRINT"PRECO MÉDIO (AT 
ACADO) " 

130 AS" " I f :BS-" * 
■3*1. M" 

140 PRINT:PRINTUSING AS;CS(0);: 
PRINTUSING B3; 12. 715265 
150 PRINTUSING AS : CS ( 1 ) ; : PRINTU 
SING B3;3. 7363141 

160 PRINTUSING AS ; CS ( 2 ) ; ! PRINTU 
SING 83;10. 35824221 
170 PRINTUSING AS ; CS ( 3) ; : PRINTU 
SING BS; .5163733 

180 PRINT #416,USING"LUCRO TOTA 
L SIM, •♦•.••";374241. 5353 

Esse programa, tal como está, fun- 
cionará bem apenas no micro TRS- 
Color. Para adaptá-lo para o TRS-80, 
faça as seguintes alterações: 
70 PRINT TAB(32-LEN(CS(K) ) ) : CS ( 
K) 

90 FOR K= 1 TO 4000:NEXT:CLS 
110 PRINT 612 . " JANEIRO" ! PRINT 
• 76. " " 

180 PRINT e832.USING"LUCftO BRU- 
TO 3*11. tM.t#":374241. 5353 



ftto 



10 SCREEN1:WIDTH32:CLS 
20 PRINT" A DIRETORIA TEM O PR 
AZER DE ANUNCIAR O BALANÇO P 
RELIMINAR DE 1986 DA 

30 PRINT: PRINT" FABRICA ACME 
DE ARRUELAS 

40 PRINT: PRINT :PRINT*0 MAIOR FO 

RNECEDOR DO MUNDO DE": PRINT 

50 C3(0)-"MD.345 - AZUIS":C3U) 

-"MD. 897 - VERDES":C3(2)-"MD.91 

2 - AMARELAS-:CS(3)-"MD.989 - V 

ERMELHAS" 

60 FOR K-0 TO 3 

65 X3-"ARRUELAS "+MIDS (C3 (K) , 10 

) 

70 PRINT TAB(16-LEN(X3)/2) iX3 
80 NEXT 

90 FOR K-l TO 7000:NEXT:CLS 
110 PRINT TABU2) ; "JANEIRO" : PRI 
NT TAB (12) — " 

120 PRINT : PRINT" PREÇO MÉDIO (AT 
ACADO) " 

■ 130 A$-" / /" :BS-" * 
I *$**.**" 



140 PRINT: PRINTUSING A3;C3(0);: 

PRINTUSING BS ; 12 . 715265 

150 PRINTUSING AS;CS(1) ; :PRINTU 

SING BS;3. 7363141 

160 PRINTUSING A3 ; CS (2) i : PRINTU 

SING BS:10. 35824221 

170 PRINTUSING AS ; CS O) ;: PRINTU 

SING BS: .5163733 

180 PRINT e416,USING"LUCRO TOTA 
L $*»#. ■•»-#•"; 374241.5353 

As linhas !0 a 90 exibem na tela o ti- 
tulo do relatório, formatado de manei- 
ra simples com declarações PRINT. A 
linha 170 é particularmente interessan- 
te porque mostra como uma série de 
mensagens pode ser centrada na tela, 
usando-se TAB, que é calculado de acor- 
do com o comprimento da mensagem. 

A seção do programa que vai da li- 
nha 100 à linha 180 demonstra as carac- 
terísticas da declaração do PRINT 
USING. A linha 130 define AS, que po- 
de ser usada para mostrar as primeiras 
seis letras das cadeias alfanuméricas de- 
finidas na linha 50. O comprimento da 
cadeia é o número de espaços entre si- 
nais % (no MSX o sinal usado é a bar- 
ra inversa), mais 2. Assim, o compri- 
mento do cordão de saída levará em 
conta o espaço ocupado pelos sinais %. 

B$ define o formato da saída numé- 
rica. A função principal da formatação 
numérica é alinhar uma coluna de nú- 
meros, padronizando-os para que te- 
nham a mesma quantidade de algaris- 
mos antes e depois do ponto, que sejam 
tabulados tomando o ponto como refe- 
rência, e assim por diante. 

O número de dígitos a ser mostrado 
é definido pelo símbolo # . Inserindo- 
se o ponto decimal na cadeia de # 
define-se a sua posição. Examine a linha 
130 do programa: BS serve para impri- 
mir números com dois dígitos antes do 
ponto e dois dígitos depois. 

Além disso, se o sinal $ for colocado 
à esquerda dos sinais # , ele será impres- 
so nessa posição em todas as saídas, e 
será usado para indicar quantias mone- 
tárias. 

O símbolo """antes dos sinais $ e # 
fará com que os espaços em branco à es- 
querda do campo definido para o valor 
numérico seja preenchido automatica- 
mente por asteriscos. Este é um recurso 
usado no preenchimento de cheques. No 
campo de saída definido na linha 1 30 fo- 
ram empregados quatro sinais diferen- 
tes. Outras combinações são possíveis. 

A linha 140 imprimirá os seis primei- 
ros caracteres de CS(0), seguidos por oi- 
(o espaços e um sinal de $. Note que a 
declaração USING utiliza a cadeia de 
formatação armazenada previamente 
em BS. O número a ser mostrado nesse 
exemplo será, portanto, arredondado, 



de modo a aparecer apenas com duas ca- 
sas depois do ponto. 

A linha 150 imprimirá os seis primei- 
ros caracteres de A$, seguidos de 
*$3.74, pois sobrou um espapo em bran- 
co na formatação, que será preenchido 
por um asterisco. A linha 160 é similar 
à linha 140. Finalmente, a linha 170 im- 
primirá o número como *$0.52. 

Se os números a imprimir forem mui- 
to grandes, pode-se recorrer a três tipos 
de formatação. A mais simples consiste 
na utilização de uma cadeia longa de si- 
nais #. Por outro lado, para visua- 
lizá-la melhor, podemos empregar vir- 
gulas para separar os dígitos em grupos 
de três (no Brasil usaríamos pontos, mas 
os interpretadores BASIC existentes em 
nossas máquinas seguem o padrão nor- 
te-americano). Isso foi feito na linha 180 
do programa. A terceira alternativa é re- 
correr à forma exponencial. Para ver co- 
mo ela funciona, substitua a linha 180 
por: 



Faça a modificação pertinente no 
programa para o MSX. Os quatro sinais 
de T que aparecem no formato indicam 
o tamanho do campo do expoente. Os 
sinais # são interpretados, então, co- 
mo o formato da mantissa. 

A declaração USING pode ainda ser 
misturada com um PR1NT@ na mesma 
linha (computadores TRS-80 e TRS- 
Color) e várias USING podem ser colo- 
cadas na mesma linha. Isto dá grande 
flexibilidade na programação de telas. 

Outro caractere de programação de 
formato usado com a USING e ao qual 
não nos referimos antes é o ponto de ex- 
clamação (!). Ele faz com que o progra- 
ma imprima apenas o primeiro caracte- 
re de uma cadeia alfanumérica. Tente al- 
terar a linha 130 do programa: 

130 AS= n !":BS-" 



Alguns programas utilizam a função 
VAL seguida de um número entre aspas, 
em vez de um número normal. Essa for- 
ma serve, muitas vezes, para economizar 
espaço. O computador normalmente re- 
corre a bytes de memória para armaze- 
nar um número, o que o leva a desperdi- 
çar memória em certas aplicações críti- 
cas. Assim, se você puser um número en- 
tre aspas e usar a função VAL para 
convertê-lo em seu valor numérico, po- 
derá armazená-lo como se fosse um cor- 
dão. No caso de números curtos (ou se- 
ja, com menos de cinco dígitos), esse pro- 
cedimento levará a uma economia de me- 
mória: um byte para cada dígito, um pa- 
ra cada aspa, e um para a função VAL. 



